Method 'range' of object '_global' failed

Bonjour, je suis un peu rouillé en VBA, alors je me réentraine, mais j'obtiens toujours la même erreur pour des opérations basiques :

Code:

---

1 2 3 4

Public Sub testmain() Dim lamain As New Main lamain.initialiser ActiveSheet.Range("B2") End Sub

---

Code:

---

1 2 3 4 5

Public Sub initialiser(casedep As Range) For j = 1 To 5 Cartes(j).FaireCarte Range(casedep).Cells(1, j) Next j End Sub

---

Je voudrais simplement appliquer successivement l'opération "FaireCarte" (qui marche très bien) aux textes contenus dans les cases B2 à F2

J'obtiens inéluctablement (en même temps c'est plutôt normal de retrouver toujours la même erreur) l'erreur 1004 : Method 'range' of object '_global' failed

Quand je passe en mode debugger, je me rends compte que ActiveSheet.Range("B2") contient en fait la valeur présente dans la case "B2". Il me semblait pourtant que la classe Range contenait l'adresse de la cellule.


Excusez moi si je ne suis pas très clair, je recommence le VBA... Quelqu'un pourrait il me dire où je m'y prends mal ? (ou me demander de reformuler ma que

bonjour

déja dans ce code

Citation:

---

Envoyé par Magemax

Code:

---

1 2 3 4 5

Public Sub initialiser(casedep As Range) For j = 1 To 5 Cartes(j).FaireCarte Range(casedep).Cells(1, j) Next j End Sub

---

---

casedep étant de type range il faudrait que le modifie comme ceci

Code:

---

1 2 3 4 5

Public Sub initialiser(casedep As Range) For j = 1 To 5 Cartes(j).FaireCarte casedep.cells(1, j) Next j End Sub

---

peut tu essayer et nous dire

Bonjour,

Sans préciser la propriété, par défaut Range("xx") va retourner la valeur --> Range("xx") revient à Range("xx").Value

Si tu souhaites obtenir l'adresse

Code:

---

Range("xx").Address

---

zihack : C'était bel et bien ca, merci beaucoup. Effectivement, je suis vraiment rouillé :oops:

fring : quand je rajoute Address, ca ne marche plus :) Ils me disent object required et me surligne la ligne "Range(casedep).Cells(1, j).Address"


En tout cas merci beaucoup à tous

Je n'ai pas dis que ça fonctionnerait, je n'ai pas regardé le code, je répondais juste à ton interrogation

Citation:

---

je me rends compte que ActiveSheet.Range("B2") contient en fait la valeur présente dans la case "B2". Il me semblait pourtant que la classe Range contenait l'adresse de la cellule

---

;)