besoin d'aide svp

JCGL

XLDnaute Barbatruc

• 5 Décembre 2014

• #2

Re : besoin d'aide svp

Bonjour à tous,

Peux-tu essayer :

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Décembre 2014

• #3

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.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 5 Décembre 2014

• #4

Re : besoin d'aide svp

Bonsoir nordov6, JC, JM,

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

Code:

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

Cordialement.

 

Vote positif 0 Vote négatif

N

nordov6

Guest

• 5 Décembre 2014

• #5

Re : besoin d'aide svp

Staple1600 à dit:

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.

Cliquez pour agrandir...

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

 

Pièces jointes

• prof (12.xlsm

  94.3 KB · Affichages: 18
• prof (12.xlsm

  94.3 KB · Affichages: 30
• prof (12.xlsm

  94.3 KB · Affichages: 28

Vote positif 0 Vote négatif

Speel

XLDnaute Occasionnel

• 5 Décembre 2014

• #6

Re : besoin d'aide svp

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

 

Pièces jointes

• prof (12.xlsm

  86.6 KB · Affichages: 21
• prof (12.xlsm

  86.6 KB · Affichages: 30
• prof (12.xlsm

  86.6 KB · Affichages: 26

Vote positif 0 Vote négatif

N

nordov6

Guest

• 5 Décembre 2014

• #7

Re : besoin d'aide svp

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

 

Vote positif 0 Vote négatif

P

Patrick13

Guest

• 6 Décembre 2014

• #8

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".

 

Vote positif 0 Vote négatif