Discussion :

[jouf]

Bonjour,
mon code execute à chaque ligne une opération mathématique simple, mais toutes les cellule de ma feuille ne sont pas numérique...il y a du texte aussi. Je cherche donc à vérifier que mon opération est possible avant de l'effectuer.
cellules doivent contenir des nombres pour effectuer l'opération, sinon je passe à la ligne suivante, mais je trouve pas la condition qu'il me faut...

si quelqu'un avait une solution,

merci d'avance,

jouf

[SilkyRoad]

bonjour

tu peux tester la fonction IsNumeric

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If IsNumeric(Range("A1")) Then
'
'
'

bonne soiree
michel

[jouf]

merci silkyroad,
j'essaye ta solution!

jouf

[zazaraignée]

Vu que le contenu d'une cellule en format Standard ressemble fortement à un Variant, tu peux aussi utiliser VarType qui est plus précis
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If VarType(ActiveCell.Value) = vbDate Then _
    MsgBox "La date est : " & ActiveCell.Value