Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 26/09/2011, 22h52   #1
Invité régulier
 
Inscription : décembre 2010
Messages : 32
Détails du profil
Informations forums :
Inscription : décembre 2010
Messages : 32
Points : 7
Points : 7
Par défaut Selection d'un choix effectué dans une liste déroulante

Bonjour à tous,

Étant débutant sous excel, je me permets de vous poser le problème suivant, incapable à résoudre avec mes quelques connaissances.

J'ai une combobox que j'alimente à l'aide du code suivant :
Code :
1
2
3
4
5
With ForComboBox
With Sheets("Base_Données").Range("C2")
Me.ForComboBox.RowSource = Range(.Cells, .End(xlDown)(1, 1)).Address(External:=True)
End With
End With
Ma question est : Quel code écrire afin d' afficher la colonne J de la donnée sélectionnée dans la combobox ? (la donnée doit être affichée dans dans label1 )

Avez vous une idée ?

En vous remerciant d'avance
jerem1 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 26/09/2011, 23h15   #2
Expert Confirmé Sénior
 
Avatar de jfontaine
 
Homme Jérôme FONTAINE
Contrôleur de Gestion
Inscription : juin 2006
Messages : 3 899
Détails du profil
Informations personnelles :
Nom : Homme Jérôme FONTAINE
Âge : 38
Localisation : France, Sarthe (Pays de la Loire)

Informations professionnelles :
Activité : Contrôleur de Gestion

Informations forums :
Inscription : juin 2006
Messages : 3 899
Points : 7 185
Points : 7 185
Bonjour,

Une solution avec Find
Code :
1
2
3
Dim rg As Range
Set rg = Sheets("Feuil2").Range("C:C").Find(ComboBox1.Value, lookin:=xlWhole)
Label1.Caption = rg.Offset(0, 7).Value
__________________
Jérôme

Citation:
"Ils ne savaient pas que c'était impossible, alors ils l'ont fait" - Marc Twain
Si la réponse répond à votre besoin, votre vote nous encouragera.
Dans le cas ou la réponse mérite, à vos yeux, un , nous faire partager la raison de ce vote, pourrait nous permettre de nous améliorer.
jfontaine est actuellement connecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 22h43.


 
 
 
 
Partenaires

Hébergement Web