XL 2016 Créer une liste déroulante de noms selon ComboBox ou listbox avec nom+prénom

B

Bebere

XLDnaute Barbatruc

• 19 Octobre 2020

• #2

bonjour
explication dans feuille inscriptions

 

Pièces jointes

• Liste deroulante nomsV1.xlsm

  304.3 KB · Affichages: 21

Vote positif 0 Vote négatif

Solution

B

berru76

XLDnaute Occasionnel

• 19 Octobre 2020

• #3

Je viens de tester dans le classeur liste cela fonctionne
Dans le classeur d'origine j'ai glisse useforme1 dans feuilles et mis la formule dans feuille inscription
lorsque je fait le double clic l'useforme s'ouvre mais quand je valide me donne l'erreur comme sur photo
avez vous une idée pour rectifier mon erreur
Merci

 

Pièces jointes

• Erreur compilation.PNG

  33.8 KB · Affichages: 24
• Mis dans feuille inscription.PNG

  30.8 KB · Affichages: 30

Dernière édition: 19 Octobre 2020

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 19 Octobre 2020

• #4

dans le code L=target.row'L variable public module1
dans module1 public L as Long

 

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 19 Octobre 2020

• #5

Testé
me dis erreur comme photo
pourtant cela fonctionne bien dans classeur liste

 

Pièces jointes

• erreur 2.PNG

  24.9 KB · Affichages: 17

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 19 Octobre 2020

• #6

J'ai testé sur un autre classeur cela fonctionne bien
je vais donc essayer de d'adapter le classeur liste avec l'autre
Merci

 

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 19 Octobre 2020

• #7

Je pense avoir trouver
mon problème vient que lorsque la feuille est protégée mais pas les cellules concernées cela ne fonctionne pas
Peut t'on faire fonctionner useform1 de C4 a C99 sans déverrouillé toute la feuille
Merci

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 19 Octobre 2020

• #8

bonsoir

VB:

        Worksheets("Inscriptions").Range("C" & L) = Me.ComboBox1

situ veux passer à la ligne il faut faire comme suit

Code:

        Worksheets("Inscriptions").Range("C" & _
        L) = Me.ComboBox1

sélectionne c4:C9 sélectionne la feuille ensuite menu format de cellule cocher verrouillées
ensuite tu sélectionnes C4:C9 et tu les déverrouilles

 

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 19 Octobre 2020

• #9

Pour vb je met ou exactement
pour code je crée un module
Merci

 

Vote positif 0 Vote négatif