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
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
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:
- Double click
- Double ecran - Guide
- Whatsapp double sim - Guide
- Double driver - Télécharger - Pilotes & Matériel
- Double appel - Guide
- Double authentification google - Guide
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
9 nov. 2016 à 16:12
Bonjour
à mettre dans le module de la feuille concernée
Cdlmnt
à 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