Afficher valeur dans UserForm

Bonjour à tous,

Je souhaiterais, lors d'un clic sur cellules de la feuille 1 (de A1 à A10 par ex.), afficher dans un Userform, les valeur de la feuille 2 (de A1 à A5 par ex)
J'ai réussi à afficher l'userform pour une seule cellule:

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then UserForm1.Show End If End Sub

---

Pouvez vous m'aider à étendre ce code à d'autres cellules et a afficher pour chaque cellule les valeurs de la feuille 2.

D'avance merci

Bonjour,

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("A1").CurrentRegion) Is Nothing Then Cancel = False ParamRow = Target.Row: UserForm1.Show Cancel = True End If End Sub

---

Philippe,
Merci pour cette réactivité !
J'ai cependant un message d'erreur sur la ligne 4 à ParamRow. Etant novice en VBA je n'ai pas d'explication

Merci

Bonjour,
Je suis désolé de cette bavure. En effet je t'ai copié le code que j'ai réalisé hier pour afficher la ligne sélectionnée et j'utilisais pour cette démonstration une variable publique nommée ParamRow qui a comme valeur le numéro de la ligne sélectionnée.
Le bon code est

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("A1").CurrentRegion) Is Nothing Then Cancel = False UserForm1.Show Cancel = True End If End Sub

---

Yes !

Maintenant, est-il possible d'afficher dans mon userform, les valeurs liées à chaque cellules ?

Je m'explique: Quand je double clic sur la cellule A1, j'aimerais afficher dans mon userform, les valeurs se trouvant sur la feuille 2 (colonne A et lignes de 1 à 5 par ex.)

Bonjour,
S'il s'agit d'afficher les cellules d'une autre feuille mais de la même ligne, il y a plusieurs manière d'y arriver.
La façon la plus simple est de récupérer le n° de la ligne de la cellule active (celle sur laquelle on a fait un double clic).
Petit exemple : Code à placer dans le formulaire nommé UserForm1 en tenant compte que l'on a fait le double clic sur une feuille et que les données à afficher sont sur une feuille nommée Feuille2.

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit Dim rngData As Range Private Sub UserForm_Initialize() Dim RowNumber As Long Set rngData = ThisWorkbook.Worksheets("Feuil2").Range("A1").CurrentRegion RowNumber = ActiveCell.Row With Me .TextBox1 = rngData.Cells(RowNumber, 1) End With End Sub

---

Merci pour le temps consacré à mon projet. Je me permets de joindre un exemple, car ce n'est pas encore tout à fait ce que je cherche à réaliser.
Afin d'être plus précis sur mes attentes, je souhaite faire un tableau Excel affichant les droits attribués aux dossiers de notre serveur de fichiers et ce pour chaque dossiers. Dans mon exemple, j'ai créé une liste de dossiers (feuille 1) et une liste d'utilisateurs (feuille 2). Ce que je souhaite exactement, c'est lors d'un double clic sur la cellule "Automatisme" (feuille 1), une userform m'affiche tous les utilisateurs de la colonne A de la feuille 2, pour la cellule "Electrique" (feuille 1), une userform avec la liste des utilisateurs colonne B de la feuille 2 etc...
Je ne sais pas si c'est la meilleure des méthodes !

Encore merci