Macro double clic cellule

Salut à tous,

J'aimerais votre aide concernant l'évènement double clic sur une cellule pour lancer un macro,

j'ai un classeur avec 2 onglets, le 1er contient des numéro de ligne du 2eme …

j'aimerais en cliquant 2 fois une cellule de la feuille 1 = il me déplace directement sur la ligne concernée et la sélectionné …

Merci d'avance de votre aide

Bonjour vikio, le forum,

Un essai....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim plage As Range

  Set plage = Sheets("Feuil1").Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)

 If Not Application.Intersect(Target, plage) Is Nothing Then
  If Target.Value = "" Then Exit Sub
  Sheets("Feuil2").Activate
  Sheets("Feuil2").Rows(Target).Select
 End If
 Cancel = True
End Sub

Cordialement,

Bonjour,

La solution est parfaite … un petit détail que je n'ai pas précisé, c'est que les numéros de lignes de la feuille 1 sont un peu partout et pas forcément dans une colonne …

Peut-on améliorer la plage ? ou la rendre sur toute la feuille 1 ?

Merci de ton aide.

Re,

Merci pour ton retour,

A tester....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim plage As Range
 Dim dl As Long, dc As Long

              dc = Sheets("Feuil1").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
              dl = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
       Set plage = Sheets("Feuil1").Range(Cells(2, 1), Cells(dl, dc))

 If Not Application.Intersect(Target, plage) Is Nothing Then
  If Target.Value = "" Then Exit Sub
   Sheets("Feuil2").Activate
   Sheets("Feuil2").Rows(Target).Select
 End If
 Cancel = True
End Sub

L'ajout de ligne où de colonne est pris en compte (à condition que la colonne A et la ligne 1 soient remplies).

Cordialement,

Re,

Merci, j'ai adapté le code et ça fonctionne nickel chrome

Merci de ton aide … et de ta réactivité