Reporter valeurs checkbox cochés sur feuille VBA
Résolu/Fermé
Kayna.86
Kayna.86
- Messages postés
- 42
- Date d'inscription
- mercredi 31 octobre 2012
- Statut
- Membre
- Dernière intervention
- 17 avril 2013
Kayna.86
- Messages postés
- 42
- Date d'inscription
- mercredi 31 octobre 2012
- Statut
- Membre
- Dernière intervention
- 17 avril 2013
A voir également:
- Récupérer valeur checkbox vba
- Vba case à cocher dans feuille excel - Meilleures réponses
- Récuperation de la valeur de CheckBox ✓ - Forum - VB / VBA
- Comment récupérer les données des cases à cocher ? ✓ - Forum - VB / VBA
- Récupérer valeur checkbox ✓ - Forum - Programmation
- Valeur case à cocher ✓ - Forum - VB / VBA
- Reporter valeurs checkbox cochés sur feuille VBA ✓ - Forum - Excel
4 réponses
Kayna.86
27 nov. 2012 à 00:03
- Messages postés
- 42
- Date d'inscription
- mercredi 31 octobre 2012
- Statut
- Membre
- Dernière intervention
- 17 avril 2013
27 nov. 2012 à 00:03
C'est impeccable!
J'ai juste eu a rajouter le "Next ctrl" qui manquait, pour que ça fonctionne!!
Merci beaucoup! :)
Bonne soirée!
Kayna
J'ai juste eu a rajouter le "Next ctrl" qui manquait, pour que ça fonctionne!!
Merci beaucoup! :)
Bonne soirée!
Kayna
Kayna.86
27 nov. 2012 à 10:01
- Messages postés
- 42
- Date d'inscription
- mercredi 31 octobre 2012
- Statut
- Membre
- Dernière intervention
- 17 avril 2013
27 nov. 2012 à 10:01
Bonjour le Pingou,
Je me permets d'abuser de ta gentillesse. :-)
Jesouhaiterais réaliser la même manoeuvre mais cette fois-ci à partir d'une textbox, c'est-à dire que je souhaite reporter les différentes valeurs renseignées dans une textbox sur une plage de données excel.
J'ai donc adapter tes lignes de codes en fonction et j'obtiens ceci:
Private CommandButton1_Click()
Dim Ctrl As Control
Dim j As Integer
j = 1
For Each Ctrl In SITES.Controls
If Range("E24").Offset(j - 1, 0) = Ctrl.Object.Value
j = j + 1
End If
Next Ctrl
Unload Me
End Sub
le code fonctionne mais pas comme je le voudrais. En fait, toutes les entrées du (de la?) textbox sont considérées comme une seule valeur qui est reportée dans la cellule E24. J'obtiens par exemple ces 4 villes suivantes, les unes en-dessous des dans la même cellule. Or je voudrais qu'elles appraissent dans 4 cellules différentes. Peux-tu m'aider? :-)
"Paris
Marseille
Nice
Lyon"
Je me permets d'abuser de ta gentillesse. :-)
Jesouhaiterais réaliser la même manoeuvre mais cette fois-ci à partir d'une textbox, c'est-à dire que je souhaite reporter les différentes valeurs renseignées dans une textbox sur une plage de données excel.
J'ai donc adapter tes lignes de codes en fonction et j'obtiens ceci:
Private CommandButton1_Click()
Dim Ctrl As Control
Dim j As Integer
j = 1
For Each Ctrl In SITES.Controls
If Range("E24").Offset(j - 1, 0) = Ctrl.Object.Value
j = j + 1
End If
Next Ctrl
Unload Me
End Sub
le code fonctionne mais pas comme je le voudrais. En fait, toutes les entrées du (de la?) textbox sont considérées comme une seule valeur qui est reportée dans la cellule E24. J'obtiens par exemple ces 4 villes suivantes, les unes en-dessous des dans la même cellule. Or je voudrais qu'elles appraissent dans 4 cellules différentes. Peux-tu m'aider? :-)
"Paris
Marseille
Nice
Lyon"
Le Pingou
26 nov. 2012 à 21:58
- Messages postés
- 11062
- Date d'inscription
- mercredi 11 août 2004
- Statut
- Contributeur
- Dernière intervention
- 28 juin 2022
26 nov. 2012 à 21:58
Bonjour,
Essayer cette procédure :
Essayer cette procédure :
Private CommandButton1_Click() Dim Ctrl As Control Dim j As Integer j=1 For Each Ctrl In Userform.Controls If TypeName(Ctrl) = "CheckBox" Then If Ctrl.Value = True Then Range("E24").Offset(J - 1, 0) = Ctrl.Value j=j+1 End If End If End Sub
Kayna.86
27 nov. 2012 à 14:41
- Messages postés
- 42
- Date d'inscription
- mercredi 31 octobre 2012
- Statut
- Membre
- Dernière intervention
- 17 avril 2013
27 nov. 2012 à 14:41
J'ai fini par trouver!
Désolée pour le dérangement. ;)
Kayna.
Désolée pour le dérangement. ;)
Kayna.