Discussion :

[Vincent23]

Bonjour,

Je réalise un UserForm sous excel en VBA pour la première fois... et c'est pas facile. Malgrés la foultitude d'informations que j'ai pu récupérer sur le site, j'ai toujours du mal.

Je dispose de la version Excel 2003 et j'ai besoin de votre aide concernant 2 problèmes :

1°) J'ai effectué une combobox à 2 colonnes (dans les propriétés RowSource j'ai fait:feuille2!Celluledébut:Cellulefin cela fonctionne) cependant je n'arrive pas à inscrire le résultat de la ligne sélectionné dans les 2 colonnes de destination de mon tableau (PS les valeurs de ma combobox sont stockées sur la feuille 2, et le tableau de destination est sur la feuille1).

2°) Je souhaite égallement réaliser une numérotation automatique dans la première colonne de mon tableau.

Si vous pouvez m'aider en m'indiquant un code à suivre et à me l'expliquer (ou je mets le nom des feuilles, de ma combobox, de mes cellules de destination etc...)

Je rappelle que je suis un débutant.

Merci énormément par avance et je vous félicite pour la qualité du site.

Vincent

[Commodore]

Salut,

Pour le 1°), si je comprend bien tu souhaites que quand tu cliques sur le bon champ de ta liste déroulante la valeur sélectionnée s'affiche dans une plage de destination d'une feuille Excel ?

Pour le 2°), qu'appelles tu une "numérotation automatique" ? numéroter les lignes de ta liste déroulante de 1 à 10 s'il y a 10 lignes par exemple ?

[Vincent23]

C'est exactement ce que je cherche à faire toutefois je précise que pour le 1°)je souhaite que chacune de mes colonnes de ma liste déroulante s'affiche dans 2 colonnes de ma feuille 1
pour le 2°) c'est ce que je souhaiterais faire

Merci de ta rapidité et de ton aide

[Vincent23]

euh en fait j'ai répondu trop vite pour le deuxième ce n'est pas le menu déroulant que je souhaite numéroter mais les lignes de mon tableau (lorsque je clique sur valider, mon code insère une nouvelle ligne et je voudrais que celà m'ajoute automatiquement 1,2,3... un peu comme si je tirais dans le coin à droite de ma cellule, cela me permettrait de connaître le nombre de lignes dans mon tableau

Merci

[Commodore]

peux-tu poster le code déjà en place pour ton form stp ?

[fring]

Bonjour tlm,

Tu peux t'inspirer de cette procédure événementielle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub ComboBox1_Change()
Dim DerL As Integer
 
With Sheets(2)
    If .Cells(2, 1) = "" Then
        DerL = 2
        .Cells(2, 1) = 1
    Else
        DerL = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Cells(DerL, 1) = Cells(DerL - 1, 1) + 1
    End If
 
    .Cells(DerL, 2) = Me.ComboBox1.List(ComboBox1.ListIndex, 0)
    .Cells(DerL, 3) = Me.ComboBox1.List(ComboBox1.ListIndex, 1)
 
End With
End Sub

[Vincent23]

Okay j'anonyme mon fichier et je le met en ligne ce soir (le code peut vous paraïtre un peu bricolage de fortune, mais je débute...)
En tout cas merci beaucoup de vous intéresser à mon cas.