Eviter message d'erreur

JCGL

XLDnaute Barbatruc

• 2 Décembre 2013

• #2

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

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 2 Décembre 2013

• #3

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?

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 2 Décembre 2013

• #4

Re : Eviter message d'erreur

JCGL bonsoir,

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 2 Décembre 2013

• #5

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

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 2 Décembre 2013

• #6

Re : Eviter message d'erreur

Re,

Excuse moi non plus je me souviens plus

Tu as un lien du fichier JCGL?

 

Vote positif 0 Vote négatif