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

Usine à gaz · 27 Janvier 2023

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 · 27 Janvier 2023

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

Merci Patrick

Dranreb · 28 Janvier 2023

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

VB:

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

Usine à gaz · 28 Janvier 2023

Bonsoir Dranreb

Merci pour ce code

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

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires