Double click
Résolu
LEGONZ77
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
dans un fichier excel je voudrais en cliquant sur les cellules de a1 à a50 mettre "OK" en cliquant sur les cellules c1 à c50 mettre "KO" et en cliquant sur les cellules de f1 à f50 mettre "ENV"
j'arrive bien à mettre le OK mais pour le reste je cale cela ne marche pas
Merci de votre aide
dans un fichier excel je voudrais en cliquant sur les cellules de a1 à a50 mettre "OK" en cliquant sur les cellules c1 à c50 mettre "KO" et en cliquant sur les cellules de f1 à f50 mettre "ENV"
j'arrive bien à mettre le OK mais pour le reste je cale cela ne marche pas
Merci de votre aide
1 réponse
-
Bonjour
à mettre dans le module de la feuille concernéePrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
Target.Value = "OK"
ElseIf Not Intersect(Target, Range("C1:C50")) Is Nothing Then
Target.Value = "KO"
ElseIf Not Intersect(Target, Range("F1:F50")) Is Nothing Then
Target.Value = "ENV"
End If
Target.Offset(1, 0).Select
End Sub
Cdlmnt
