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,
S'il n'y a que des A et des B, les lettres en colonne A, les chiffres en colonne B Ceci pourrait convenir: '-------- Sub jj() Dim c As Range For Each c In Range("a1:a" & [a65536].End(3).Row) If UCase(c) = "A" Then comptA = comptA & c.Offset(0, 1) & "," If UCase(c) = "B" Then comptB = comptB & c.Offset(0, 1) & "," Next MsgBox "A : " & Left(comptA, Len(comptA) - 1) & Chr(10) & "B : " & Left(comptB, Len(comptB) - 1) End Sub '-------- Salutations JJ
"Fa3ien" a écrit dans le message de news:44fe738d$0$32423$
Bonjour !
J'ai un tableau qui ressemble à ceci :
A 1 A 2 A 3 A 5 A 6 A 7 B 8 B 10 B 15 A 16 B 17 A 18 A 20 ...
Je voudrais obtenir quelque chose comme ceci :
A : 1,2,3,5,6,7,16,18,20 B : 8,10,15,17 ...
Y a-t-il un moyen efficace et existant de faire cela ?
Merci, Fabien.
Bonjour,
S'il n'y a que des A et des B, les lettres en colonne A, les chiffres en
colonne B
Ceci pourrait convenir:
'--------
Sub jj()
Dim c As Range
For Each c In Range("a1:a" & [a65536].End(3).Row)
If UCase(c) = "A" Then comptA = comptA & c.Offset(0, 1) & ","
If UCase(c) = "B" Then comptB = comptB & c.Offset(0, 1) & ","
Next
MsgBox "A : " & Left(comptA, Len(comptA) - 1) & Chr(10) & "B : " &
Left(comptB, Len(comptB) - 1)
End Sub
'--------
Salutations
JJ
"Fa3ien" <fabien.mosen@voschaussures.skynet.be> a écrit dans le message de
news:44fe738d$0$32423$ba620e4c@news.skynet.be...
Bonjour !
J'ai un tableau qui ressemble à ceci :
A 1
A 2
A 3
A 5
A 6
A 7
B 8
B 10
B 15
A 16
B 17
A 18
A 20
...
Je voudrais obtenir quelque chose comme ceci :
A : 1,2,3,5,6,7,16,18,20
B : 8,10,15,17
...
Y a-t-il un moyen efficace et existant de faire cela ?
S'il n'y a que des A et des B, les lettres en colonne A, les chiffres en colonne B Ceci pourrait convenir: '-------- Sub jj() Dim c As Range For Each c In Range("a1:a" & [a65536].End(3).Row) If UCase(c) = "A" Then comptA = comptA & c.Offset(0, 1) & "," If UCase(c) = "B" Then comptB = comptB & c.Offset(0, 1) & "," Next MsgBox "A : " & Left(comptA, Len(comptA) - 1) & Chr(10) & "B : " & Left(comptB, Len(comptB) - 1) End Sub '-------- Salutations JJ
"Fa3ien" a écrit dans le message de news:44fe738d$0$32423$
Bonjour !
J'ai un tableau qui ressemble à ceci :
A 1 A 2 A 3 A 5 A 6 A 7 B 8 B 10 B 15 A 16 B 17 A 18 A 20 ...
Je voudrais obtenir quelque chose comme ceci :
A : 1,2,3,5,6,7,16,18,20 B : 8,10,15,17 ...
Y a-t-il un moyen efficace et existant de faire cela ?
