Bonjour,
j'essaie d'avoir un code rationnel et court via l'utilisation d'une variable de type range, mais cela ne marche pas.

Quelqu'un peut-il m'expliquer mon erreur et me dire comment faire.
Merci (C'est urgentissime.........!!!)

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
    '....
    Dim ADG_Sheet     As String
    Dim lrowto      As Long
    Dim Target_rg   As Range

    '...

    With Sheets(Data_sheet)
       lrowto = 6 'start ligne for data storing (to sheet)
       '...
        Target_rg = Sheets(ADG_Sheet).Range("J" & lrowto)
        Select Case .Range("Y" & lrowfr)
            Case "EP"
                Target_rg = "Primarschule"
    '...
ca crame sur la ligne en Bold avec "Object Variable ou with block variable not set".

J'ai bien sûr vérifié mes variables qui sont initalisées correctement car elles fonctionnesntpour le reste du code.

j'avais essayé avec un With inbriqué, défini dans le select
Code : Sélectionner tout - Visualiser dans une fenêtre à part
(With Sheets(ADG_Sheet).Range("J" & lrowto))
, mais c'est refusé par le compilateur, d'où ma démarche avec le range, mais

Merci d'avance.