problème boucle

[supercrapaud]

Bonjour à tout le monde !

Voici une boucle de test que j'ai intégré afin de générer des tests pour une action à effectuer mais j'ai toujours le même message d'erreur qui m'indique Next sans For. Ci-dessous la boucle :

For Each c In Sheets("Facture").Range("a23:a76").SpecialCells(xlCellTypeConstants)
ad1 = c.Address
If Range(ad1) <> "" Then
If Range(ad1).Offset(0, 10) <> "" Then MsgBox ("Vous devez renseigner un nom de dépôt pour chaque référence.")
ActiveCell.Select
Next c

Si quelqu'un a une idée... Je l'en remercie !

 

[mapomme]

Re : problème boucle

Bonsoir supercrapaud,

Et avec ce code ? (il manque un "end if" quelque part )
par exemple:

For Each c In Sheets("Facture").Range("a23:a76").SpecialCells(xlCellTypeConstants)
  ad1 = c.Address
  If Range(ad1) <> "" Then
    If Range(ad1).Offset(0, 10) <> "" Then MsgBox ("Vous devez renseigner un nom de dépôt pour chaque référence.")
    ActiveCell.Select
  End If
Next c

ou suivant ce que tu désires faire:

For Each c In Sheets("Facture").Range("a23:a76").SpecialCells(xlCellTypeConstants)
  ad1 = c.Address
  If Range(ad1) <> "" Then
    If Range(ad1).Offset(0, 10) <> "" Then MsgBox ("Vous devez renseigner un nom de dépôt pour chaque référence.")
  End If
Next c
ActiveCell.Select

 

[Dranreb]

Re : problème boucle

Bonsoir
￾C'est parce qu'il n'y en effet pas de For derriere 1er If. Et il n'a pas à devoir comprendre que c'est celui avant le If qui doit compter: il faut d'abord un End If pour le terminer, un point c'est tout.
Par ailleurs c'est idiot de noter ad1 pour le refabriquer avec Range ! Utilisez c partout tout simplement: c'est un Range !
À +

 

[supercrapaud]

Re : problème boucle

Bonjour à tous.

Je vous remercie de vous être levées aussi tôt pour me répondre ^_^ Je vais tester cela de suite et voir si j'arrive enfin à mes fins.

En tout cas merci à vous tous. Pour dranreb. J'ai appris comme cela les ranges, je vais essayer de m'améliorer mais c'est long... Je te remercie du conseil.