IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Boucle If pour une CheckBox


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2011
    Messages
    39
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2011
    Messages : 39
    Par défaut Boucle If pour une CheckBox
    Je n'arrive pas a faire fonctionner cette boucle ; je ne vois pas où je me trompe.
    Merci de votre aide

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub Caseàcocher15_Click()
     
    If Caseàcocher15 = False Then
    ActiveSheet.Range("AG5") = ""
    ActiveSheet.Range("AG5") = "BNP PARIBAS Agence PARIS ANJOU"
    ActiveSheet.Shapes.Range(Array("Picture 2")).Visible = True
    Else
    ActiveSheet.Range("AG5") = ""
    ActiveSheet.Range("AG5") = "LBP"
    ActiveSheet.Shapes.Range(Array("Picture 2")).Visible = False
    End If
    End Sub

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Bonjour
    Je n'arrive pas a faire fonctionner cette boucle
    Ce n'est pas une boucle

    Essaies ceci (avec commentaire)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub Caseàcocher15_Click()
    Dim Res As Boolean
     
    Res = Caseàcocher15.Value                                  'Res=True si Caseàcocher15 est coché, false sinon
    Range("AG5").Value = IIf(Res, "LBP", "BNP PARIBAS Agence PARIS ANJOU")    'Si Res=True, on écrit en AG5: LBP, sinon, on écrit BNP....
    Shapes("Picture 2").Visible = Not Res                      'L'image est visible si Res=false, invisible si Res=True
    End Sub

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2011
    Messages
    39
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2011
    Messages : 39
    Par défaut
    Ok
    Je comprends la logique de ta procédure
    mais je reçois le message "Sub ou Function non définie"
    Encore une autre chose
    Pq lq porté "Private"?
    Merci

  4. #4
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Sur ta feuille tu as une case à cocher (Controle ActiveX) nommée Caseàcocher15
    Le code est mis sur l'évènement Click de cette case à cocher (donc dans le module de ta feuille)
    Private parce que le code a la portée sur l'évènement Click de Caseàcocher15!

Discussions similaires

  1. [XL-2010] boucle vba pour une formule
    Par pilounet54 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 30/01/2012, 21h00
  2. [PHP 5.2] Boucle for pour une date
    Par zemzoum89 dans le forum Langage
    Réponses: 5
    Dernier message: 29/05/2010, 23h20
  3. boucle for pour une requete
    Par MASSAKA dans le forum Langage SQL
    Réponses: 5
    Dernier message: 09/04/2010, 18h08
  4. Un validator pour une CheckBox
    Par zooffy dans le forum ASP.NET
    Réponses: 11
    Dernier message: 11/02/2008, 15h00
  5. Message pour une checkbox créée dynamiquement
    Par g0up1l dans le forum AWT/Swing
    Réponses: 6
    Dernier message: 30/03/2007, 12h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo