Eviter message d'erreur

RONIBO

XLDnaute Impliqué
Bonsoir,

J'utilise ce code pour changer de numéro,

Le problème est qu'à partir du moment ou je saisie des lettres (par exemple) dans la cellule en jaune,
j'ai un message d'erreur "incompatibilité de type" ce qui est normal.

J'aimerais afficher un message du genre "le format est incorrect" pour éviter l'erreur.

Merci d'avance
 

Pièces jointes

  • ex.xlsm
    13.3 KB · Affichages: 41
  • ex.xlsm
    13.3 KB · Affichages: 42
  • ex.xlsm
    13.3 KB · Affichages: 46

JCGL

XLDnaute Barbatruc
Re : Eviter message d'erreur

Bonjour à tous,

Peux-tu essayer :

VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("G10")) Is Nothing Then
If IsNumeric(Target) Then
Target = Target + 1
Else
MsgBox "Vous souhaitez un numéro... Rentrez une valeur numérique", vbCritical, "Oups !!!"
End If
Cancel = True
End If
End Sub

A+ à tous

Edition : Oups... Désolé Jean-Marcel... A++
 

Discussions similaires

Réponses
5
Affichages
367
Compte Supprimé 979
C
Réponses
8
Affichages
392

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal