Discussion :

[allergique]

dans [VBA-E] vérifier le format d'une cellule

bonjour

tu peux tester la fonction IsNumeric

Code :

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

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

Bonjour,

Je dois lancer une opération, si les range("A" & ligne) et range("Y" & ligne) sont numériques
je programme ce code mais il saute la ligne car il trouve que les conditions ne sont pas respectées

Code :

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

1
2
If IsNumeric(Range("A" & ligne, "Y" & ligne))
'

est-ce que la formule que j'ai mise est correcte? si je laisse une seule cellule ça fonctionne

Merci

[SfJ5Rpw8]

essai plutôt...

Code :

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

1
2
 
If IsNumeric(Range("A" & ligne)) And  IsNumeric(Range("Y" & ligne))..

[conconbrr]

Euh ben si tu veux vérifier les deux cellules peut être qu'il vaudrait mieux mettre :

Code :

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

If IsNumeric(cells(ligne,"A" )) and IsNumeric(cells(ligne,"Y")) then

A moins que tu ne veuilles tester une colonne entière mais là je pense qu'il te faudrait une boucle...

EDIT: Lol à moins d'une minute désolé Bbil

[allergique]

merci à vous 2, ça fonctionne

a+

[jmfmarques]

La fainéant que je suis se dit que si la concaténation de 2 chaines n'est pas numérique, l'une au moins d'entre elles ne l'est pas ....

[conconbrr]

C'est pas faux effectivement, du coup il gagne un peu de lisibilité sur son test...

Si tu me permets j'écris la ligne pour allergique (juste au cas où il n'est pas vu ton astuce) :

Code :

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

If IsNumeric(cells(ligne,"A" ) & cells(ligne,"Y"))  then

[jmfmarques]

Voila... Je m'y attendais un peu...
Il ne faut JAMAIS donner raison aux fainéants... J A M A I S !

Cette concaténation perdra tout son sens si l'on concaténe des chiffres avec, chacun, des décimales !!!!
NE JAMAIS TOMBER DANS CE GENRE DE PIEGE

Et pendons de suite ce coquin de jmf (qui est prêt à se barrer après s'être marré)