Discussion :

[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 :

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

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 :

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

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 :

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

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 :

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

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

[Jean-Pierre49]

Bonjour

Regarde

Code :

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

Next RemplaceVide

et

Code :

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

 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 !

[SfJ5Rpw8]

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é).