XL 2016 Erreur 438 sur une feuille appelée par objet

[xUpsilon]

Bonjour tout le monde,

Ca fait un moment que je ne suis pas passé par là mais j'ai encore besoin de votre aide.

Un problème de format j'imagine, probablement anodin mais je ne trouve pas d'explications :
Dans le cadre d'un projet, je définis des objets de type Excel.Workbook ou Excel.Worksheet.
Donc j'ai par exemple

Dim oWbk_Rofo As Workbook
Set oWbk_Rofo = Workbooks(soWbk_Rofo_Synthesis)

(soWbk_Rofo_Synthesis est une Const String)
J'utilise donc dans la suite oWbk_Rofo pour remplacer le fastidieux Workbooks(soWbk_Rofo_Synthesis).

De la même manière, j'essaye de set une Worksheet via un procédé similaire de Dim/Set.
Sauf que lorsque je souhaite utiliser ces variables pour appeler un range qui y est compris, ça me renvoie une erreur 438. Par exemple :

Set oWs_Rofo = oWbk_Rofo.Sheets("ROFO")
oWbk_Rofo.oWs_Rofo.Range(sCol_Cli_Synt_Rofo & nCollec + 2).Value = Coll_Clients(nCollec)

me renvoie une erreur 438.
Alors que passer directement par le nom comme ci-dessous fonctionne :

oWbk_Rofo.Sheets("ROFO").Range(sCol_Cli_Synt_Rofo & nCollec + 2).Value = Coll_Clients(nCollec)

Y a t'il une explication logique à tout cela ?
Merci d'avance !

 

[mapomme]

Bonjour @xUpsilon ,

Vous considérez le classeur : oWbk_Rofo
Les feuilles d'un classeur ne sont pas directement accessibles via une propriété de ce classeur.
oWbk_Rofo.oWs_Rofo ne désigne rien. Le premier terme est un classeur, le second est objet feuille qui n'existe pas dans les propriétés du classeur.
Pour accéder au feuilles du classeur, on passe par la propriété "collection de toutes les feuilles" ("Sheets") ou par la propriété de la "collection des seules feuilles de calcul" ("WorkSheets"). Ce sont les collections Sheets et WorkSheets qui font ensuite référence aux feuilles.

Donc pour référencer une feuille dans un classeur, on passe par monClasseur.Sheets("Feuille synthèse 2019") où "Feuille synthèse 2019" est le nom qui figure sur l'onglet de la feuille. On peut aussi passer par le rang de la feuille dans la collection monClasseur.Sheets(2) si la feuille est la 2ème feuille du classeur (moins sûr car l’utilisateur peut changer l'ordre des feuilles).

Dans la hiérarchie : Classeur ==> Feuille n'existe pas mais Classeur ==> collection Feuilles existe.

Dans votre cas c'est encore plus simple :
Vous avez déjà défini un objet qui représente votre feuille "Rofo" : oWs_Rofo
Pour désigner un range de cette feuille "Rofo", il suffit d'écrire oWs_Rofo.Range(.........)

Donc:
oWbk_Rofo.oWs_Rofo.Range(sCol_Cli_Synt_Rofo & nCollec + 2).Value = Coll_Clients(nCollec) ==> NON
oWs_Rofo.Range(sCol_Cli_Synt_Rofo & nCollec + 2).Value = Coll_Clients(nCollec) ==> OUI

 

[Dranreb]

Bonjour.
Spécifiez simplement oWs_Rofo comme expression Workseet, sans essayez de le qualifier de son Workbook Parent. C'est une variable à vous, non une de ses propriétés. Elle connaît son Parent, ne vous inquiétez pas.
Édition. Bonjour @mapomme je n'avais pas vu ton message.

 

[xUpsilon]

Bonjour @xUpsilon ,

Vous considérez le classeur : oWbk_Rofo
Les feuilles d'un classeur ne sont pas directement accessibles via une propriété de ce classeur.
oWbk_Rofo.oWs_Rofo ne désigne rien. Le premier terme est un classeur, le second est objet feuille qui n'existe pas dans les propriétés du classeur.
Pour accéder au feuilles du classeur, on passe par la propriété "collection de toutes les feuilles" ("Sheets") ou par la propriété de la "collection des seules feuilles de calcul" ("WorkSheets"). Ce sont les collections Sheets et WorkSheets qui font ensuite référence aux feuilles.

