Bonjour à tous,
Merci pour tous vos posts que j'essaie de consulter le plus souvent possible.
Après plusierus recherches, je n'arrive pas a trouver ce que je veux.
Sur le fichier joint, il y a en haut ce que j'ai et en bas, ce que je veux .
Voici le code que j'ai tapé :
For i = 2 To 11
n = 1
var1 = Cells(i, 1).Value
If var1 <> "" Then
Do While Cells(i + n, 1) = var1
n = n + 1
If Cells(i + 1, 1).Value = var1 Then
var3 = Cells(i, 2).Value & Cells(i + n, 2).Value
n = n + 1
End If
Loop
n = n + 1
Loop Until n = 10
End If
Next i
Vous vous en doutez, ca ne fonctionne pas.
J'ai essayé plusieurs codes, mais je n'arrive pas à utiliser While wend ou do while loop.
Je veux lui dire, dans la colonne A, tant que la ref de la ligne suivante est égale a la ligne actuelle, la variable est = a ce qu'il y a dans la colonne 2 de chaque ligne.
En d'autre termes, je voudrais pour chaque référence, tous les prenoms associé.
Par avance merci
Suerte Croco
Merci pour tous vos posts que j'essaie de consulter le plus souvent possible.
Après plusierus recherches, je n'arrive pas a trouver ce que je veux.
Sur le fichier joint, il y a en haut ce que j'ai et en bas, ce que je veux .
Voici le code que j'ai tapé :
For i = 2 To 11
n = 1
var1 = Cells(i, 1).Value
If var1 <> "" Then
Do While Cells(i + n, 1) = var1
n = n + 1
If Cells(i + 1, 1).Value = var1 Then
var3 = Cells(i, 2).Value & Cells(i + n, 2).Value
n = n + 1
End If
Loop
n = n + 1
Loop Until n = 10
End If
Next i
Vous vous en doutez, ca ne fonctionne pas.
J'ai essayé plusieurs codes, mais je n'arrive pas à utiliser While wend ou do while loop.
Je veux lui dire, dans la colonne A, tant que la ref de la ligne suivante est égale a la ligne actuelle, la variable est = a ce qu'il y a dans la colonne 2 de chaque ligne.
En d'autre termes, je voudrais pour chaque référence, tous les prenoms associé.
Par avance merci
Suerte Croco