Erreur d'execution 438

Bonsoir,

Je me casse les dents sur mon code depuis un moment. En cause : une ligne qui renvoie l'erreur 438. J'ai consulté l'aide et j'ai compris qu'une méthode ou propriété n'est pas gérée par l'objet, mais je ne sais pas lesquelles. Pourriez vous me l'indiquer ?

Voici la ligne en question :

Code:

---

1 2	Worksheets(feuilleT).ssT(1).Offset(0, 1).Activate Set origine = ActiveCell

---

Auparavant, elle était différente mais comme cela ne fonctionnait pas j'ai tenté autre chose. Voici la ligne telle que je l'avais écrite à l'origine :

Code:

---

Set origine=Worksheets(feuilleT).ssT(1).Offset(0, 1)

---

Le but de cette ligne est de nommer "origine" la cellule se trouvant immédiatement à droite de la première cellule de l'objet range ssT (qui est une colonne d'une vingtaine de cellule).

Je ne vois pas comment faire. Pourriez-vous m'aider ?

Respectueusement,

Pierre

Salut,

Effectivement, l'objet worksheet ne possède aucune propriété ni méthode nommée ssT.

Ne veux tu pas écrire:

Code:

---

set origine = ssT.Cells(1).Offset(ColumnOffset:=1)

---

Bonsoir deedolith, et merci pour ton aide.

ssT est un objet range, définit plus tôt dans mon code, au moyen de cette ligne :

Code:

---

Set ssT = Application.InputBox("Selectionner la zone des dates de survenance de sinistre du triangle.", Type:=8)

---

Salut, essaie comme ceci:

Code:

---

Set origine = Worksheets(feuilleT).Range(ssT.Cells(1, 1).Offset(0, 1).Address)

---

Bonjour Franc,

Ça fonctionne, merci beaucoup !

Sais-tu ce qui était incorrect dans mes essais initiaux ?

ssT est un objet range et ne possède donc pas de méthode offset, d'où l'erreur 438.

Merci beaucoup, Franc !

Respectueusement,

Pierre