VBA Excell< Sujet précédent  Sujet suivant >
Index du Forum -> .: Section Publique :. -> Le Bar
Auteur Message
Belgium.gif Furette
Special
Messages : 1452
Inscrit(e) le: 15/04/2010
Posté le 13/07/2017 09:14  
VBA Excell
Bonjour à tous je suis à la recherche d une séquence VBA qui me permettrait de remonter dans la cellule du dessus et à la fin des caractères taper dans celle ci si la cellule ne contient pas plus de 20 caractères.

Si qqu un peut m aider merci.

-------
Revenir en haut | Permalien
France.gif DkRedem
Special

Messages : 92
Inscrit(e) le: 27/11/2015
Posté le 13/07/2017 15:30  
RE : VBA Excell
Perso j'ai un truc comme ca a mettre dans les macro

quand tu essaye de changer de case si la precedente fait moins de 10 caractere ca te remet dedans


Code :

Dim Oldcell As Range



Private Sub Worksheet_Selectionchange(ByVal Target As Range)
If Oldcell Is Nothing Then
Set Oldcell = Target
Exit Sub
End If

If Len(Oldcell) < 10 Then

Oldcell.Activate


End If
Set Oldcell = ActiveCell


End Sub



Revenir en haut | Permalien
France.gif DkRedem
Special

Messages : 92
Inscrit(e) le: 27/11/2015
Posté le 13/07/2017 16:02  
RE : VBA Excell
mieux
a chaque fois que tu change de case si la case precedente faisait pas 20 carracter les nouveaux vont s'ajouter aux precedent avec un espace

je pense ca peut etre ameliore j'ai fait ca en pause(genre ca peut etre complique de changer de case )


Code :

Dim Oldcell As Range
Dim OldOldcell As Range



Private Sub Worksheet_Selectionchange(ByVal Target As Range)
If ActiveCell.Column <> 19 Then
Set Oldcell = Nothing
Set OldOldcell = Nothing
Else

If Oldcell Is Nothing Then
Set Oldcell = Target

End If
If OldOldcell Is Nothing Then
Set OldOldcell = Oldcell
End If
If (Len(OldOldcell) < 20 And OldOldcell <> Oldcell) Then
OldOldcell = OldOldcell.Text + " " + Oldcell.Text
If Len(OldOldcell) > 20 Then
Set OldOldcell = Oldcell
End If

Oldcell = ""

Oldcell.Activate
Set Oldcell = ActiveCell
Else
Set OldOldcell = Oldcell
Set Oldcell = ActiveCell


End If

End If

End Sub



Edité par DkRedem le 13/07/2017 18:43
Revenir en haut | Permalien
France.gif DkRedem
Special

Messages : 92
Inscrit(e) le: 27/11/2015
Posté le 13/07/2017 16:31  
1499956308.xlsm (17 Ko)
RE : VBA Excell
mon fichier

Revenir en haut | Permalien
Belgium.gif Furette
Special
Messages : 1452
Inscrit(e) le: 15/04/2010
Posté le 13/07/2017 17:58  
RE : VBA Excell
c'est pas mal mais faudrait lui dire de faire ca sur un collone selectionnée et sans l'espace

-------
Revenir en haut | Permalien

Page générée en 0,104 secondes.


 
Avancée PVE

Boss
 Taloc  Down le 13/09/2018
 Mother  Down le 13/09/2018
 Fetid Devourer  Down le 06/09/2018
 Zek'voz  Down le 16/09/2018
 Vectis  Down le 06/09/2018
 Zul, Reborn  Down le 06/09/2018
 Mythrax the Unraveler  Down le 06/09/2018
 G'huun  Down le 09/09/2018
 Argus L'annihilateur  Down le 14/02/2018

DownHMMythic

Avancée PVE complète
 
Recrutement

ClasseÉtat
CdM Sang : fermé Givre : fermé Impie : fermé
Chaman Elémentaire : ouvert Amélioration : ouvert Restauration : fermé
Chasseur Maîtrise des bêtes : fermé Précision : fermé Survie : fermé
Démoniste Affliction : ouvert Démonologie : ouvert Destruction : ouvert
DH Dévastation : ouvert Vengeance : fermé
Druide Equilibre : ouvert Féral : fermé Restauration : fermé
Guerrier Arme : ouvert Fury : ouvert Protection : fermé
Mage Arcane : ouvert Feu : ouvert Givre : ouvert
Moine Brewmaster : ouvert Mistweaver : fermé Windwalker : ouvert
Paladin Sacré : fermé Protection : ouvert Vindicte : fermé
Prêtre Discipline : fermé Sacré : fermé Ombre : fermé
Voleur Assassinat : ouvert Combat : ouvert Finesse : ouvert

Postuler !

Forum

La guilde Epsilon vs le temps
      Le 21.09.18 à 10:33 par Ceriella
Sortie IRL sur Paris
      Le 14.06.18 à 18:23 par Pausemana
Excel
      Le 16.05.18 à 19:08 par Xnate
Petits arrangements
      Le 20.02.18 à 12:41 par Nanie
SPOIL !!!!!!! Allied races
      Le 04.12.17 à 10:41 par Sychoraxe
Jukebox Epsilon
      Le 21.09.17 à 17:26 par Spyke
 


Media player
This div will be replaced