Else sans If
Résolu/Fermé
David34300
Messages postés
2
Date d'inscription
dimanche 4 mars 2018
Statut
Membre
Dernière intervention
4 mars 2018
-
Modifié le 4 mars 2018 à 17:27
Gaston - 4 mars 2018 à 23:19
Gaston - 4 mars 2018 à 23:19
1 réponse
ccm81
Messages postés
10902
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 novembre 2024
2 425
Modifié le 4 mars 2018 à 17:35
Modifié le 4 mars 2018 à 17:35
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édure
RQ. Quand u envoies du code, utilise la coloration syntaxique (le symbole flèche bas en haut à droite de la fenetre d'édition)
Cdlmnt
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édure
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
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
4 mars 2018 à 18:01
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
4 mars 2018 à 20:28
4 mars 2018 à 23:19
Il semblerait en fin de programme que le do case soit mieux adapté que le if