Donc pour référencer une feuille dans un classeur, on passe par monClasseur.Sheets("Feuille synthèse 2019") où "Feuille synthèse 2019" est le nom qui figure sur l'onglet de la feuille. On peut aussi passer par le rang de la feuille dans la collection monClasseur.Sheets(2) si la feuille est la 2ème feuille du classeur (moins sûr car l’utilisateur peut changer l'ordre des feuilles).

Dans la hiérarchie : Classeur ==> Feuille n'existe pas mais Classeur ==> collection Feuilles existe.

Dans votre cas c'est encore plus simple :
Vous avez déjà défini un objet qui représente votre feuille "Rofo" : oWs_Rofo
Pour désigner un range de cette feuille "Rofo", il suffit d'écrire oWs_Rofo.Range(.........)

Donc:
oWbk_Rofo.oWs_Rofo.Range(sCol_Cli_Synt_Rofo & nCollec + 2).Value = Coll_Clients(nCollec) ==> NON
oWs_Rofo.Range(sCol_Cli_Synt_Rofo & nCollec + 2).Value = Coll_Clients(nCollec) ==> OUI

Merci pour cette réponse, effectivement je n'avais pas tilté que une fois la feuille définie comme enfant d'un classeur, il n'y avait plus besoin de mentionner le classeur parent.

Bonne soirée !

 

[xUpsilon]

Petite question complémentaire si quelqu'un passait par là.
Quelle fonction est la plus légère entre RECHERCHEV et INDEX + EQUIV ?

J'ai un fichier vachement lourd qui m'oblige à désactiver le calcul automatique et je pense que mes RECHERCHEV nombreuses doivent être une source de problème importante.

Merci !

 

[Cheyenne_2021]

Quelqu'un avait indiqué ce lien, peut-etre pourrez-vous l'utiliser ?

Accélérer la vitesse de la fonction RECHERCHEV

Il est possible d'accélérer la vitesse de recherche de la fonction RECHERCHEV d'Excel grâce à une formule. Voici la technique.

www.excel-exercice.com

 

[Etoto]

Quelqu'un avait indiqué ce lien, peut-etre pourrez-vous l'utiliser ?

Accélérer la vitesse de la fonction RECHERCHEV

Il est possible d'accélérer la vitesse de recherche de la fonction RECHERCHEV d'Excel grâce à une formule. Voici la technique.

www.excel-exercice.com

Hello,

Hehehe, c'est mon lien .

XL 2019 - Lenteur

Bonjour, J’ai un « gros » fichier Excel : 11 onglets. En particulier 5 (les onglets numérotés) qui ont de très nombreuses formules et des macros. 400 lignes dans chaque onglet. Dans les macros, en début j’ai enlevé les calculs de formules et je les ai remis à la fin.( Application.Calculation...

www.excel-downloads.com

Fait juste gaffe, certains membres préféreraient que leurs noms soient précisé (droits d'auteur) mais moi ça me dérange pas, surtout que c'est pas moi qui ai fait cet article.

Allez, bonne journée

 

[Cheyenne_2021]

Ah, désolée. quand un lien est interessant, je le mets en favoris (le lien, pas la discussion) et donc je n'ai plus le nom.

 

[Etoto]

Ah, désolée. quand un lien est interessant, je le mets en favoris (le lien, pas la discussion) et donc je n'ai plus le nom.

Ha, c'est cool qu'il te plaise, mais je suis tout sauf énervé, peut-être juste flatté de voir que l'on utilise mes suggestions.

 

[Cheyenne_2021]

Dans mon cas (pb de lenteur) je n'ai pas pu l'utiliser mais ça peut servir à d'autres.

 

[Etoto]

Dans mon cas (pb de lenteur) je n'ai pas pu l'utiliser mais ça peut servir à d'autres.

Oui, en effet, d'ailleurs, je m'excuse de ne pas avoir pu t'être utile.

Il a aussi été utile dans d'autres conversations, comme celle-ci :

XL 2019 - Copier plage de cellules si deux cellules de deux feuilles sont identiques

Bonjour à tous, J'ai deux onglets dans mon fichier. le premier contient les coordonnées des élèves le deuxième les inscriptions des élèves aux cours j'aimerais par une macro, que les coordonnées s'ajoutent aux inscriptions (à partir de la colonne F) si la valeur de la col A(Nom) et col B...

www.excel-downloads.com

 

[Cheyenne_2021]

Ce n'est pas grave, j'ai trouvé la solution et je l'ai indique dans mon post.

 

[Etoto]

Ce n'est pas grave, j'ai trouvé la solution et je l'ai indique dans mon post.

Oui j'ai vu, je suis content que tu ailles eu la solution.