Affichage contenu liste déroulante au lancement de userform

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

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

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

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

8modele-cota.xlsm (117.16 Ko)

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

merci pour la réponse ,

Mais ca fonctionne pas

cordialement

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,

10modele-cota-1.xlsm (117.25 Ko)

.../...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 .../...

.../...

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 ....

merci beaucoup Girodo

c'est bien maintenant , c'est ce que je veux exactement

Rechercher des sujets similaires à "affichage contenu liste deroulante lancement userform"