Help meeeee

Allo -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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.
    Pinzou76 Messages postés 750 Statut Membre 192
     
    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 Messages postés 750 Statut Membre 192
       
      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
  2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    comme ceci: 

    If CheckBox1.Value = True Then


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

    0