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 ?