Discussion :

[lecter85]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[tototiti2008]

Bonjour lecter85,

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

moi je mettrais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lecter85]

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

[babaothe]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lecter85]

Merci !

Ça fonctionne parfaitement !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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