IF THEN ELSE ...

[laurent]

Bonjour,

Encore un petit souci dans une macro :
Voila ce que j'aimerait avoir :
Si "la cellule (1,1) est un nombre entier" alors
"faire plein de trucs" (NB : faire avec le nombre)
Sinon
"Afficher le message veuiller entrer un nombre"

Je commence (faut me dire si je me trompe)

If Int(Cells(1,1).Value) Then
For i = 0 To Cells(1,1)
(...)
Next
Then
MsgBox " argh tu es un neuneu, t'as pas entré un nombre"


Et tout ça pour m'éviter un message de Debug si un neuneu d'utilsateur n'entre pas un nombre et pour l'empêcher de se retrouve devant mon programme ...
A moins que vous ayez une autre solution ....

Merci par avance

Laurent

 

[Jean-Marie]

Bonjour

Regarde Lien supprimé, il te donnera la solution.

Bonne journée

@+Jean-Marie

 

[laurent]

Je l'ai déja vu mais je n'ai pas réussi à l'appliquer

Qu'est-ce que je doit mettre dans ma macro?

If (Int(Cells(3, 3).Value) = Cells(3, 3).Value) Then
MsgBox "c un nombre"
Else
MsgBox "Veuillez entre un nb"
End If

Mais bon ca ne marche pas

 

[Le Fnake]

Bonjour,

Tu peux peut etre essayer ca :

Sub test()

Dim val As Variant
val = Cells(3, 3).Value
If Int(val) = val Then
MsgBox "Bien joué bonhomme !"
Else: MsgBox "Boulet"
End If

End sub

le Fnake

 

[laurent]

Ben cette méthode marche quand c'est un Integer mais si la case est une chaîne de charactère là ca pose un hic...

Laurent

 

[Le Fnake]

En effet... Celle-la alors?

Sub test()

Dim val As Variant
val = Cells(3, 3).Value

If Application.IsNumber(val) Then
If Int(val) = val Then
GoTo suite
Else: MsgBox "Essayes encore"
Exit Sub
End If
Else: MsgBox "Essayes encore"
Exit Sub
End If

suite:
MsgBox "Bien joué bonhomme !"
' tes commandes

End Sub


Le Fnake, bidouillages en tout genre