Eviter message d'erreur

[RONIBO]

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

 

[JCGL]

Re : Eviter message d'erreur

Bonjour à tous,

Peux-tu essayer :

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++

 

[RONIBO]

Re : Eviter message d'erreur

Bonsoir,


Merci pour cette proposition qui marche parfaitement.

Je voulais savoir si c'était possible d'éviter de saisir des lettres ou dans des cellules?

 

[RONIBO]

Re : Eviter message d'erreur

JCGL bonsoir,

J'avais pas vu ton message, elle fonctionne aussi, merci 🙂

 

[JCGL]

Re : Eviter message d'erreur

Bonjour à tous,

Tu as sur un autre de tes fichiers déposé et arrangé par le même Jean-Marcel, un bout de code qui permet cela.

A+ à tous

 

[RONIBO]

Re : Eviter message d'erreur

Re,

Excuse moi non plus je me souviens plus 🙁

Tu as un lien du fichier JCGL?