Terminé une macro

[wachoo31]

Bonsoir a tout le forum

Je joint un fichier dans lequelle je n'arrive pas a terminé une macro

Qui peux m'aider

 

[Hervé]

Re : Terminé une macro

bonjour wachoo

peut etre comme ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i&, val_im%


If Not Intersect(Target, Range("b5:az40")) Is Nothing Then
    With Sheets("Listing")
        For i = 5 To .Range("A65536").End(xlUp).Row
            If .Cells(i, 1).Value = Target(1) Then
                UserForm1.TextBox1.Value = .Cells(i, 1)
                UserForm1.TextBox2.Value = .Cells(i, 2)
                UserForm1.TextBox3.Value = .Cells(i, 3)
                UserForm1.TextBox4.Value = .Cells(i, 4)
                UserForm1.Show
                Cancel = True 'pour eviter de passer en mode edition
            End If
        Next i
    End With
End If

End Sub

salut

 

[wachoo31]

Re : Terminé une macro

Bonsoir Hervé, RE le forum

Hervé, tu est génial c'est tout juste ce que je cherchais

Un grand merci a toi et bonnez soirée