Discussion :

[tools]

Bonjour!

Nouveau sur le forum et tout autant en VBA,
J'ai 2 gros soucis sur mon fichiers pour le moment:

1) je souhaite supprimer la ligne d'en-tête dans mes combobox, pour le moment, j'ai réussi la suppression de doublons grâce à un code trouver dans un tuto:

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
Dim prio As Integer
 
    'Boucle sur les cellule de la colonne A
    For prio = 1 To Range("A65536").End(xlUp).Row
 
        'Remplit la zone d'édition du ComboBox
        Prio_ComboBox = Range("R" & prio)
 
        'ComboBox1.ListIndex renvoie -1 si la donnée n'existe pas dans
        'la liste déroulante. Dans ce cas, on va pouvoir utiliser la méthode AddItem
        'pour intégrer la donnée dans le ComboBox.
        '(Range("A" & i) <> "" permet simplement de gérer les éventuelles cellules vides
        'dans la colonne A).
        If Prio_ComboBox.ListIndex = -1 And Range("R" & prio) <> "" Then _
            Prio_ComboBox.AddItem Range("R" & prio)
    Next prio

Mais maintenant j'ai aussi l'en-tête de ma colonne (A1)

D'avance Merci

2)Grâce un un combobox, j'obtiens une valeur que je veux chercher dans une table excel, en fonction de cette valeur j'obtiens 5 autre valeurs ,j'aimerais placer celle-ci dans des case de ma feuille principal.

Le fichier ci-joint je l'espère represente ce que je veux faire.

D'avance Merci de prendre le temps de me renseigné, j'espère que aucun de ces sujet n'as déjà été traité sur le forum même si j'en doute.

Cordialement

Merci

[Heruvor]

Hello,

Concernant le 2e problème, si j'ai bien compris tu veux récupérer les infos de ton tableau en feuille2 pour les mettre en feuille1 selon l'identifiant que tu as choisi dans la combobox ?

Si c'est bien le cas, tu pux y arriver en utilisant la propriété combobox.listindex (voir le fichier joint).

[Philippe Tulliez]

Bonjour,
Pour ton problème n°1
Commence ta boucle de la colonne A à 2

Code :

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

For prio = 2 To Range("A65536").End(xlUp).Row

Par contre si tu veux ajouter un titre après, il suffit de mettre la propriété 'ColumnHeads' du COMBOBOX à True.

[tools]

Merci pour vos conseils, ils m'ont été utiles!
Une bonne et heureuse année!!
Encore merci
Cordialement