Macro double clic

Fermé
Inguyone Messages postés 14 Date d'inscription vendredi 22 janvier 2010 Statut Membre Dernière intervention 30 janvier 2011 - 18 févr. 2010 à 13:34
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.