erreur next sans for

[yoyo77]

Bonjour le Forum 🙂 🙂,

j'ai un petit soucis avec mon fichier une erreur next sans for apparait et je ne trouve pas la solution.

si quelqu un peut m'aider SVP😕,

ou si xhudi69 passe par ici car j'ai bidouillé sa macro pour l'adapter à cet autre fichier 😉.

j'aimerais en plus si c'est possible svp qu'en appuyant sur le boutton, dans avisé par 4600 si la réponse est non que la cellule en feuil1 soit rouge et oui en vert et qu'un compteur en feuil3 indique le nombre non.

Merci de m'aider s'il vous plait car je suis novice j'ai essayé mais sans comprendre forcément ca bloque tôt ou tard 🙂

 

[CHALET53]

Re : erreur next sans for

Bonjour,

Il te manque un End if juste devant Next c

Et a priori ce n'est pas next c mais next i

a+

 

[yoyo77]

Re : erreur next sans for

Bonjour,

j'ai essayé ca marche pas ?

 

[CHALET53]

Re : erreur next sans for

Quand je fais ce que je dis plus haut, ça ne plante pas (mais je ne vois pas ce que cela fait ou doit faire)

Est-ce que ça plante toujours chez toi

 

[yoyo77]

Re : erreur next sans for

Bonjour,

Oui en faite en feuil 1 y a un bouton, en cliquant dessus ilfaut remplir le formulaire et valider et la Erreur de compilation Next sans for ?

Merci

PS; Dsl, je suis novice 🙁

 

[CHALET53]

Re : erreur next sans for

re,

En gras ce que j'ai modifié dans la procédure (n'hésite pas à revenir si problème):

Private Sub CommandButton3_Click()
Dim i As Long
Dim col1 As Byte
Dim col2 As Byte
Dim col3 As Byte
Dim vc As Double

If ComboBox1.Value = "" Or ComboBox3.Value = "" Or TextBox1.Value = "" Or ComboBox4.Value = "" Or ComboBox11.Value = "" Then
MsgBox " Vous Devez Remplir les Champs ", vbCritical, " ATTENTION "
Exit Sub
End If

col1 = Me.ComboBox2.ListIndex + 2

Stop
With Sheets("Feuil3")
DRL = .Range("A65500").End(xlUp).Row
For i = 2 To DRL

If .Cells(i, 1).Value = ComboBox1.Value Then
If ComboBox2.Value <> "" Then
If .Cells(i, col1).Value = "" Then
.Cells(i, col1).Value = 1
Else
vc = .Cells(i, col1).Value
.Cells(i, col1).Value = vc + 1
End If
End If
If ComboBox2.Value <> "" Then
If .Cells(i, col1).Value = "" Then
.Cells(i, col1).Value = 1
Else
vc = .Cells(i, col1).Value
.Cells(i, col1).Value = vc + 1
End If
End If
End If
Next i
.Columns.AutoFit

End With


Unload Me
End Sub

 

[yoyo77]

Re : erreur next sans for

Re bonjour CHALET53,

C'est bon ca marche ! grand merci !

As-tu une idée stp pour que le oui passe en vert et le non passe en rouge en feuil1 colonne F ?

merci,

🙂 yoyo

 

[CHALET53]

Re : erreur next sans for

Re,

je ne vois pas dans ton fichier de oui ou de non dans la feuille1 colonne F
Comment cette colonne est-elle alimentée?

Peut-être qu'une simple MFC suffirait

 

[yoyo77]

Re : erreur next sans for

re,

Oups probleme, en faite la redaction se fait par le bouton1, et cela ne marche pas les elements choisis sont normalement reportés en feuil1 et pour la colonne F les cellules indiqueront le choix oui ou non (Bouton1= dans avisé par 4600 (liste deroulante) il y a oui ou non)

As tu une idée pourquoi en cliquant sur le bouton1 une fois les données saisis et validées elles ne se reportent pas sur la Feuil1 ?

 

[CHALET53]

Re : erreur next sans for

Le bouton de la feuille 1 " Cliquer ici" appelle le userform 1 (a priori le bouton Valider écrit sur la feuille 3)

Le bouton de la feuille 3 " Bouton 1" appelle également le userform 1 (donc le bouton Valider écrit toujours sur la feuille 3 et non sur la feuille 1)

 

[yoyo77]

Re : erreur next sans for

Ok merci pour ton aide je vais regarder ca,

Yoyo77