Macro double clic = +1 pour toutes cellules

[Inguyone]

Bonjour,

Je suis à la recherche d’une macro me permettant lors de double clics d’augmenter le chiffre d’une cellule du chiffre déjà afficher + 1 (Ex : D7 =10, double clic =11). Et ce dans un fichier contenant plusieurs cellules de calcul. Cette commande devrait être active dans toutes les cellules.
J’ai déjà une commande de ce type, mais elle fonctionne avec une cellule de référence.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim A
A = Range("AQ18").Value
ActiveCell.Value = A + 1
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
End Sub

Merci pour votre aide

Ne vous étonnez pas si je ne suis plus en ligne, énormes problèmes de connections pour l’instant.

 

[poilamonnez]

Re : Macro double clic = +1 pour toutes cellules

Bonjour

A essayer

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Target + 1
End Sub

@+

 

[jeanpierre]

Re : Macro double clic = +1 pour toutes cellules

Bonjour Inguyone et Bienvenue sur le forum, bonjour poilamonnez,

Je rajouterai avant le End Sub :

Cancel = True

pour ne pas à avoir à sortir de la cellule, sinon elle est en mode édition.

Bon dimanche

Jean-Pierre

 

[néné06]

Re : Macro double clic = +1 pour toutes cellules

Bonjour le Forum

Un autre exemple pour toutes les cellules sur une plage sélectionnée.
Amitiés à tous
Néné06