Discussion :

[backx3]

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 :

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
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 ? :/

[backx3]

Problème résolu, fallait supprimer les 2 derniers do while et garder qu'une variable.