Else sans If
Résolu
David34300
Messages postés
2
Statut
Membre
-
Gaston -
Gaston -
Bonjour à tous
je suis débutant et j' ai créé un formulaire de saisie, mais je ne trouve pas de solution au message d'erreur else sans If
Si vous avez la solution un grand merci
je suis débutant et j' ai créé un formulaire de saisie, mais je ne trouve pas de solution au message d'erreur else sans If
Si vous avez la solution un grand merci
Private Sub CommandButton3_Click()
'bouton modifier un prospect
Dim modif As Integer
If Not ComboBox1.Value = "" Then
Sheets("Feuil3").Select
modif = ComboBox1.ListIndex + 2
Cells(modif, 1) = ComboBox1.Value
Cells(modif, 2) = TextBox1.Value
Cells(modif, 3) = CheckBox1.Value
If CheckBox1 Then ' équivalent à If CheckBox1.Value = True Then
Cells(modif, 3).Value = "X"
Else
Cells(modif, 3).Value = ""
End If
Cells(modif, 4) = CheckBox2.Value
If CheckBox2 Then ' équivalent à If CheckBox2.Value = True Then
Cells(modif, 4).Value = "X"
Else
Cells(modif, 4).Value = ""
End If
Cells(modif, 5) = CheckBox3.Value
If CheckBox3 Then ' équivalent à If CheckBox3.Value = True Then
Cells(modif, 5).Value = "X"
Else
Cells(modif, 5).Value = ""
MsgBox ("Modification effectuée")
Else <underline>sa coince ici</underline>
MsgBox ("Veuillez sélectionner le modele a modifier")
Exit Sub
End If
Unload UserForm1
UserForm1.Show 0
| EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages. |
1 réponse
-
Bonjour
Au début il manque le End If du If Not ComboBox1 ...
Tes trois dernières lignes devraient être avant la fin de la procédure
Peut être ceci à compléter pour la fin de ta procédurePrivate Sub CommandButton3_Click() 'bouton modifier un prospect Dim modif As Integer If Not ComboBox1.Value = "" Then Sheets("Feuil3").Select modif = ComboBox1.ListIndex + 2 Cells(modif, 1) = ComboBox1.Value Cells(modif, 2) = TextBox1.Value Cells(modif, 3) = CheckBox1.Value End If If CheckBox1 Then ' équivalent à If CheckBox1.Value = True Then Cells(modif, 3).Value = "X" Else Cells(modif, 3).Value = "" End If Cells(modif, 4) = CheckBox2.Value If CheckBox2 Then ' équivalent à If CheckBox2.Value = True Then Cells(modif, 4).Value = "X" Else Cells(modif, 4).Value = "" End If Cells(modif, 5) = CheckBox3.Value If CheckBox3 Then ' équivalent à If CheckBox3.Value = True Then Cells(modif, 5).Value = "X" Else Cells(modif, 5).Value = "" End If If à_toi_de_voir Then MsgBox ("Modification effectuée") Else 'sa coince ici MsgBox ("Veuillez sélectionner le modele a modifier") End If Unload UserForm1 UserForm1.Show 0 End Sub
RQ. Quand u envoies du code, utilise la coloration syntaxique (le symbole flèche bas en haut à droite de la fenetre d'édition)
Cdlmnt-
merci ccm81 pour ton aide, un réponse rapide c top
j'ai trouvé sa marche
encore merci
Private Sub CommandButton3_Click()
'bouton modifier un prospect
Dim modif As Integer
If Not ComboBox1.Value = "" Then
Sheets("Feuil3").Select
modif = ComboBox1.ListIndex + 2
Cells(modif, 1) = ComboBox1.Value
Cells(modif, 2) = TextBox1.Value
Cells(modif, 3) = CheckBox1.Value
If CheckBox1 Then ' équivalent à If CheckBox1.Value = True Then
Cells(modif, 3).Value = "oui"
Else
Cells(modif, 3).Value = "non"
End If
Cells(modif, 4) = CheckBox2.Value
If CheckBox2 Then ' équivalent à If CheckBox1.Value = True Then
Cells(modif, 4).Value = "oui"
Else
Cells(modif, 4).Value = "non"
End If
Cells(modif, 5) = CheckBox3.Value
If CheckBox3 Then ' équivalent à If CheckBox1.Value = True Then
Cells(modif, 5).Value = "oui"
Else
Cells(modif, 5).Value = "non"
End If
MsgBox ("Modification effectuée")
Else
MsgBox ("Veuillez sélectionner le modele a modifier")
Exit Sub
End If
Unload UserForm1
UserForm1.Show 0
End Sub -
-
