XL 2016 Compilation de données

[croco40]

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

 

[vgendron]

Bonjour

tu n'as apparemment pas mis le bon fichier
1) pas de macro dedans
2) on ne voit pas le "Ce que j'ai en Haut" et "Ce que je veux en bas"

 

[vgendron]

et à première vue dans le bout de code
tu mélanges les boucles
Do==> Loop until
while==>Wend

for i===> Next i
If==>End if
etc
etc


mais Do While.. ca n'existe pas

 

[croco40]

Bonjour

tu n'as apparemment pas mis le bon fichier
1) pas de macro dedans
2) on ne voit pas le "Ce que j'ai en Haut" et "Ce que je veux en bas"

Oui désolé, je n'ai pas excel ici, je e peux pas mettre le code.