Userform affiche ligne sélectionnée

[Sylvain59]

Je viens encore solliciter votre aide au sujet d'un problème que je n'arrive pas à résoudre seul
voila je désire sélectionne une cellule de la colonne par un clic droit et que cela fait apparaisse un userform qui affiche les valeurs des colonnes b c d et e
de la même ligne
par exmple je sélectionne par clic droit A9 l'userform fera apparaitre les valeurs

A9 b9 c9 d9 et e9
je joins un petit fichier

Merci de votre aide
je coince la dessus depuis ce matin

 

[Cousinhub]

Re : Userform affiche ligne sélectionnée

Bonjour,
regarde le fichier joint.

le code de l'évènement de feuille :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target <> "" Then UserForm1.Show
End Sub

et le code d'initialisation de l'usf : (il faut que la listbox contiennent 5 colonnes, clic droit sur propriétés, ColumnCount à 5)

Private Sub UserForm_Initialize()
    Me.ListBox1.RowSource = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 5)).Address
End Sub

 

[Sylvain59]

Re : Userform affiche ligne sélectionnée

merci impeccable

 

[BOISGONTIER]

Re : Userform affiche ligne sélectionnée

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A8:A1000], Target) Is Nothing And Target.Count = 1 Then
 If Target <> "" Then
   UserForm1.Show
   UserForm1.ListBox1.List = Target.Resize(1, 5).Value
 End If
End If
End Sub

JB
Formation Excel VBA JB