Discussion :

[allondin]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[allondin]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[allondin]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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