Probleme boucle for next

[ludosoazic]

Bonjour à tous ,

Je suis novice en vba et j'ai un problème ,surement pas grand chose,avec le code suivant.Le probleme est que la boucle ne s'arrete pas.
Merci d'avance pour votre aide.


Private Sub CommandButtonValider_Click()
For i = 4 To 34
For j = 1 To 72
If Sheets("" & Me.ComboBoxMois.Value).Cells(2, j).Value = Me.ComboBoxVehicule.Value Then
If Sheets("" & Me.ComboBoxMois.Value).Cells(i, j).Value = "" Then
Sheets("" & Me.ComboBoxMois.Value).Cells(i, j - 1).Value = Me.TextBoxQuantite.Value
Sheets("" & Me.ComboBoxMois.Value).Cells(i, j).Value = Me.TextBoxKilometrage.Value
Sheets("" & Me.ComboBoxMois.Value).Cells(i, j + 1).Value = Me.TextBoxNom.Value
Exit For
End If
End If
Next
Next

 

[job75]

Re : Probleme boucle for next

Bonsoir ludosoazic , bienvenue sur le forum,

Peut-être une macro Worksheet_Change dans la feuille Sheets("" & Me.ComboBoxMois.Value) ?

Il faut alors désactiver l'action des évènements par :

Application.EnableEvents = False en début de macro (celle qui boucle) et

Application.EnableEvents = True en fin de macro

Bonne nuit.

 

[kjin]

Re : Probleme boucle for next

Bonsoir, bonsoir Job 🙂,
S'agit-il de trouver une seule occurence qui réponde aux critères ?
A+
kjin

 

[ludosoazic]

Re : Probleme boucle for next

Merci beaucoup je vais essayé.