Discussion :

[FTMFB]

Bonjour à tous,

Cela fait plusieurs jours que j'essaie de faire fonctionner le code ci-dessous. Le but étant de lancer une macro pour chaque valeur de cellule appartenant à une plage. Or avec le code ci-dessous la macro se lance en boucle pour la valeur de la première cellule et seulement la valeur de la première cellule de ma plage.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub boucle()
 
   For Each Cell In Sheets("Extraction").Range("C4:C107")
        If Cell.Value <> 0 Then
        Call Sub_PDF_All
 
        End If
 
   Next Cell
 
End Sub

Je n'arrive pas à voir l'erreur dans mon code. Pouvez-vous m'aider ?

Merci d'avance,

[lead8209]

Salut, tu peux découper ton code et regarder en debug ce qui se passe ?
Le contenu de la variable cells par exemple.
Je n'ai jamais codé en vb donc la syntaxe n'est peut-être pas bonne...

Code :

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

1
2
3
4
5
6
7
8
9
 
var  cells = Sheets("Extraction").Range("C4:C107")
For Each Cell In cells
        If Cell.Value <> 0 Then
        Call Sub_PDF_All
 
        End If
 
   Next Cell

[FTMFB]

Bonjour,

Merci pour votre réponse.

Quand j'utilise le mode débogage Pas à Pas détaillé sur mon code aucune erreur ne se produit mais le problème reste le même.

Lorsque j'intègre l'étape Var une erreur de compilation s'affiche et la macro ne s'exécute pas.

Je n'arrive pas à comprendre ce qui se passe. Peut-être me manque-t-il une ligne de code ?

[themine702]

, il n’existe pas de Var dans le vb.net ou meme le vb, c'est Dim dans le vb