Macro supprimer SI + de 6 zéros

Le
Solange
Bonjour à tous

J'ai une macro qui récupère chaque chiffre (de 6 positions) de plusieurs
cellules disons de A1 jusqu'à A20. Tous ces chiffres sont mis dans 1 seule
cellule sans espace. Exemple cellule A1 123456 - A2 456789 A3 000000 A4
000000 etc.. dans la cellue D1 je retrouve 123456456789000000000000. Ma
question : est-il posible avec une macro de ne pas prendre les cellules qui
comportent 6 zéros! et deuxième question : si 2 ou 3 cellules qui se suivent
comportent toutes les 3 six zéros que ne soit repris qu'une seule fois 6
zéros pff pff c'est un compliqué mon souhait non ?
D'avance merci
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Jacky
Le #2257911
Bonjour Solange

Peut-être ceci(pour une plage (A1:A20)):
Format texte
'----------------
For i = 1 To 20
If Range("A" & i) <> "000000" Then
x = x & Range("A" & i)
Else
y = y + 1
End If
Next
If y > 1 Then x = x & "000000"
MsgBox x
'---------------
Salutations
JJ


"Solange" news:
Bonjour à tous

J'ai une macro qui récupère chaque chiffre (de 6 positions) de plusieurs
cellules disons de A1 jusqu'à A20. Tous ces chiffres sont mis dans 1
seule

cellule sans espace. Exemple cellule A1 123456 - A2 456789 A3 000000 A4
000000 etc.. dans la cellue D1 je retrouve 123456456789000000000000. Ma
question : est-il posible avec une macro de ne pas prendre les cellules
qui

comportent 6 zéros! et deuxième question : si 2 ou 3 cellules qui se
suivent

comportent toutes les 3 six zéros que ne soit repris qu'une seule fois 6
zéros pff pff c'est un compliqué mon souhait non ?
D'avance merci



Poster une réponse
Anonyme