Sujet Précédent Sujet Suivant

Help meeeee

Fermé
Allo - 26 févr. 2018 à 17:19
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 27 févr. 2018 à 12:02
Bonjour,

Je suis en train de creer un fichier, j'aimerais que lorsque je clic sur la case a cocher cela affiche un chiffre dans une cellule. J'ai tout essayé mais rien de fonctionne.

Private Sub CheckBox1_Click() 
If CheckBox1.Value = True Then 
[F50] = [D50] 
Else 
[F50] = "" 
End If 
End Sub

cela m'affiche un message d'erreur...merci d'avanceeeee



2 réponses

Réponse 1 / 2
Pinzou76 Messages postés 609 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 25 février 2019 190
Modifié le 26 févr. 2018 à 17:25
Bonjour, avec 
If CheckBox1.Checked Then

au lieu de 
If CheckBox1.Value = True Then

ça ne marche toujours pas ?
Quel est votre message d'erreur ?
0
Allo
26 févr. 2018 à 17:52
Non plus

J'ai trouvé cette formule qui est plus adapté ( mais qui ne fonctionne pas non plus ) :

Private Sub CheckBox1()Click()
If Checkbox1.checked = true then
[A1]="125"
Else
[A1] = ""

End if
End Sub

Cela m'affiche le message d'erreur suivant :" Compile error: expected : end of statement"
0
Pinzou76 Messages postés 609 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 25 février 2019 190
27 févr. 2018 à 11:51
Je ne suis pas très doué en VBA, plutôt orienté VB.net
Je sais que dans certains langages, la condition s'exprime avec deux "=" (if a==b), sinon c'est considéré comme une affectation.

C'est peut être aussi du à la syntaxe [A1]="125", essayez avec Cells(MaCellule).Value="maValeur"
Pas sûr que ça marche avec Cells(A1).Value, je sais que c'est possible avec les coordonnées de la cellule -> Cells(0,0).Value pour la case A1.

Regardez l'emplacement de l'erreur, ça aide souvent à en comprendre la cause.
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 27 févr. 2018 à 12:05
Bonjour,

comme ceci: 

If CheckBox1.Value = True Then


Petit conseil regardez dans les propriétés du control si elle existe!


0