remplacer les valeurs inf. à 5 par un intitulé

O

oliver

Guest

• 18 Septembre 2003

• #2

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

 

Vote positif 0 Vote négatif

A

Art

Guest

• 18 Septembre 2003

• #3

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

 

Vote positif 0 Vote négatif

O

oliver

Guest

• 18 Septembre 2003

• #4

bravo art...pas mieux

 

Vote positif 0 Vote négatif

A

Art

Guest

• 18 Septembre 2003

• #5

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

 

Vote positif 0 Vote négatif

D

David

Guest

• 19 Septembre 2003

• #6

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

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



David

 

Vote positif 0 Vote négatif