Double click

Résolu/Fermé
LEGONZ77 - 9 nov. 2016 à 16:05
ccm81 Messages postés 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 - 9 nov. 2016 à 16:12
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
A voir également:

1 réponse

ccm81 Messages postés 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 2 431
9 nov. 2016 à 16:12
Bonjour

à mettre dans le module de la feuille concernée
Private 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
0

Discussions similaires