Discussion :

[Floflo19]

Bonjour,

Comme beaucoup de gens qui débutent en VBA je suis obsédé par un code qui me parait simple mais dont je n'ai pas les connaissances pour le développer !

Voilà, j'ai un onglet (onglet Coucou) avec en colonne A une liste de valeurs. J'ai un deuxième onglet (onglet Salut) dans lequel on retrouve des valeurs de la colonne A (dans un ordre différent) mais avec également des infos précieuses dans les colonnes B, C, D...

L'idée est de créer une boucle If/Then grâce à laquelle à chaque fois qu'une valeur de la colonne A de coucou est identifiée dans la colonne B de Salut, on rapatrie les valeurs des colonnes B, C, D de Salut dans les colonnes B, C, D de Coucou...

En gros un truc comme ça : (attention, vous allez vous moquer de moi )

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
17
18
19
20
Sub Remplissage Coucou
 
Coucou = Worksheet.Coucou
Salut = Worksheet.Salut
 
For i = 1 To i = 500
For m = 1 To m = 500
 
 If Coucou.Range("A",i) = Salut.Range("A",m) 
  then Coucou.Range("B",i).Value = Salut.Range("B",m).Value
  and Coucou.Range("C",i).Value = Salut.Range("C",m).Value
  and Coucou.Range("D",i).Value = Salut.Range("D",m).Value
  r = r+1
 
'un truc comme ça!
'après je bloque... 
 
    End If
Next i
End Sub

Est-ce qu'un gentil bienfaiteur pourrait m'aider SVP?

Florent

[electrons]

Bonjour,
Il y a de gros problème dans tes boucles FOR...
tu as la première qui concerne le i, tu as bien un "Next i" par contre tu n'as pas de "Next m",
tu utilises "r = r + 1" qui n'intervient nulle part ailleurs.
Dans ta condition

Code :

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

1
2
3
4
If Coucou.Range("A",i) = Salut.Range("A",m) 
then Coucou.Range("B",i).Value = Salut.Range("B",m).Value
and Coucou.Range("C",i).Value = Salut.Range("C",m).Value
and Coucou.Range("D",i).Value = Salut.Range("D",m).Value

Il ne peut pas y avoir de And Voici déjà une écriture un peu différente :

Code :

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

1
2
3
4
If Coucou.Range("A",i) = Salut.Range("A",m)  Then
   Coucou.Range("B",i).Value = Salut.Range("B",m).Value
   Coucou.Range("C",i).Value = Salut.Range("C",m).Value
   Coucou.Range("D",i).Value = Salut.Range("D",m).Value

Je n'ai pas beaucoup de temps de m'occuper de la programmation maintenant mais je te donne une piste pour améliorer ton code. Je verrai si je peux t'aider ultérieurement.

A+

[Floflo19]

Oui désolé Electron... r = r+1 aurait du en fait être m = m+1...

Est ce que la boucle ci-dessous fait plus de sens?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For i = 1 To i = 500
For m = 1 To m = 500
 
If Coucou.Range("A",i) = Salut.Range("A",m) 
then Coucou.Range("B",i).Value = Salut.Range("B",m).Value
and Coucou.Range("C",i).Value = Salut.Range("C",m).Value
and Coucou.Range("D",i).Value = Salut.Range("D",m).Value
m = m+1
 
End If
Next i
End Sub

En fait, j'avais mis m = m+1 pour l'obliger à aller regarder la ligne d'après dans le cas où Coucou.Range("A",i) <> Salut.Range("A",m)

Comme je vous dis, je suis débutant donc je ne suis même pas sûr de savoir de quoi je parle!!

Merci!
Florent

Merci Electron!!!
Crois-moi que ça m'aide beaucoup!

[Philippe Tulliez]

Bonjour,
Dans la correction il manque toujours le Next m et il est inutile et surtout un risque d'erreur de faire un m = m + 1 (la boucle sert à incrémenter.

En fait, j'avais mis m = m+1 pour l'obliger à aller regarder la ligne d'après dans le cas où Coucou.Range("A",i) <> Salut.Range("A",m)

Il faut alors faire

Code :

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

Range("A",m+1)

[electrons]

Rebonjour,

Voici un code qui devrait t'aider, je l'ai testé uniquement sur 5 Cellules, Il faut que tes valeurs de de A soient "unique" de préférence

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
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub CopieDsSalut()
'
' Copie des cellules de Coucou dans Salut si la cellule "A" contient des valeurs de Salut
'
Dim i As Long
Dim j As Long
 
j = 1
 
For i = 1 To 5
    For j = 1 To 5
      If Worksheets("Coucou").Range("A" & i).Value = _
        Worksheets("Salut").Range("A" & j).Value Then
 
        Worksheets("Salut").Range("B" & j).Value = Worksheets("Coucou").Range("B" & i).Value
        Worksheets("Salut").Range("C" & j).Value = Worksheets("Coucou").Range("C" & i).Value
 
        Exit For
 
      End If
    Next j
 
    j = 1
 
Next i
 
 
 
End Sub

Essaie, ça doit fonctionner.
Tiens moi au courant.
A+

[Floflo19]

Fantastique !
Merci beaucoup Michel, merci Philippe, mes bienfaiteurs belges
A bientôt et take care!
Florent