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

 

[Deadpool_CC]

Bonsoir
Regarde : https://support.microsoft.com/fr-fr/office/type-type-fonction-45b4e688-4bc3-48b3-a105-ffa892995899

 

[eriiic]

Bonjour,

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If IsNumeric(Range("J5")) Then
        ' ton code
    End If
End Sub

pas besoin de tester plus. Si non numérique ça ira directement à la fin.
Maintenant si tu n'y es pas arrivé peut-être que ce que tu prends pour du numérique n'en est pas.
Mais sans fichier...
eric

 

[patricktoulon]

bonsoir
sérieux Lionel tu retiens vraiment rien
c'est de niveau débutant ça pourtant tu le sais j'en suis sur
comme le dit @eriiic un simple test isnumeric(valeur)

 

[Cousinhub]

Bonsoir,
@eriiic
Sauf si vide....
Mais bon, être à plus de 7500 6700 msg...

 

[Jacky67]

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

Bonsoir à tous
Pour éviter les questions suivantes ,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [j5]) Is Nothing Or Target.Count > 1 Then Exit Sub
    If Not IsNumeric([j5]) Or [j5] = "" Then Exit Sub
    MsgBox "Et maintenant je fais quoi avec ce nombre"
End Sub

 

[Usine à gaz]

Bsr Deadpool_CC , eriiic , Bsr patrick

Merci pour vos retours...

Evidementy que je sais le faire ... bon sang, j'avais oublié "= False" ... sans doute la vieillesse lol
If IsNumeric(Range("J5")) = False Then
If Target <> "NV" Then: Target = "": Application.EnableEvents = True: Exit Sub
End If

 

[Usine à gaz]

Bsr Jacky67
Merci pour le retour
Je prends ton code super...

 

[Deadpool_CC]

Evidementy que je sais le faire ... bon sang, j'avais oublié "= False"

La prochaine fois tu nous mets le code qui pose soucis plutot qu'une explication qui correspond pas à ton souci réel ... lol

 

[Cousinhub]

Re-,
Tu fais exprès?
Donc, si ta cellule est vide, tu laisses le EnableEvents à False?

 

[patricktoulon]

re
tu peux l'ecrire tout simplement evec "Not

if  not isnumeric(valeur) then
 'faire ceci

else
' ou faire cela

end if

 

[Usine à gaz]

Re-,
Tu fais exprès?
Donc, si ta cellule est vide, tu laisses le EnableEvents à False?

Bsr bhbh
Ce n'est qu'une partie du code

 

[job75]

Bonsoir Lionel, le fil,

Les cellules vides sont numériques, pour ne pas les traiter utilise CStr :

If Not IsNumeric(CStr([j5])) Then Exit Sub

A+

 

[patricktoulon]

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

 

[Usine à gaz]

Bonsoir Lionel, le fil,

Les cellules vides sont numériques, pour ne pas les traiter utilise CStr :

If Not IsNumeric(CStr([j5])) Then Exit Sub

A+

Merci Gérard