Erreur 1004 : "Erreur définie par l'application ou par l'objet" boucle for

Bonjour,

Dans le document que je vous joins, en première page se trouve un bouton (Bouton 6) qui ouvre un UserForm. Lorsque vous cliquer sur "Appliquer" en bas à droite de ce dernier une erreur apparait. La fonction qui pose problème vise à vérifier que tous les champs sont bien remplis. Bien que d'autres articles sur le sujet aient été postés, je ne parviens pas à surmonter cette erreur. Pouvez-vous m'aider svp ?

Bonjour,

Modifier la macro de cette manière

Private Sub Check_Blanks()
Dim i%, Compteur&
For i = 3 To 19 Step 4
    If Me.Controls("TextBox" & i) = "" Then
      Me.Controls("TextBox" & i).BackColor = vbRed
    Compteur = Compteur + 1
    End If
Next i
For i = 4 To 20 Step 4
    If Me.Controls("TextBox" & i) = "" Then
    Compteur = Compteur + 1
    Me.Controls("TextBox" & i).BackColor = vbRed
    End If
Next i
End Sub

...Et supprimer les 2 noms dans le Gestionnaire : Ils ne serviront JAMAIS !

EDIT (conseil) :

Bonnes habitudes à prendre :

Optez pour la déclaration obligatoire des variables : Option Explicit en tête de modules

A L'exception de i, j, k que vous pouvez utilisez tel quels comme variable d'une boucle For... Next

n'utilisez pas de variable à un seul caractère !

A+

Re-bonjour,

Je vous remercie pour votre réponse. J'ai effectué les modifications suggérées et ça fonctionne.

Je ne suis cependant pas sur de comprendere de quels noms dans le gestionnaire vous parlez.

Merci pour ces précieux conseils.

Il n'y en a que 2 !

Prix_Check et Tps_Check

A+