[VBA] Erreur dans Script Valeur de cellule en fonction d'une autre

Bonjour,
Voila je vous explique j'ai un petit soucis avec une macro. Je souhaiterais faire inscrire un texte en fonction du contenu d'une cellule (qui contient du numérique). J'utilise d'habitude la macro ci-dessous pour me mettre de façon automatique des couleurs dans des cases. Je pensais pouvoir l'adapter pour qu'au lieu de couleur (C.interior). il me rentre du texte dans une cellule cible. C.value

Pour vous expliquer simplement j'ai une valeur numérique en case V6 (qui est en de rares occasions du texte mais avec case else ça résout le problème) et je voudrais qu'en case V25 un texte apparaisse en fonction de la valeur de V6.
Voici ma macro frelatée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub test()   Range("V6").Copy Range("F25").PasteSpecial Paste:=xlPasteValues Set rng = Range("F25") For Each C In rng valCel = C.Value If IsNumeric(valCel) Then Select Case valCel Case 0 To 2.9999 C.Value = "Mauvais" Case 3 To 3.9999 C.Value = "Médiocre" Case 4 To 5.9999 C.Value = "Moyen" Case 6 To 7.9999 C.Value = "Bon" Case 8 To 1000 C.Value = "Très bon" Case Else C.Value = "Très bon" End Select End If   Next   End Sub

---

Voila si quelqu'un a une idée de pourquoi ça capote.
D'avance merci et bonne journée

NB : j'ai testé de ne pas copier coller la valeur et de changer "C.value" par "Range("F25").value" mais ceci ne marche pas aussi

Bonjour,

Code:

---

1 2	Set rng = Range("F25") For Each C In rng

---

Pourquoi faire une boucle sur 1 cellule?

**************************************************************************************
Pour faire ça, pas besoin de VBA, une simple formule suffit:

Code:

---

=SI(V6<3000;"Mauvais";SI(V6<4000;"Médiocre";SI(V6<5000;"Moyen";SI(V6<6000;"Bon";"Très bon"))))

---

**************************************************************************************
Sinon en VBA

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test() Select Case Range("V6").Value Case Is < 3000 Range("V25").Value = "Mauvais" Case Is < 4000 Range("V25").Value = "Médiocre" Case Is < 6000 Range("V25").Value = "Moyen" Case Is < 8000 Range("V25").Value = "Bon" Case Else Range("V25").Value = "Très bon" End Select End Sub

---

Cdlt

Citation:

---

Envoyé par ARTURO83

Bonjour,

Pourquoi faire une boucle sur 1 cellule?

---

C'est de la pure fainéantise je l'avoue. j'avais un script qui fonctionnait pour les couleurs sur plusieurs cases alors si je me suis dit que si je réduisais le range c'était certes lourd du fait de la boucle mais en théorie cela fonctionne. En tout cas, merci le script fonctionne.
Merci encore.

NB :Et passer par du vba me permet d'intégrer ceci à une autre macro pour faire d'une pierre deux coups.