Excel: Plusieurs Conditions dans une boucle

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

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

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

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

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