Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

boucle for avec checkbox

  • Initiateur de la discussion Initiateur de la discussion Lili17
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

Lili17

Guest
Bonjour à tous,

Dans un userform, j'ai plusieurs checkbox (de 1 à 79).
J'ai également plusieurs champs textes (de 1 à 79).
voici ce que je recherche à faire :
si la checkbox est cochée, je veux afficher en A1 "commentaire" + valeur du champs texte
si la checkbox n'est pas cochée, je veux afficher en A1 valeur du champs texte uniquement

J'ai réussi à le faire sans problème pour une:
If checkbox1.Value = True Then
Sheets("Feuil1").Range("A1") = "commentaire" & texte1
Else
Sheets("Feuil1").Range("A1") = texte1
End If

est-il possible de créer une boucle avec For ou For Each , afin de ne pas me taper 79 fois la commande ?
Merci de votre aide
 
Re : boucle for avec checkbox

oui c'est bien mon pbm.
je ne veux pas afficher le tag, mais la valeur du tag.

CheckBox1.tag = TextBox1

donc si CheckBox1 est cochée, je veux mettre la valeur de TextBox1 dans le tableau (en passant par les tag).
 
Re : boucle for avec checkbox

Pourquoi passer par les Tag

Le code ci-dessous ne suffit pas ?
Code:
Private Sub CommandButton1_Click()
Dim i, tablo(2)
For i = 1 To 2
If Controls("CheckBox" & i) And Not IsEmpty(Controls("TextBox" & i)) Then
tablo(i) = Controls("TextBox" & i).Text
End If
Next i
MsgBox tablo(1)
MsgBox tablo(2)
End Sub
j'ai testé cela fonctionne sur mon PC.
 
Re : boucle for avec checkbox

bonjour a tous

vois si tu peux t'inspirer de ceci

Edit: @ TempusFugit:
D'apres le fil il semble que le passage par le tag soit necessaire a cause de la non concordance des n° de checkbox et de textbox
 

Pièces jointes

Dernière édition:
Re : boucle for avec checkbox

Merci de m'avoir libéré !!!! 😉
Je ne sais pas pourquoi je m'obstinais à vouloir utiliser les .Tag...

Merci bcp pour ton aide, je pars en week end serein 😉
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
179
Réponses
15
Affichages
791
Réponses
18
Affichages
1 K
Réponses
4
Affichages
756
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…