Taduction de code

bonsoir ,

je me demandais si quelqu'un pouvais me traduire ce code:

Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim c As Range

If Target.Row < 12 Then Exit Sub

If Target.Column <> 8 Then Exit Sub

If Target <> "" Then

Set c = Worksheets("feuil2").Columns(8).Find(Target.Value)

If Not c Is Nothing Then c.Hyperlinks(1).Follow

Cancel = True

End If

Application.DisplayAlerts = False

If Not c Is Nothing Then

End If

End Sub

merci d'avance

Bonjour caje17

' Procedure Privée AvantDoubleClic ( target deType GroupeDeCellule , annule deType Logique )
Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
' DIMensionner une variable c deType GroupeDeCellule
Dim c As Range

    ' SI la ligne (Row) du GroupeDeCellule (Target) Est < à la ligne 12 ALORS SortirDeLaProcedure (Exit Sub)
    If Target.Row < 12 Then Exit Sub

    ' SI la colonne (Column) du GroupeDeCellule (Target) Est Different de la colonne 8 ALORS SortirDeLaProcedure (Exit Sub)
    If Target.Column <> 8 Then Exit Sub

    ' SI le GroupeDeCellule (Target) - sous entendu sa valeur - Est Different de "vide" ("") ALORS
    If Target <> "" Then

        ' Initialiser le GroupeDeCellule (c) à la valeur de la colonne 8 (Columns(8)) de la feuille 2 (Worksheets("feuil2"))
        ' ET chercher (Find) dans cette colonne la valeur de Target (Target.Value)
        Set c = Worksheets("feuil2").Columns(8).Find(Target.Value)

        ' SI c (donc le resultat de la recherche) n'Est pas (Not) rien (Nothing) ALORS suivre (Follow) le lien (Hyperlinks(1)) du resultat de la recherche
        If Not c Is Nothing Then c.Hyperlinks(1).Follow

        ' annule Est = Vrai (True) - pour empecher le menu deroulant du clic droit
        Cancel = True
    End If
    ' FinDuSi le GroupeDeCellule (Target) - sous entendu sa valeur - Est Different de "vide"

    ' Pour ne pas afficher les messages d'alertes (DisplayAlerts)
    ' mais je ne sais pas ce que cette instruction fait à cet endroit du code
    Application.DisplayAlerts = False

    ' SI c (donc le resultat de la recherche) n'Est pas (Not) rien (Nothing) ALORS
    If Not c Is Nothing Then
        ' alors on ne fait rien !!!
        ' donc cette boucle SI/ALORS n'a aucun interet OU est incomplete !
    End If
    ' FInDuSi c (donc le resultat de la recherche) n'Est pas (Not) rien (Nothing) ALORS suivre (Follow) le lien (Hyperlinks(1)) du resultat de la recherche

' FinDeLaProcedure
End Sub

MERCI BEAUCOUP

JE VAIS MEDITER AVEC CELA

(re)

caje17 a écrit :

MERCI BEAUCOUP

C'est cela médite !