Help meeeee

Fermé

Allo - 26 févr. 2018 à 17:19
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 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 614 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 25 février 2019 191
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 ?

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"

Pinzou76 Messages postés 614 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 25 février 2019 191
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.

Réponse 2 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
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!