besoin d'aide svp

[nordov6]

salut ts le monde
merci pour tous ce qui donne son aide
le problème c'est que si je veux ajouter un combo box il de met débogage en sélectionne dans vba (Next y ) en jaune
je ne sais pas quoi faire

 

[JCGL]

Re : besoin d'aide svp

Bonjour à tous,

Peux-tu essayer :

Private Sub C1_Click()
On Error Resume Next
 For y = 2 To 10: Me("C" & y) = C1.List(C1.ListIndex, y - 1): Next y
End Sub

A+ à tous

 

[Staple1600]

Re : besoin d'aide svp

Bonjour à tous, JCGL


nordov6
Pourquoi ne pas être resté dans ton fil initial où tu avais déjà eu des réponses ?
https://www.excel-downloads.com/threads/userform-besoin-daide-svp.226655/
Il se suffisait de faire un up dans ce premier fil.

 

[Papou-net]

Re : besoin d'aide svp

Bonsoir nordov6, JC, JM,

Une variante avec "bornage" de la liste déroulante:

Private Sub C1_Click()
 For y = 0 To C1.ListCount - 1: Feuil18.Range("C" & y + 2) = C1.List(y): Next y
End Sub

Cordialement.

 

[nordov6]

Re : besoin d'aide svp

Bonjour à tous, JCGL


nordov6
Pourquoi ne pas être resté dans ton fil initial où tu avais déjà eu des réponses ?
https://www.excel-downloads.com/threads/userform-besoin-daide-svp.226655/
Il se suffisait de faire un up dans ce premier fil.

oui vous avez dit la vérité
j'ai besoin d un usf avec 39 objets se sont des données pour prof
et merci d'avance

 

[Speel]

Re : besoin d'aide svp

Bonsoir,
Des i à la place de j et le Combobox10 mal nommé , maintenant ça marche

 

[nordov6]

Re : besoin d'aide svp

merci bien
vraiment j'ai pas bien observer
et merci bien d'avance

 

[Patrick13]

Re : besoin d'aide svp

Bonjour,
Tu as agrandis ton tableau donc tu doit le déclarer dans tes lignes.
les "range" ne sont plus: Feuil18.Range("a2:i" mais Feuil18.Range("a2:J".