Discussion :

[TiteufBSB]

Bonjour à toutes et à tous,

Il me semble que ce sujet fut déjà évoqué à nombreuses reprises. Mais : j'ai trouvé la solution logique à mon problème sous Excel 2003 ; sauf que : la syntaxe visiblement n'est pas la bonne, quelqu'un aurait-il la solution tellement simple que je ne la vois pas SVP ?

Le code suivant me renvoie un message Erreur de compilation Next sans For
Avec le Next du "Next E" surligné :

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
Dim I, E As Integer
   For I = 1 To 24
For E = 8 To 47
If Range("A" & I).Value = Range("K" & E).Value Then Range("B" & I).Value = Range("L" & E).Value Else: Next E  
    Next I
End If
End Sub

Je remercie vivement celui ou celle qui pourra m'aider.

Titeuf

[TiteufBSB]

Bon, je viens de trouver la solution qui est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
Dim I, E As Integer
   For I = 1 To 24
   For E = 8 To 47
  If Range("A" & I).Value = Range("K" & E).Value Then Range("B" & I).Value = Range("L" & E).Value
 
        Next E
 
    Next I
 
End Sub

[doncamelo]

Bonsoir TiteufBSB,

Ton code réordonné donne ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
Dim I, E As Integer
 
For I = 1 To 24
    For E = 8 To 47
        If Range("A" & I).Value = Range("K" & E).Value Then
           Range("B" & I).Value = Range("L" & E).Value
        Else:
    Next E
Next I
 
End If
 
End Sub

Tu fermes tes boucles For alors que le end if est à l'extérieur.

Je n'ai pas testé mais je pense que le code ci-dessous ne devrait pas te soulever d'erreurs.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
    Dim I, E As Integer
 
    For I = 1 To 24
        For E = 8 To 47
            If Range("A" & I).Value = Range("K" & E).Value Then
                Range("B" & I).Value = Range("L" & E).Value
            End If
        Next E
    Next I
End Sub

Doncamelo

[TiteufBSB]

Bonjour,

et merci beaucoup pour ton code définitivement plus orthodoxe que le mien.

Je confirme il fonctionne correctement.

Bonne journée.