problème avec range

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:

---

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:

---

(With Sheets(ADG_Sheet).Range("J" & lrowto))

---

, mais c'est refusé par le compilateur, d'où ma démarche avec le range, mais :aie:

Merci d'avance.

Salut !

En reprenant ton

Code:

---

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:

---

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

---

par

Code:

---

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

---

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

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:

---

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:

---

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.

Bonjour Godzestla, le forum,

N'aurais tu pas oublié SET ?

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

Code:

---

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 !!!:oops:
Edite 2 : et en plus je pense que Aalex a raison.

Génial aalex_38, c'est le SET. :hola:

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:

---

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

---

par

Code:

---

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.
:resolu:

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...

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. ;)

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.

Citation:

---

Envoyé par l'aide en ligne

Range, propriété

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

---

Bonjour AlainTech,

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