Discussion :

[Godzestla]

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.

[DeaD78]

Salut !

En reprenant ton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
 
    Dim lrowto As Long
 
    lrowto = 6
 
    Target_rg = Sheets(Feuil1).Range("J" & lrowto)
 
    MsgBox Target_rg
 
End Sub

j'obtiens une erreur avec incompatibilité de type.

Par contre, si je remplace

Code :

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

Target_rg = Sheets(Feuil1).Range("J" & lrowto)

par

Code :

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

Target_rg = Sheets("Feuil1").Range("J" & lrowto)

je n'ai plus aucun problème. Tu testes pour moi ?

[Godzestla]

Salut,


je ne peux pas faire cela.

Target_Rg est une variable passée en paramètre à mon code Excel qui est appelé par Access (je te passe les détails, mais pour faire court j'exporte un table Access vers excel et puis je la manipule pour formatter mes données comme souhaitées par le client).

L'instruction suivante fonctionne parfaitement.

Code :

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

1
2
 
        Sheets(ADG_Sheet).Range("H" & lrowto) = Age

Par contre, la variable contient des espaces.
Voici sa valeur, "Tabelle Teilnehmer-Ausbildungen"

cela pourrait expliquer que la ligne

Code :

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

Target_rg = Sheets(ADG_Sheet).Range("J" & lrowto)

plante, mais pas les autres du type de celle qui fonctionne en haut ?

Merci pour ta réponse méga rapide.

[aalex_38]

Bonjour Godzestla, le forum,

N'aurais tu pas oublié SET ?

[LeForestier]

Bonjour,
un peu tirer par les cheveux mais ça m'a l'air de fonctionner...

Code :

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

1
2
    ADG_Sheet.select
    Target_rg = ActiveSheet.Range("J" & lrowto)

A+
Edit : Tient pas compte, j'ai confondu entre ta plage et ta feuille !!!
Edite 2 : et en plus je pense que Aalex a raison.

[Godzestla]

Génial aalex_38, c'est le SET.

Je n'y aurais jamais pensé car je connais pas trop bien son usage et pensais qu'il n'était de mise que pour assigner quelquechose à une variable de type Object.

J'ai remplacé

Code :

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

Target_rg = Sheets(ADG_Sheet).Range("J" & lrowto)

par

Code :

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

SET Target_rg = Sheets(ADG_Sheet).Range("J" & lrowto)

Encore merci.

Si d'aventure tu sais m'expliquer pourquoi il faut le SET, cela me permettra de comprendre et de ne pas refaire la même erreur.


Merci à tous pour votre aide super rapide. J'apprécie énormément.

[aalex_38]

Content t'avoir pu t'aider.

Pour l'explication, en réalité je ne sais pas vraiment, je sais seulement que l'on doit faire comme ça .

Si quelqu'un a une explication...

[Godzestla]

Merci quand même.

je laisse le post ouvert encore un moment dans l'espoir d'avoir l'explication sur l'usage du SET.

Puis je cloturerai.

Excellente journée à toi.

[AlainTech]

Effectivement, le SET sert pour les objets.

Et un Range EST un objet puisqu'il possède des propriétés et qu'on peut lui appliquer des méthodes.

Range, propriété

Renvoie un objet Range qui représente une cellule ou une plage de cellules.

[Godzestla]

Bonjour AlainTech,

merci pour l'explication. j'ai assimilé.