Modification d'une ligne

Bonjour,

je suis sur un fichier et grâce à mes recherche j'ai trouvé le code qu'il me fallait mais j'ai juste un problème:

la ligne si dessous concerne les cases K2 K3 K5 et je voudrais que cela s'applique sur la colonne K à partir de la ligne 2 et je n'arrive pas à modifier le code.

Merci pour votre aide.

   Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim UnJour As Date
    If Target.Count = 1 And Not Intersect(Target, Range("k3,k2,k5")) Is Nothing Then
        UnJour = FormCal.Calendrier
        If UnJour <> 0 Then
            Target = Format(UnJour, "mm/dd/yyyy")
            Target.Offset(0, -1).Select
        Else
            Target = ""
              Target.Offset(0, -1).Select
        End If
    End If
End Sub

Bonjour,

tu peux peut-être agir en remplaçant la ligne :

If Target.Count = 1 And Not Intersect(Target, Range("k3,k2,k5")) Is Nothing Then

par

If Target.Count = 1 And Not Intersect(Target, Range("k2:k5000")) Is Nothing Then

Bonjour,

Non cela ne fonctionne pas quand je fais un double clic dans une case en "K" rien ne se passe.

erreur de ma part cela marche bien je me suis simplement trompé de feuille.

un grand merci

Rechercher des sujets similaires à "modification ligne"