Help meeeee

Allo -  
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

  1.  cs_Le Pivert Contributeur
    Bonjour,

    comme ceci: 

    If CheckBox1.Value = True Then


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

    0
    1. Pinzou76
      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
      1. Allo
        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
      2. Pinzou76
        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