Utiliser l'objet "Range" dans une variable

Bonjour,

Je n'arrive pas à définir un Range (contenant déjà une variable) en tant que variable. J'ai une erreur 424 : objet requis.

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()   Dim u As Range Dim v As Range   'indicateur ligne a = 2   'condition de la boucle While Range("a" & a) <> "" 'conditions des changements 'changer la colonne dans les ranges   Set u = UCase(Range("d" & a)) Set v = Range("g" & a)   If u Like ("*TOTO*") Then v = "TOTO" Else v = "" End If     a = a + 1 Wend   End Sub

---

Quelqu'un peut-il m'aider svp ?

Bonjour lecter85,

Set est à utiliser pour affecter un objet, pas pour affecter une valeur

moi je mettrais

Code:

---

1 2 3 4

Dim u As String u = UCase(Range("d" & a)) Set v = Range("g" & a)

---

En faisant ça je n'ai plus d'erreur mais ma macro ne fait rien. Elle ne me trouve aucun mot que je cherche.

salut
- Ucase s'applique à une chaîne et caractères, ce que n'est pas un objet range
- tu n'as par ailleurs nul besoin de tout alourdir en passant par des objets range (u et v) pour lire une cellule et en modifier une autre.
Agis directement sur les cellules concernées.
- enfin, en lieu et place d'une boucle while affublée d'un compteur, utillise For Each

Code:

---

1 2 3 4

for each cellule in range("A:A") ' ici ton code (si valeur de la cellule comme "*toto*" else ... ' si valeur de celluler = "" then exit for Next

---

dans tes instructions,utilise offset pour te référer à la cellule à modifier.
Je te laisse faire un peu ...

edit : pour ton Ucase, dont je devine l'utilisation :

exemple pour une cellule c :

Code:

---

If Ucase(c.value) like "*TOTO* ....

---

Merci !

Ça fonctionne parfaitement !

Code:

---

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

Sub test()   For Each cellule In Range("D:D")   If UCase(cellule) Like ("*TOTO*") Then cellule.Offset(0, 3) = "TOTO" Else cellule.Offset(0, 3) = "" End If   Next   End Sub

---