ComboBox dans un Userform

Question

Re-bonjour le forum,

J'ai un Userform dans lequel figure une listeBox (liste en colonne A d'un autre onglet du fichier) que je fais afficher quand l'utilisateur clique sur la petite flêche ascenseur à l'aide de la commande :

ComboAgences.RowSource = "AG!Es"

Puis, quand je veux récupérer cette valeur pour la mettre dans un autre tableau, j'utilise la commande :

Sheets("Récap").Cells(ligne, 1) = Me.ComboAgences.Value

Mais, maintenant, j'aimerai récupérer la valeur de la colonne d'à côté... Une sorte de Me.ComboAgences.Value + 1(colonne)...

Mais je n'arrive pas à trouver l'astuce. Est-ce qu'un spécialiste VBA peut m'aider ?

Merci d'avance.

Fabrice,

EricF · Answer

Je ne suis pas un spécialiste du VBA mais je me débrouille. Essaye : x = Me.ComboAgences.Value "Ta cellule où tu veux que la réponse apparaisse" = x + Cells(x, x+1)...

EricF · Answer

Alors, c'est la définition du "x" qui est erronée parce que la méthode pour calculer la valeur de la colonne d'à côté est bonne elle.

Il faudrait voir avec ton Rowsource mais là, je ne le comprends pas.

EricF · Answer

Bon, on y retourne,

Dim tablo As Range

Set tablo = Worksheets("TAFEUILLE").Range("A2:B300")

x = ComboAgences.Value

y = Application.WorksheetFunction.VLookup(x, tablo, 2)

Range("??").Value = y

Tu as deux variables à changer : TAFEUILLE et ?? dans la dernière ligne

Invité · Answer

Fabrice, définir ta plage AG!Es sur la plage "A2:B330" Utlise ensuite une combobox multi-colonne ColumnCount=2 Si tu ne veux pas voir afficher les deux colonnes (à adapter pour la largeur) ColumnWidhts = 100;0 Pour récupérer la deuxième valeur selon la sélection ComboBox2.Column(1, ComboBox2.ListIndex) Joyeuses Fêtes à tous Mytå...