Excel: Plusieurs Conditions dans une boucle Résolu/Fermé

Question

Bonjour à tous, J'ai fais une petite macro qui est compose d'une boucle For contenant une seconde boucle For et des conditions en If. Du coup bien que j'ai essayer des dizaine de meli melo de combinaisons je n'arrive pas a lancer la macro sans avoir d'erreur du type; "If sans end IF", "Variable incorrect pour next".. bref je ne m'y retrouve plus. voici la partie du code qui pose probleme. J'ai mis des lettre en majuscule pour relier chaque if a son end if et chaque for a son next.: With Range("B101:B1000") NumLigne = 1001 For i = 1 To 10 Step 1 '***C**** If UserFormPlanning.Controls("TextBoxTaille" & i).Text <> "" Then '***D**** Nbpak = UserFormPlanning.Controls("TextBoxNbrPaq" & i).Text For Each x In Range("B101:B1000") '***A**** If IsEmpty(x) And x.Row < NumLigne Then '***B**** NumLigne = x.Row End If '***B**** end Exit For '***A****end For p = 0 To Nbpak - 1 Step 1 '***C**** x.Offset(p, 0).Value = BLABLABLA x.Offset(p, 1).Value = BLABLABLA x.Offset(p, 4).Value = BLABLABLA Next p If UserFormPlanning.Controls("TextBoxRestPak" & i) <> 0 Then x.Offset(Nbpak, 0).Value = BLABLABLA x.Offset(Nbpak, 1).Value = BLABLABLA x.Offset(Nbpak, 2).Value = BLABLABLA End If End If '***D****end Next i '***C****end End With Si quelqu'un peut m'aider a trouver l'erreur ca serait impecable. Sinon ma question est la suivante. La presence d'une boucle for a-telle une influence sur la syntaxe d'un IF, car il me semble que parfois le end if n'est plus requis voir même rejeter. Merci Configuration: Mac OS X / Safari 534.52.7

Le Pingou · Answer

Bonjour Un [Next x] manque et pourquoi le [Exit For] ... !! With Range("B101:B1000") NumLigne = 1001 For i = 1 To 10 Step 1 '***C**** If UserFormPlanning.Controls("TextBoxTaille" & i).Text <> "" Then '***D**** Nbpak = UserFormPlanning.Controls("TextBoxNbrPaq" & i).Text For Each x In Range("B101:B1000") '***A**** If IsEmpty(x) And x.Row < NumLigne Then '***B**** NumLigne = x.Row End If '***B**** end Exit For ` ****** pour quel raison Next x '***A****end For p = 0 To Nbpak - 1 Step 1 '***C**** x.Offset(p, 0).Value = BLABLABLA x.Offset(p, 1).Value = BLABLABLA x.Offset(p, 4).Value = BLABLABLA Next p `***C****end If UserFormPlanning.Controls("TextBoxRestPak" & i) <> 0 Then x.Offset(Nbpak, 0).Value = BLABLABLA x.Offset(Nbpak, 1).Value = BLABLABLA x.Offset(Nbpak, 2).Value = BLABLABLA End If End If '***D****end Next i '***C****end End With

gbinforme · Answer

bonjour

Il te manque un next x après le Exit For probablement.

Les boucles ne changent pas la syntaxe des if

Tu n'as pas besoin de end if si l'instruction est complète, par exemple :
 if x < y then x = x + y     
est équivalent à
  if x < y then 
           x = x + y 
 end if

tictac847 · Answer

Re, 
Merci pour les réponses rapides
Mais next x à la place de exit for me donne: 'Variable objet ou variable de bloc With non définis"
Le exit for était juste une des nombreuse manoeuvre désespérée  pour essayer de résoudre l'erreur.
juste apres next p ca me repete la meme instruction à l'infini et n'importe ou apres ca me donne "end if sans bloc if"
Je vais tester d'autre maniere d'organiser mon codes.
merci

JvDo · Answer

Bonjour,

1) le With/End With ne sert à rien.

2) pour le for each : il semble te trouver la ligne de la première cellule vide.
Attention à ce qui va se passer si tu as une ligne vide dans ta liste! le reste du code va écraser tes données. Enfin, il ne va pas le faire puisqu'il ne peut pas fonctionner du fait que le x n'est plus défini (on est sorti de la boucle For Each).
Mais quand le code sera corrigé, attention aux écrasements.For Each x In Range("B1:B100")
    If IsEmpty(x) And x.Row < NumLigne Then
        NumLigne = x.Row: Exit For
    End If
Next

3) Ensuite, tu viens de calculer un NumLigne et tu ne t'en sers pas.
Il faut faire un set x= Cells(NumLigne, 2) pour utiliser ton code par la suite.
Et là, tu vois ce qu'un écrasement peut faire...

4) Tu vois aussi que lorsque ton code passe à i=2, ton NumLigne n'est pas réinitialisé à 1001 et donc tes conditions deviennent toutes fausses.
Donc, mettre l'initialisation de NumLigne à l'intérieur de la boucle principale For i / Next i

Pour conclure :
* je supprimerais le With End With
* je changerais le nom de la variable x utilisée dans le For Each pour différencier avec le set x qui suit. (ça fonctionne quand même si tu ne le fais pas)
* je m'interrogerais sur la possible existence de lignes vides dans ma colonne B.

Cordialement

tictac847 · Answer

Bonjour à tous, et merci pour vos reponses. J'ai suivi vos conseil et je suis parvenu au code suivant. NumLigne = 1001 For i = 1 To 10 Step 1 NumLigne = 1001 If UserFormPlanning.Controls("TextBoxTaille" & i).Text <> "" Then Nbpak = UserFormPlanning.Controls("TextBoxNbrPaq" & i).Text For Each x In Range("B101:B1000") If IsEmpty(x) And x.Row < NumLigne Then x.Select Exit For End If Next For p = 0 To Nbpak - 1 Step 1 x.Offset(p, 0).Value = Blabla x.Offset(p, 1).Value = Blabla If UserFormPlanning.Controls("TextBoxRestPak" & i) <> 0 Then x.Offset(p, 0).Value = Blabla x.Offset(p, 1).Value = Blabla End If Next p End If Next i @ JVDO: j'ai supprimer les with/end with et inserer ma ligne dans la boucleje pense que ca regle le probleme. Apres plusieurs essais ça à l'air de fonctionner correctement. @Le Pingou, excusez moi j'avais mal compris. Le code que vous m'avez remis me donne L'erreur erreur "objet requis" sur la ligne x.Offset(p, 0).Value = BLABLABLA. Merci