Liste à choix multiple
Résolu/Fermé
juer31
Messages postés
107
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
25 mars 2024
-
5 oct. 2017 à 21:06
juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 - 10 oct. 2017 à 16:43
juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 - 10 oct. 2017 à 16:43
A voir également:
- Liste à choix multiple
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Gertrude a préparé la liste des affaires à prendre pour l'excursion. juliette a modifié cette liste en utilisant le mode suivi des modifications proposé par le traitement de texte. - Guide
- Liste de diffusion whatsapp - Guide
- Superposez les images à télécharger avec le logiciel de votre choix. quel animal apparaît ? ✓ - Forum Photo numérique
1 réponse
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 681
5 oct. 2017 à 21:34
5 oct. 2017 à 21:34
Bonjour,
Ta validation modifiée selon ton souhait
Ta validation modifiée selon ton souhait
Private Sub CommandButton1_Click() 'bouton valider 'ActiveCell.Select ' inutile si activée elle est sélectionnée ReDim tx(1 To 1) For k = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(k) = True Then tx(UBound(tx)) = ListBox1.List(k) ReDim Preserve tx(1 To UBound(tx) + 1) End If Next Application.EnableEvents = False If xx <> "" And UBound(tx) = 1 Then ActiveCell.Value = xx If xx = "" And UBound(tx) > 1 Then ActiveCell.Resize(UBound(tx), 1).Value = Application.Transpose(tx) If xx <> "" And UBound(tx) > 1 Then ActiveCell.Value = xx: ActiveCell.Offset(1, 0).Resize(UBound(tx), 1).Value = Application.Transpose(tx) If xx = "" And UBound(tx) = 1 Then ActiveCell.Value = "" fin: Application.EnableEvents = True Unload UserForm2 'on ferme le formulaire End Sub
5 oct. 2017 à 22:00
Tout est #1
6 oct. 2017 à 20:01
6 oct. 2017 à 21:27
Il te suffit de remplacer 'ActiveCell' par '[A6]'
10 oct. 2017 à 16:43