A voir également:
- Problème mise à jour 2 colonnes en vba excel
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Mise en forme conditionnelle excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
2 réponses
salut,
ton code n'est pas complet, il manque une boucle. Je n'est pas testé, mais ce code ne devrait pas être loin de la solution :
Sub pop()
Dim trouve As Boolean
x = 2 'x ligne de la feuil1
y = 2 'y ligne de la feuil2
Do While Worksheets("feuil1").Cells(x, 1) <> ""
trouve = False
Do While Worksheets("feuil2").Cells(y, 1) <> "" Or trouve
If Worksheets("feuil1").Cells(x, 1) = Worksheets("feuil2").Cells(y, 1) Then
Worksheets("feuil1").Cells(x, 3) = Worksheets("feuil2").Cells(y, 2)
trouve = True
End If
Loop
x = x + 1
Loop
End Sub
ton code n'est pas complet, il manque une boucle. Je n'est pas testé, mais ce code ne devrait pas être loin de la solution :
Sub pop()
Dim trouve As Boolean
x = 2 'x ligne de la feuil1
y = 2 'y ligne de la feuil2
Do While Worksheets("feuil1").Cells(x, 1) <> ""
trouve = False
Do While Worksheets("feuil2").Cells(y, 1) <> "" Or trouve
If Worksheets("feuil1").Cells(x, 1) = Worksheets("feuil2").Cells(y, 1) Then
Worksheets("feuil1").Cells(x, 3) = Worksheets("feuil2").Cells(y, 2)
trouve = True
End If
Loop
x = x + 1
Loop
End Sub
Par contre ça bloque au niveau du end if et du coup il me trouve plus du tout de champ clé ente les deux colonnes.