Problème mise à jour 2 colonnes en vba excel

Fermé
jrege75 Messages postés 11 Date d'inscription mardi 23 décembre 2008 Statut Membre Dernière intervention 5 novembre 2009 - 23 déc. 2008 à 17:54
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 23 déc. 2008 à 20:18
Bonjour,

ça fait plusieurs jours que je bloque sur un problème de boucle en langage vba avec le logiciel excel !!!

Je souhaite mettre à jour la colonne 2 de ma feuil1 à partir de la colonne 2 de ma feuil2.
La 1ère colonne des deux feuilles sert de champ clé.
Il est impossible que les lignes de la feuil2 ne soit pas dans la feuil1.

En faite j'arrive seulement à mettre à jour le 1er champ clé de la feuil, après il ne modifie plus rien.



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) <> ""
If Worksheets("feuil1").Cells(x, 1) = Worksheets("feuil2").Cells(y, 1) Then
Worksheets("feuil1").Cells(x, 3) = worksheets("feuil2").cells(y,2)


End If
x = x + 1
Loop

End Sub


Pour info, je préfère do while à for car mon fichier n'aura pas forcément à l'avenir le même nombre de lignes.

quelqu'un peut-il m'aider ?


Merci et bonnes fêtes à tous
A voir également:

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
0
jrege75 Messages postés 11 Date d'inscription mardi 23 décembre 2008 Statut Membre Dernière intervention 5 novembre 2009
23 déc. 2008 à 18:39
tout d'abord merci pour ta réactivité. En effet la solution des deux boucles me paraît la plus intéressante.

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.
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
23 déc. 2008 à 20:18
Bonjour,
Je ne vois pas bien ce que tu veux faire mais tu n'incrémente pas y ?
A+
0