Sujet Précédent Sujet Suivant

Probleme excel vba

Fermé
titepestounette Messages postés 23 Date d'inscription lundi 23 novembre 2009 Statut Membre Dernière intervention 26 novembre 2009 - 25 nov. 2009 à 21:23
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 27 nov. 2009 à 21:48
Bonjour,

Voila je cherche juste à savoir pourquoi cela ne fonctionne pas

Private Sub CommandButton1_Click()
Dim str As Variant
If CheckBox1 = True Then
str = Range("A1").Value
CheckBox1 = str
else if (checkbox1 = false and checkbox2 = true) then
str = Range("A1").Value
CheckBox2 = str
else if (checkbox1 = true and checkbox2 = true) then
str = Range("A1").Value
CheckBox1 = str
str = Range("A2").Value
CheckBox2 = str
End If
End Sub

merci

titepestounette
A voir également:

4 réponses

Réponse 1 / 4
pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012 31
26 nov. 2009 à 08:53
bonjour,
il manque des End If ... ensuite j'ai pas encore tester le code
Private Sub CommandButton1_Click()
Dim str As Variant
If checkbox1 = True Then
    str = Range("A1").Value
    checkbox1 = str
Else
    If (checkbox1 = False And checkbox2 = True) Then
        str = Range("A1").Value
        checkbox2 = str
    Else
        If (checkbox1 = True And checkbox2 = True) Then
            str = Range("A1").Value
            checkbox1 = str
            str = Range("A2").Value
            checkbox2 = str
        End If
    End If
End If
End Sub
0
Réponse 2 / 4
Anauel
27 nov. 2009 à 21:31
Remplace "else if" par "elseif" , il n'y a pas d'espace entre les deux. Pas besoin d'avoir autant de if / end if comme la réponse d'avant.
0
Réponse 3 / 4
eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 244
27 nov. 2009 à 21:41
Bonsoir,

Et il y a une erreur de structure :
If CheckBox1 = True Then
...
elseif (checkbox1 = true and checkbox2 = true) then
...

Si le 1er test est positif tu ne passeras jamais dans le 2nd

eric
0
Réponse 4 / 4
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 293
27 nov. 2009 à 21:48
et je suppose que range("A1") contient vrai ou faux sinon le checbox sera null
ce qui n'arrange rien.
Explique ce que tu veux faire... et tu auras de bons conseils
0