remplacer les valeurs inf. à 5 par un intitulé

[David]

Alors voilà, ca doit être tout bête, mais j'y suis depuis plus d'une heure et ma macro ne marche pas...

J'ai :
1 tableau avec des valeurs et du texte. Les valeurs sont du type 1,2 ou 2.45 etc..

Je voudrais une macro qui, sur la feuille active, me remplace toutes les valeurs inférieures à 5 par l'intitulé "<5"

l'un de vous aurait-il une idée ? d'avance, merci beaucoup !!

 

[oliver]

tu as un fichier à nous envoyer ...stp.

 

[Art]

Bonjour David, Olivier, le Forum
Es-ce que cette macro te conviendrais?

Sub Inferieura5()
Dim cell As Variant
For Each cell In Selection
If cell.Value < 5 Then cell.Value = "<5"
Next cell
End Sub

Tu dois d'abord selectionner ta plage
Tiens nous au courant
@+
Art

 

[oliver]

bravo art...pas mieux

 

[Art]

Merci oliver
On pourrait ajouter deux lignes de code supplémentaire pour améliorer cette macro, car tel qu'elle est, elle remplit aussi les cellules vides par l'intitulé "<5".
Cela donnerais donc:

Sub Inferieura5()
Dim cell As Variant
For Each cell In Selection
If cell.Value = "" Then GoTo vide
If cell.Value < 5 Then cell.Value = "<5"
vide:
Next cell
End Sub

@+
Art

 

[David]

Merci, merci et .. encore merci !!!!

La solution que vous m'avez proposée est tip top !!!!



David