Macro

[gourdin]

Bonjour,

J'ai besoin d'aide sur une macro mais mon problème me semble un peu difficile à expliquer,

c'est pourquoi je joint un fichier.

Merci

 

[pierrejean]

Re : Macro

bonjour gourdin

A tester:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Target.Cells(1, 1).Value = "clic" Then
Range("B3").Value = Target.Offset(0, -1)
Range("C3").Value = Target.Offset(0, -1).End(xlDown).Value
End If
End Sub

 

[jp14]

Re : Macro

Bonjour
Salut Pierrejean

Une procédure à tester

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim data1 As String
Dim cellule As Range
Dim dl1 As Long ' dernière ligne
If Target.Count > 1 Then Exit Sub
With Sheets(Target.Worksheet.Name)
dl1 = .Range("c65536").End(xlUp).Row
If Not Intersect(Target, Range("c4:c" & dl1)) Is Nothing Then
    If Target.Value <> "clic" Then Exit Sub
    ' on recherche l'intervalle
    For i = 1 To dl1
        If Target.Offset(i, -1) <> "" Then Exit For
    Next i
        Range("B3").Value = Target.Offset(0, -1)
        Range("C3").Value = Target.Offset(i, -1)
End If
End With
End Sub

JP

 

[Gorfael]

Re : Macro

Salut gourdin, jp14, pierrejean et le forum
pierrejean, la même ou presque

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Count > 1 Then Exit Sub
If Target = "clic" Then
    [B3] = Target.Offset(0, -1)
    [C3] = Target.Offset(0, -1).End(xlDown)
End If
End Sub

A+

 

[gourdin]

Re : Macro

Merci à vous trois,

C'est impeccable

Toujours aussi efficaces