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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
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" a écrit dans le message de 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
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" <Solange@discussions.microsoft.com> a écrit dans le message de
news:17CC5824-2ECB-43F6-80DB-F066A27C61E4@microsoft.com...
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
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" a écrit dans le message de 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