Erreur dans la formule VBA

Bonjour

j'utilise une macro pour incrémenter un point dans une cellule après un double clic sur la même cellule

j'avais avant office 2000 et j'avais cette formule qui fonctionnais bien

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("B14")) Is Nothing Then Range("B14") = Range("B14") + 1

End Sub

J'ai fait l'acquisition d'une tablette tactile avec office 365 2013

Je mets la même formule dans la macro cela ne fonctionne pas

quand je clic sur la case B14 sa me mets erreur 13 incompatibilité de type ,a moins que j'ai fait une erreur dans la saisie du code mais je ne trouve pas

merci d'avance pour votre aide

bien cordialement

Bonjour,

Le problème est sans doute de faire un double-clic sur la tablette.

bonjour mferrand

je ne crois pas que le problème est là mais dans ce cas n"y aurait il pas une autre formule

Bonjour, Salut MFerrand,

Qu'y a-t-il dans la cellule B14 ? Apparemment, c'est une erreur de type de donnée. Le message pourrait apparaitre si c'est un texte par exemple.

bonjour raja

dans la cellule B14 il n'y a rien ce que je voudrais c'est qu'en cliquant par un double clic dans la cellule B14 celle ci s'incrémente d'un point

merci pour ton aide

problème résolu après plusieurs tentative de coller le code sans changer qui que ce soit maintenant sa fonctionne

merci a vous deux

bonne journée