Bonsoir à tous...je sèche!
Une liste avec doublons (Eléments string) Range("A1:A50)
En range("B1:B50"): des numéros de factures
Une macro d'extraction de mes doublons vers Range("F1") Unique =True
Tout va bien jusque là....
Mon prob:
Comment avoir, après extraction, dans ma colonne Range("G1"), les numéros de
facture (colonne B) séparés par un ", " en regard des doublons repris dans
ma colonne "A"?
Merci d'avance,
Claudy
--
\\\ ////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy
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
claudy
ok, j'ai trouvé.... Sub numfactures() For Each cel In Range("F1:F30") If cel = "" Then Exit Sub i = 0 Do If cel Like Range("A" & 1 + i) Then cel.Offset(0, 1) = cel.Offset(0, 1).Value & ", " & Range("B" & 1 + i).Value End If i = i + 1 Loop Until i = 100 cel.Offset(0, 1) = "(" & cel.Offset(0, 1).Value & ")" Next
End Sub Bonne soirée, merci Claudy
"claudy" a écrit dans le message de news: 41755be6$0$1426$
Bonsoir à tous...je sèche! Une liste avec doublons (Eléments string) Range("A1:A50) En range("B1:B50"): des numéros de factures Une macro d'extraction de mes doublons vers Range("F1") Unique =True Tout va bien jusque là.... Mon prob: Comment avoir, après extraction, dans ma colonne Range("G1"), les numéros de
facture (colonne B) séparés par un ", " en regard des doublons repris dans ma colonne "A"? Merci d'avance, Claudy
-- //// ( O O ) ------oOOo-(_)-oOOo----------------- Claudy
ok, j'ai trouvé....
Sub numfactures()
For Each cel In Range("F1:F30")
If cel = "" Then Exit Sub
i = 0
Do
If cel Like Range("A" & 1 + i) Then
cel.Offset(0, 1) = cel.Offset(0, 1).Value & ", " & Range("B" & 1 + i).Value
End If
i = i + 1
Loop Until i = 100
cel.Offset(0, 1) = "(" & cel.Offset(0, 1).Value & ")"
Next
End Sub
Bonne soirée, merci
Claudy
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message
de news: 41755be6$0$1426$ba620e4c@news.skynet.be...
Bonsoir à tous...je sèche!
Une liste avec doublons (Eléments string) Range("A1:A50)
En range("B1:B50"): des numéros de factures
Une macro d'extraction de mes doublons vers Range("F1") Unique =True
Tout va bien jusque là....
Mon prob:
Comment avoir, après extraction, dans ma colonne Range("G1"), les numéros
de
facture (colonne B) séparés par un ", " en regard des doublons repris dans
ma colonne "A"?
Merci d'avance,
Claudy
--
\ ////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy
ok, j'ai trouvé.... Sub numfactures() For Each cel In Range("F1:F30") If cel = "" Then Exit Sub i = 0 Do If cel Like Range("A" & 1 + i) Then cel.Offset(0, 1) = cel.Offset(0, 1).Value & ", " & Range("B" & 1 + i).Value End If i = i + 1 Loop Until i = 100 cel.Offset(0, 1) = "(" & cel.Offset(0, 1).Value & ")" Next
End Sub Bonne soirée, merci Claudy
"claudy" a écrit dans le message de news: 41755be6$0$1426$
Bonsoir à tous...je sèche! Une liste avec doublons (Eléments string) Range("A1:A50) En range("B1:B50"): des numéros de factures Une macro d'extraction de mes doublons vers Range("F1") Unique =True Tout va bien jusque là.... Mon prob: Comment avoir, après extraction, dans ma colonne Range("G1"), les numéros de
facture (colonne B) séparés par un ", " en regard des doublons repris dans ma colonne "A"? Merci d'avance, Claudy
-- //// ( O O ) ------oOOo-(_)-oOOo----------------- Claudy
