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 dans checkbox


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Inscrit en
    Novembre 2007
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Novembre 2007
    Messages : 15
    Par défaut boucle dans checkbox
    'voici mon code qui se declanche par un bouton dans un userform
    'mon probleme est que dans la boucle plus bas je lui met qu'a chaque valeur true du checkbox il m'inscrit sa valeur dans une cellule mais il me le fait autant de fois que j'ai de checkbox alors que je voudrais que si je n ai coché qu'une seule case que la boucle s'arrete apres cette seule case est ce possible ?

    cette boucle je l ai mis en gras pour que l on s'y retrouve

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    Private Sub inscrireprocedureetpoint_Click()
    Range("d2:d6,d8:d12").ClearContents
    Dim k, i
    Dim pointdiscuter
    
    
    
    For Each ctrl In UserForm1.pointdiscuter.Controls
        k = k + ctrl.Value
    Next ctrl
    If k = 0 Then
    MsgBox ("Indiquez au moins un point à discuter.")
    Exit Sub
    End If
    i = 1
    For Each ctrl In UserForm1.pointdiscuter.Controls[
    If ctrl.Value = True Then pointdiscuter = Trim(ctrl.Caption)
    
    i = i + 1
    Range("a" & i).Value = pointdiscuter
    Next ctrl
    End Sub

  2. #2
    Membre confirmé
    Inscrit en
    Février 2006
    Messages
    79
    Détails du profil
    Informations personnelles :
    Âge : 39

    Informations forums :
    Inscription : Février 2006
    Messages : 79
    Par défaut
    Bon, si j'ai bien compris ta question.

    Tu veux sortir ta boucle si elle rencontre une case cochée. Dans ce cas, lorsque que tu tombes sur un checkbox qui est coché tu quittes la boucle for.

    D'après mes souvenirs ça doit être : "exit for"
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
     
     
    Private Sub inscrireprocedureetpoint_Click()
    Range("d2:d6,d8:d12").ClearContents
    Dim k, i
    Dim pointdiscuter
     
     
     
    For Each ctrl In UserForm1.pointdiscuter.Controls
        k = k + ctrl.Value
    Next ctrl
    If k = 0 Then
    MsgBox ("Indiquez au moins un point à discuter.")
    Exit Sub
    End If
    i = 1
    For Each ctrl In UserForm1.pointdiscuter.Controls[
    If ctrl.Value = True Then pointdiscuter = Trim(ctrl.Caption)
     
    i = i + 1
    Range("a" & i).Value = pointdiscuter
    exit for
    Next ctrl
    End Sub
    Voila tiens nous au courant

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [PHP 5.0] boucle et checkbox dans un formulaire
    Par Kuchiki Byakuya dans le forum Langage
    Réponses: 4
    Dernier message: 23/03/2010, 23h45
  2. [Tableaux] recuperer valeurs dans checkbox
    Par lch07 dans le forum Langage
    Réponses: 14
    Dernier message: 05/01/2006, 15h06
  3. [struts] Attribut "value" changeant dans checkbox
    Par javaSudOuest dans le forum Struts 1
    Réponses: 6
    Dernier message: 30/09/2005, 16h09
  4. Creer une boucle dans une requête ???
    Par fdloisel dans le forum MS SQL Server
    Réponses: 4
    Dernier message: 26/10/2004, 14h05
  5. Notion de boucles dans Business Object
    Par lionelEIGIP dans le forum Deski
    Réponses: 1
    Dernier message: 08/04/2004, 11h26

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