Discussion :

[Compte467]

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 :

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

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 :

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

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

[deedolith]

Salut,

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

Ne veux tu pas écrire:

Code :

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

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

[Compte467]

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 :

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

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

[Franc]

Salut, essaie comme ceci:

Code :

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

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

[Compte467]

Bonjour Franc,

Ça fonctionne, merci beaucoup !

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

[Franc]

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