probleme de syntaxe pour format numerique

[mumu]

Bonjour,

J'ai encore un pb avec l'écriture VB.......
J'ai écrit ce bout de code : (qui marche bien)

.......
Dim c As Range
For Each c In Range(ActiveCell, ActiveCell.Offset(DerLig, 0))
    If c.Value > 7 Then c.Offset(0, 0).Value = "8 et +"
Next c
........

Malheureusement dans ma colonne j'ai des caractères non numériques (x et y) et je voudrais qu'il ne me le change pas en '8 et +' ce qui est le cas.
Donc j'aimerais juste lui préciser de ne convertir que les données numériques pour que les lettres restent.....

J'espère que je suis claire.

Merci pour les réponses !

@ +

Mumu

 

[Pierrot93]

Re : probleme de syntaxe pour format numerique

Bonjour Mumu

essaye en modifiant le test ainsi :

    If IsNumeric(c.Value) Then If c.Value > 7 Then c.Offset(0, 0).Value = "8 et +"

bon après midi
@+

 

[mumu]

Re : probleme de syntaxe pour format numerique

Bonjour Pierrot,

Je te remercie cela marche comme je voulais !!!! C'est génial !

Bon WE et
@ bientôt.

Mumu