Affichage contenu liste déroulante au lancement de userform

Y compris Power BI, Power Query et toute autre question en lien avec Excel
n
nasfat
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 1 septembre 2018
Version d'Excel : 2013

Message par nasfat » 30 septembre 2019, 15:30

Bonjour Tout le monde ,

j'ai un formulaire qui sert à afficher des données en changeant avec la flèche de la liste déroulante ,
Après j'ai fait ce petit code qui sers à lancer le formulaire en cliquant sur une cellule B ( de B1 à B100) ,
""""""""""""""""""""""""""""""""""""""
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim T As Integer

If Target.Count > 1 Then Exit Sub
For T = 1 To 100
If Not Application.Intersect(Target, Range("B" & T)) Is Nothing Then
Cancel = True
UserForm1.Show

End If
Next T
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

Ma question : je veux que si par exemple je clique sur B20 , et après que que le formulaire s'affiche => il m’apparaît directement le contenu de B20 afficher dans le comboBox1 de liste déroulante sans que moi je sélectionne. et si aprés que je veux changer par la fleche je changerai
G
Girodo
Membre dévoué
Membre dévoué
Messages : 628
Appréciations reçues : 35
Inscrit le : 24 mars 2015
Version d'Excel : 2010

Message par Girodo » 30 septembre 2019, 15:43

Salut,

Difficile sans fichier :(

Mais peut-être tout simplement :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim T As Integer

If Target.Count > 1 Then Exit Sub
For T = 1 To 100
If Not Application.Intersect(Target, Range("B" & T)) Is Nothing Then
Cancel = True
UserForm1.Show
UserForm1.ComboBox1.Value = Target.value

End If
Next T
End Sub
Petit Chêne deviendra gland ! :btres:
A
AlgoPlus
Membre dévoué
Membre dévoué
Messages : 706
Appréciations reçues : 59
Inscrit le : 27 février 2019
Version d'Excel : 2007

Message par AlgoPlus » 30 septembre 2019, 15:44

Bonjour,

un essai, en supprimant la boucle puisqu'on ne peut double cliquer qu'une cellule:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("B1:B100")) Is Nothing Then
    Cancel = True
    UserForm1.ComboBox1 = Target.Value
    UserForm1.Show
End If
End Sub
Plage Range("B1:B100") à adapter...


Edit : Bonjour Girodo
n
nasfat
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 1 septembre 2018
Version d'Excel : 2013

Message par nasfat » 30 septembre 2019, 16:21

Bonjour ALGOplus

MERCI pour la réponse ,

ci-joint le document ,
c'est presque ce que vous avez indiqué , sauf que je veux afficher le contenu de A1,2,3..... de feuille "Source " en cliquant sur B1,2,3..... de "feuil1 ",
car la liste déroulante est lié à la colonne A de feuil "source" ,
( sur visual basic il y a un code en cliquant sur feuil )

merci d'avance
modele cota.xlsm
(117.16 Kio) Téléchargé 7 fois
G
Girodo
Membre dévoué
Membre dévoué
Messages : 628
Appréciations reçues : 35
Inscrit le : 24 mars 2015
Version d'Excel : 2010

Message par Girodo » 30 septembre 2019, 16:34

Bonjour,

Dans ce cas modifie comme suit ;)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("B1:B100")) Is Nothing Then
    Cancel = True
    UserForm1.ComboBox1 = Sheets("Source").Cells(Target.Row - 1, 2).Value
    UserForm1.Show
End If
End Sub

Salut ALGOplus :)
1 membre du forum aime ce message.
Petit Chêne deviendra gland ! :btres:
n
nasfat
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 1 septembre 2018
Version d'Excel : 2013

Message par nasfat » 30 septembre 2019, 16:55

merci pour la réponse ,

Mais ca fonctionne pas :cry: :cry:

cordialement
G
Girodo
Membre dévoué
Membre dévoué
Messages : 628
Appréciations reçues : 35
Inscrit le : 24 mars 2015
Version d'Excel : 2010

Message par Girodo » 30 septembre 2019, 17:02

Salut,

Tu n'as pas de données en colonnes B de ta feuille source :p Je dis ça je dis rien ;)

J'en ai rajouté et ça affiche ce que tu veux il me semble...

Girodo,
modele cota (1).xlsm
(117.25 Kio) Téléchargé 5 fois
Petit Chêne deviendra gland ! :btres:
A
AlgoPlus
Membre dévoué
Membre dévoué
Messages : 706
Appréciations reçues : 59
Inscrit le : 27 février 2019
Version d'Excel : 2007

Message par AlgoPlus » 30 septembre 2019, 18:33

nasfat a écrit :
30 septembre 2019, 15:30
.../...Ma question : je veux que si par exemple je clique sur B20 , et après que que le formulaire s'affiche => il m’apparaît directement le contenu de B20 afficher dans le comboBox1 .../...
nasfat a écrit :
30 septembre 2019, 16:21
.../...
c'est presque ce que vous avez indiqué , sauf que je veux afficher le contenu de A1,2,3..... de feuille "Source " en cliquant sur B1,2,3..... de "feuil1 ", .../...
Quand on saura exactement le besoin ....
n
nasfat
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 1 septembre 2018
Version d'Excel : 2013

Message par nasfat » 1 octobre 2019, 09:33

merci beaucoup Girodo
c'est bien maintenant , c'est ce que je veux exactement
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message