Copier la valeur de chaque label pour chaque CheckBox validée

Bonjour à tous, :)

Débutant en VBA, je pense arriver aux limites de mes compétences actuelles et je n'arrive plus à avancer pour finaliser mon fichier.

Voici mon problème et objectif, j'ai actuellement des CheckBox (43 pour être précis) chacune associée à un Label (Checkbox1 correspond à Label1, etc), je cherche donc à copier, dans la colonne adjacente de la cellule actuelle, les valeurs des Label si les CheckBox sont validées en cliquant sur un bouton "Valider". Exemple : 3 CheckBox cochées, je clique sur "Valider" et actuellement en A5, les 3 Label associé seront insérés respectivement en B5, B6 et B7.

En espérant être assez précis.

bonjour
SI!!! tes checkboxs ont bien leur nom d'origine a la creation !!!!!!?????
boucle sur les checkbox et replace "CheckBox" par "Label" et voila

exemple 1
sans distinction(inclut tout les checkboxs du userform)

Code:

---

1 2 3 4 5 6 7 8

for each ctrl in me.controls if typename(ctrl)="CheckBox" then if ctrl.value=true then texte=texte & me.controls(replace(ctrl.name,"CheckBox","Label").caption & vbcrlf end if end if next msgbox texte

---

exemple 2
on limite les checkbox du 1 au 10

Code:

---

1 2 3

for i= 1 to 10 if me.controls("CheckBox" & i).value=true then texte=texte & me.controls("Label" & i).caption & vbcrlf next

---

Je viens de vérifier le nom de mes CheckBox et Label, tout est OK.
Je viens d'essayer l'exemple 2, et ça ne fonctionne pas. Je ne comprends pas la partie du code "Texte = Texte", pourquoi est-elle là? Le .Caption n'est pas suffisant pour remplir la cellule?

Edit : Je viens de corriger mon fichier, en alimentant mes CheckBox directement et non plus les Label, mais j'ai toujours le même soucis : aucune cellule vient se remplir.

Bonjour à tous,

Pas tout compris

les checkbox et label sont où ? sur une feuille , dans un Userform ?

Citation:

---

Exemple : 3 CheckBox cochées, je clique sur "Valider" et actuellement en A5, les 3 Label associé seront insérés respectivement en B5, B6 et B7.

---

que signifie : et actuellement en A5 . je l'ai interprété comme : après coche des checkbox, je sélectionne A5

si activeX sur feuille:

créer une bouton de commande (CommandButton)
avec son code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click() Dim i As Integer, Lig As Integer   Lig = ActiveCell.Row - 1 With Worksheets("Feuil1") ' adapter le nom de la feuille For i = 1 To 43 If .OLEObjects("CheckBox" & i).Object.Value Then 'si checkbox coché Lig = Lig + 1 donnée = .OLEObjects("Label" & i).Object.Caption .Cells(Lig, 2) = donnée End If Next End With End Sub

---

Pardon pour cette réponse réponse tardive, je n'ai pas accès au fichier et à excel le week-end.

Je pense avoir mal exprimé ma demande, je me rends compte que c'est vraiment compliqué d'expliquer sa problématique. Je vais essayer d'être le plus précis possible.
Je réalise actuellement un Userform qui s'actualise en fonction du nom de la feuille sélectionnée, les données de cette feuille remplissent directement les Checkbox de cet Userform.
Je bloque donc à l'étape la plus importante : qui est de copier les Checkbox validées de l'Userform pour les insérer dans la cellule de droite de la cellule actuelle (exemple : cellule actuelle A5, insertion des valeurs des Checkbox à partir de la cellule B5).

En espérant être assez précis.

Bonjour,

A tester (pour 10 cas ou plus)

Code:

---

1 2 3

For I = 1 To 10 If Me("CheckBox" & I) Then ActiveCell(1, I + 1) = Me("Label" & I).Caption Next

---

Nota : plus il y a de contrôles plus la programmation est longue.
On peux remplacer une quantité importante de conrôles "CheckBox" associés à autant de contrôles "Label" par un simple contrôle liste ("ComboBox" ou "Listbox") à 2 colonnes en ListOption et Multiselect

Merci pour le code il fonctionne très bien!
Je l'ai adapté ce cette manière :

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() ActiveCell.Offset(0, 1).Select For i = 1 To 43 If Me("CheckBox" & i) = True Then ActiveCell(i, 1) = Me("CheckBox" & i).Caption Next Unload Me 'Fermeture End Sub

---

Par contre j'ai maintenant un nouveau soucis qui est apparu, lorsque je sélectionne les valeurs suivantes :
Pièce jointe 454598
Le résultat obtenu est le suivant :
Pièce jointe 454604
Alors que le résultat souhaité est le suivant :
Pièce jointe 454608

Je ne comprends pas pourquoi cet espace apparaît alors que la case n'est pas cochée. Pouvez-vous m'aider?

re,

une adaptation de ce que j'avais proposé

Code:

---

1 2 3 4 5 6 7 8

Lig = ActiveCell.Row   For i = 1 To 43 If Me("CheckBox" & i) Then 'si checkbox cochée .Cells(Lig, 2) = Me("Label" & i).Caption Lig = Lig + 1 End If Next

---

A+

Le code fonctionne très bien! J'ai enlevé le "." devant .Cells et remplacé Label par CheckBox. :D
J'ai encore beaucoup de mal à comprendre le langage, mais j'apprends petit à petit!

Merci tout le monde pour votre aide! :)

Citation:

---

Le code fonctionne très bien! J'ai enlevé le "." devant .Cells et remplacé Label par CheckBox.

---

-ah oui, pour le . ; c'est pas bien de faire du copier coller sans tester !

- Pour le Label la discussion a bien pour titre Copier la valeur de chaque label pour chaque CheckBox validée ?

A+

Citation:

---

Envoyé par Algoplus

- Pour le Label la discussion a bien pour titre Copier la valeur de chaque label pour chaque CheckBox validée ?

---

C'est vrai, mais j'ai réussi à optimiser tout ça pour que les Checkbox se remplissent automatiquement! :)