Variable non reconnue dans une boucle [Résolu]

[Runsh63]

Bonjour le forum !

Je vous écris car je bloque sur ce bout de code. Je fais faire deux boucles d'affilée à ma macro. J'ai testé la première avant d'écrire la deuxième, ça marchait bien, maintenant, avec le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
    For Each Vide In .Range("A1:K" & LR1)
        If Vide.Value = "(vide)" Then
            Vide.Value = ""
        End If
    Next Vide
 
 
    For Each RamplaceVide In .Range("A3:K" & LR1)
        If RemplaceVide.Value = "" Then
            RemplaceVide.Value = RemplaceVide.Offset(-1, 0).Value
        End If
    Next RemplaceVide

Il me surligne

Code :

Next RemplaceVide

en donnant le message "Invalid Next control variable reference".

Qu'ai-je mal fait ? Pouvez-vous m'aider SVP ?

D'avance merci !

[pijaku]

Bonjour,
Peut être est ce un problème d'orthographe :

Code :

1
2
For Each RamplaceVide in blabla
Next RemplaceVide

Le nom de ta variable s'écrit avec un "e" ou un "a"???
Pour éviter ce genre de confusion, il faut placer l'instruction Option Explicit en haut de ton module, ET déclarer toutes tes variables :

Code :

1
2
3
4
5
6
Option Explicit
 
Sub Machin()
Dim remplaceVide As Truc
Etc...
End Sub

[Jean-Pierre49]

Bonjour

Regarde

Code :

Next RemplaceVide

et

Code :

 For Each RamplaceVide In .Range("A3:K" & LR1)

Tu dis

edit : grillé par pijaku

[Runsh63]

Je vous remercie pour votre patience et pour ne pas m'avoir crier dessus pour cette magnifique faute d'inattention qui me vaudra un place sur le podium du concours des plus grands benêts de l'année

Merci encore pour vos réponses !

[bbil]

A quoi sert "Option Explicit" ?

[Runsh63]

Merci bbil

Je n'ai jamais pris le temps de lire les choses utiles. J'ai appris en auto-didacte et grâce à l'intervention de personnes compétentes et patientes de ce forum.
Je suis bientôt en fin de CDD, je prendrai alors le temps de me "faire les dents" sur ce type de didacticiel (dont je connais l'excellente qualité).