Discussion :

[jrege75]

Bonsoir


ç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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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

[AlainTech]

Ton problème vient du fait que y ne varie pas.

Il est impossible que les lignes de la feuil2 ne soit pas dans la feuil1.

Mais s'il est possible que des lignes de la feuil1 ne soient pas dans la feuil2, tu dois passer par une recherche.

[JackOuYA]

Bonsoir,


si tu veux garder ton principe , il te faut insérer dans ta boucle une deuxiéme boucle doWhile pour faire varier ton y.

[AlainTech]

Si, par contre, tu veux apprendre à travailler avec des objets, je te propose ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub pop()
  Dim c As Range
  Dim rFound As Range
  For Each c In Range(Worksheets("feuil2").[A2], _
          Worksheets("feuil2").Cells(Rows.Count, 1).End(xlUp))
    Set rFound = Range(Worksheets("feuil1").[A2], _
          Worksheets("feuil1").Cells(Rows.Count, 1).End(xlUp)).Find(c.Value)
    If Not rFound Is Nothing Then
      rFound.Offset(0, 2) = c.Offset(0, 1)
    End If
  Next c
End Sub