Comment mettre 1 dans une cellule lors d'un double clic
Bonjour à tous
Comme je suis nouveau, merci de pardonner si je ne respecte pas à la lettre la bienséance de ce forum.
Le tutoiment est-il de rigueur sur ce forum?
Merci également à tous ces bénévoles qui consacre du temps à résoudre les problèmes des autres. Si l' Artisanat est la première Entreprise de France, le bénévolat est sans aucun doute la seconde. Sincères remerciements à tous.
Mes recherches sur un fichier de gestion de stock:
1) Comment programmer des cellules d'une feuille de calcul pour que lorsque l'on double-clic dessus, cela mette la valeur 1
2) Comment programmer des cellules d'une feuille de calcul pour que lorsque l'on double-clic dessus, cela mette une couleur définie (rouge par exemple)
3) Comment programmer des cellules d'une feuille de calcul pour que lorsque l'on double-clic dessus, cela rajoute 1 à la valeur de la cellule. Exemple valeur de la cellule 5, double-clic sur la cellule, nouvelle valeur =6, nouveau double-clic, valeur passe à 7 etc.
Bonjour et bienvenue
Code à placer dans la feuille concernée
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'plage concernée par la macro
If Not Application.Intersect(Target, Range("B2:B50")) Is Nothing Then
'valeur de la cellule augmentée de 1
Target = Target + 1
'couleur de fond de la cellule = rouge
Target.Interior.ColorIndex = 3
' sortir de la sélection de la cellule
Cancel = True
End If
End SubAmicalement
Nad