Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Userform affiche ligne sélectionnée

Sylvain59

XLDnaute Occasionnel
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
 

Pièces jointes

  • exemple.xls
    13.5 KB · Affichages: 97
  • exemple.xls
    13.5 KB · Affichages: 92
  • exemple.xls
    13.5 KB · Affichages: 93

Cousinhub

XLDnaute Barbatruc
Inactif
Re : Userform affiche ligne sélectionnée

Bonjour,
regarde le fichier joint.

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

Code:
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)

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

Pièces jointes

  • sl59v1.zip
    7 KB · Affichages: 103

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Userform affiche ligne sélectionnée

Bonjour,

Code:
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
 

Pièces jointes

  • VisuLigneForm.xls
    32.5 KB · Affichages: 137

Discussions similaires

Réponses
11
Affichages
706
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…