Microsoft 365 Si numérique - si non numérique

[Usine à gaz]

Bonjour à toutes et à tous

Je n'arrive pas à coder pour ma cellule J5.
Elle peux contenir :
soit la valeur "nv"
soit un nombre

Je voudrais que :
Private Sub Worksheet_Change(ByVal Target As Range)
si J5 contient "du texte" = exit sub
Si J5 contient un nombre = le code continue
end sub

Pourriez-vous m'aider ?
Un grand merci par avance...

 

[Usine à gaz]

re
ou si le zéro n'est pas admis
if val([J5].value)>0

Merci Patrick

 

[Dranreb]

Bonsoir.
On peut aussi tester le type donnée de la valeur de cellule :

Select Case VarType(Target.Value)
   Case vbDouble: …
   Case vbCurrency: …
   Case vbDate: …
   Case vbString: …
   Case vbBoolean: …
   Case vbError: …
   Case vbEmpty: …
   End Select

 

[Usine à gaz]

Bonsoir Dranreb
Merci pour ce code