Checkbox

Résolu

Lameche15 Messages postés 156 Date d'inscription mardi 9 septembre 2008 Statut Membre Dernière intervention 15 septembre 2022 - 9 sept. 2008 à 15:01
pile_poil Messages postés 682 Date d'inscription vendredi 6 avril 2007 Statut Membre Dernière intervention 4 août 2012 - 11 sept. 2008 à 12:13

Bonjour à tous,

J'essaie de mettre au point une application permettant la saisie d'activité d'une entreprise.
J'ai donc une feuille de calcul sous excel pour chaque mois de l'année en cours
Un bouton me permet de lancer le code après avoir selectionner la plage de cellule à saisir.
Ce bouton m'envoie sur une Userform ou figurent plusieurs CheckBox (12) qui correspondent à des noms d'engins.
J'aimerais pouvoir en fonction des CheckBox cochées, inscrire le(s) Caption(s) correspondant(s) dans les cellules selectionnées.
Si qqn à une idée de code à me fournir je lui en serait très reconnaissant.

Merci d'avance pour vos réponses

A voir également:

Checkbox
Checkbox html choix unique ✓ - Forum Javascript / DHTML
Checkbox vba userform ✓ - Forum Visual Basic 6
Checkbox java - Forum Java
Vba checkbox coché ✓ - Forum VBA Office (Excel, Word ...)
Comment insérer un checkbox dans un jtable ? ✓ - Forum Java

22 réponses

Réponse 21 / 22

Lameche15 Messages postés 156 Date d'inscription mardi 9 septembre 2008 Statut Membre Dernière intervention 15 septembre 2022
11 sept. 2008 à 12:10

Enfait j'ai écris ca:
For i = 1 To 21 'Récupération de l'activité
    If Me.Controls("OptionButton" & i).Value = True Then
        If Range("G33") = "" Then 'Recherche case vide
            Range("G33") = Me.Controls("OptionButton" & i).Caption
            Range("G32").Interior.Color = Couleur
            Range("O32") = Activites.TextBoxLieu.Text
            ElseIf Range("G37") = "" Then
            Range("G37") = Me.Controls("OptionButton" & i).Caption
            Range("G36").Interior.Color = Couleur
            Range("O36") = Activites.TextBoxLieu.Text
            ElseIf Range("G41") = "" Then
            Range("G41") = Me.Controls("OptionButton" & i).Caption
            Range("G40").Interior.Color = Couleur
            Range("O40") = Activites.TextBoxLieu.Text
            Else
            Range("G45") = Me.Controls("OptionButton" & i).Caption
            Range("G44").Interior.Color = Couleur
            Range("O44") = Activites.TextBoxLieu.Text
        End If

    End If
Next i

Le probleme doit venir de la boucle for
Comment faire alors

Réponse 22 / 22

pile_poil Messages postés 682 Date d'inscription vendredi 6 avril 2007 Statut Membre Dernière intervention 4 août 2012 6
11 sept. 2008 à 12:13

For i = 1 To 21 'Récupération de l'activité
    If Me.Controls("OptionButton" & i).Value = True Then
        If Range("G33") = "" Then 'Recherche case vide
            Range("G33") = Me.Controls("OptionButton" & i).Caption
            Range("G32").Interior.Color = Couleur
            Range("O32") = Activites.TextBoxLieu.Text
            Exit for
         ElseIf Range("G37") = "" Then
            Range("G37") = Me.Controls("OptionButton" & i).Caption
            Range("G36").Interior.Color = Couleur
            Range("O36") = Activites.TextBoxLieu.Text
            exit for
         ElseIf Range("G41") = "" Then
            Range("G41") = Me.Controls("OptionButton" & i).Caption
            Range("G40").Interior.Color = Couleur
            Range("O40") = Activites.TextBoxLieu.Text
            exit for
         ElseIf Range("G45") = "" Then
            Range("G45") = Me.Controls("OptionButton" & i).Caption
            Range("G44").Interior.Color = Couleur
            Range("O44") = Activites.TextBoxLieu.Text
            exit for
        End If

    End If
Next i

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

Discussions similaires

Checkbox tableau php/html

controle Checkbox a choix unique

checkbox choix limité

verifier si au moins un checkbox est coché

CheckBox

Votre réponse

Discussions similaires