Plusieurs conditions-Do While
Bonjour,
Voici mon problème : J'aimerais faire plusieurs conditions à la suite, mais malgrès mes recherches, mon code me génère encore des erreurs...
Code:
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
| Sub Macro1()
Dim i As Integer
Dim j As Integer
Dim k As Integer
k = 2
j = 2
i = 2
Do While i < 10
If Worksheets("Feuil1").Range("A" + CStr(i)).Value <> Worksheets("Feuil2").Range("A" + CStr(i)).Value Then 'Si valeurs différentes, alors
Worksheets("Feuil2").Activate
Worksheets("Feuil2").Range("A" + CStr(i)).Select
'Si c'est des valeurs différentes, coder ici
Loop
Else 'Si c'est les même valeurs
Do While j < 10
If Worksheets("Feuil1").Range("B" + CStr(j)).Value <> Worksheets("Feuil2").Range("B" + CStr(j)).Value Then
Worksheets("Feuil2").Activate
Worksheets("Feuil2").Range("B" + CStr(j)).Select
'Si c'est des valeurs différentes, coder ici
Loop
Else 'Si c'est les même valeurs
Do While k < 10
If Worksheets("Feuil1").Range("C" + CStr(k)).Value <> Worksheets("Feuil2").Range("C" + CStr(k)).Value Then
Worksheets("Feuil2").Activate
Worksheets("Feuil2").Range("C" + CStr(k)).Select
'Si c'est des valeurs différentes, coder ici
Loop
Else 'Si c'est les même valeurs
MsgBox "Meme date"
End If
k = k + 1
Exit Do
End If
j = j + 1
Exit Do
End If
i = i + 1
Exit Do
End Sub |
J'ai essayé sans les Loop mais ça ne fonctionne pas non plus..
J'aimerais qu'après mon k=k+1, il sorte et incrémente le j, puis le I, et reparte pour un tour... Quelqu'un aurait une solution svp ? :/
:help:
