Décocher une "boite à cocher"

Kristoch91 -  
Polux31 Messages postés 7219 Statut Membre -
Bonjour,
Bonjour,
j'aimerai que lorsqu'uen fonction "Sub" se termine la boite à cocher se "décoche".
comment je pourrais cocher ca en VBA?
merci d'avance
Configuration:
Configuration: Windows 2000
Internet Explorer 6.0

4 réponses

  1. Polux31 Messages postés 7219 Statut Membre 1 204
     
    bonjour,

    Juste avant End Sub mettre CheckBox1.Value = False

    ;o)

    polux
    0
    1. Kristoch91
       
      ma case à cocher est fait direct avec Excel et je n'arrive pas à chager le nom de propriété de cet fameuse case. quand je vais dans les propriétés il n'y a rien pour le faire ni même pour changer la police d'écriture.
      si quelqu'un avait un idée.
      0
  2. aquarelle Messages postés 7181 Date d'inscription   Statut Modérateur Dernière intervention   1 311
     
    Bonjour,
    En écrivant :
    CheckBox.Value = False
    Non ?
    Bonne journée

    <EDIT> Pff, j'ai pas été assez rapide ma connexion mouline un peu ;-))<EDIT>
    0
    1. Polux31 Messages postés 7219 Statut Membre 1 204
       
      :O)) ...
      0
  3. Polux31 Messages postés 7219 Statut Membre 1 204
     
    Pour changer le nom, c'est la propriété Name et pour la police c'est Font.

    ;o)
    0
    1. Kristoch91
       
      bon maintenant je suis arrivé à changer le nom et la police.
      mais jarrive toujours pas à décocher ma case!
      0
  4. Polux31 Messages postés 7219 Statut Membre 1 204
     
    Quand tu es en mode création (le bouton avec une équerre dans le menu visual basic), tu double-cliques sur la case à cocher, tu vas avoir l'éditeur VB qui s'ouvres avec le module de la feuille et un truc comme ça :
    Private Sub CheckBox1_Click()
        'mettre le code ici
    End Sub

    Ca va te donner une truc comme ça :
    Private Sub CheckBox1_Click
    If CheckBox1.Value = True Then
        'le code a exécuter pour faire celà
    Else
        'sinon le code pour faire ceci
    End If
    CheckBox1.Value = False
    End Sub


    ;o)

    polux
    0