[VBA Excel] différentes plages sur différentes feuilles

Bonjour,

Je travaillais jusqu'ici sur une seule feuille nommée "Listes". J'ai réalisé un module de classe qui automatise certains traitement sur des objets range. Chacun de ces modules à un et seulement un objet range. L'objet range est une simple plage qui n'appartient qu'à une seule feuille.

Mais voilà, sur la dernière ligne droite de mon appli j'ai besoin de travailler sur une deux feuilles. La première c'est "Listes" et l'autre "Releves". Pour la feuille "Releves" j'ai eu besoin d'instancier un module de classe pour obtenir un range.

Dès le moment ou j'ai lancé l'appli cela n'a plus marché. Je suis certain que le problème ne vient pas de mon module de classe que j'ai testé et retesté sans arrêt.

Je me suis donc dis qu'il fallait d'abord activer la feuille sur laquelle on travaille, mais rien n'y a fait, ça refuse de fonctionner.

Message d'erreur :

Erreur d'execution '1004':

Erreur définie par l'application ou par l'objet


Phase de test :

Il s'est trouvé que le bug ne survenait pas toujours au même endroit, ce qui semble totalement illogique. En fait, lorsque la feuille excel qui est ouverte n'est pas la même que celle avec laquelle je travaille avec l'objet range, c'est la que ça plante.


Je remercie de bien vouloir m'aider sur ce problème délicat.

Sans ton code, on ne pourra te donner que des réponses théoriques... ou à côté de la question.

Voici l'initialisation de la form qui doit travailler sur 2 feuilles :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Initialize()   ' On initialise les plages en fonction des données de la feuille excel   Call intialisationPlages   ' On initialise la liste des noms des sites existants   Call definirListe(zl_sites, plageSite.getPlage("nomSite"))   End Sub

---

Maintenant voici la procédure sur laquelle l'erreur se produit (elle se trouve dans un module) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Option Explicit     Public plageSite As New C_Plage   Public plageSalle As New C_Plage   Public plagePiege As New C_Plage   Public plageDate As New C_Plage   Public plageReleve As New C_Plage       Public Sub intialisationPlages()   ' Le bug survient ici si la feuille "Releves" est actuellement visionnée Call plageSite.definirPlage(1, 2, "Listes") Call plageSalle.definirPlage(4, 3, "Listes") Call plagePiege.definirPlage(8, 3, "Listes") Call plageDate.definirPlage(12, 3, "Listes")   ' Le bug survient ici si la feuille "Listes" est actuellement visionnée Call plageReleve.definirPlage(1, 7, "Releves")   End Sub

---

Maintenant voici une partie du module de classes (avec les données et la méthode definirPlage() ) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Option Explicit   ' Données privées   Private yDebut As Integer   Private nbLignes As Integer Private nbColonnes As Integer   Private maPlage As range Private maFeuille As String   ' Méthodes publiques   Public Sub definirPlage(ByVal y As Integer, ByVal colonnes As Integer, ByVal feuille As String)   Dim i As Integer i = 2   maFeuille = feuille yDebut = y nbColonnes = colonnes   ' Tant que la cellule n'est pas vide on incrémente et on teste la suivante Do While Not IsEmpty(Worksheets(maFeuille).Cells(i, y)) i = i + 1 Loop   nbLignes = i - 1   Set maPlage = Worksheets(maFeuille).range(Cells(1, y), Cells(nbLignes, y + nbColonnes - 1))     End Sub

---

Et si, avant les 4 appels à "definirPLage" de la feuille "Listes", tu fais un

Code:

---

1 2	ActiveWorkbook.WorkSheets("Listes").Activate

---

et que juste avant le 5è, sur l'onglet "Releves", tu mets:

Code:

---

1 2	ActiveWorkbook.WorkSheets("Releves").Activate

---

?
L'erreur persiste?

Et non j'y ai pensé, mais y'a rien à faire VBA veut ma mort.

Et la fonction "definirListes", elle est où? Si on avait le code...
J'essaie de reproduire chez moi.

Salut
J'ai deux questions :
- A quoi te sert la variable "yDebut" ? J'ai pas vu où tu t'en sert :?
- Pourquoi dans ton module de classe tu déclares tes variables en privé ?

c'est juste pour comprendre merci

Igloobel

Citation:

---

- Pourquoi dans ton module de classe tu déclares tes variables en privé ?

---

On appelle cela l'encapsulation. C'est pour empêcher le développeur d'accéder n'importe comment aux données. Si on doit tout de même permettre à l'utilisateur d'accéder à certaines données, on crés des méthodes ascesseurs et pour les modifier des méthodes mutateurs.

Citation:

---

Et la fonction "definirListes", elle est où? Si on avait le code...

---

Ca ne t'avancerais pas plus, l'erreur se produit avant son appel.

Citation:

---

- A quoi te sert la variable "yDebut" ? J'ai pas vu où tu t'en sert

---

Dans la méthode definirPlage, je me sers directement de y qui est une variable locale (puisque passée en paramètres de la méthode). Par la suite, dans les autres méthodes, puisque je n'y ait plus accès j'utilise yDebut.


C'est un problème bien étrange qui ne devrait normallement pas se produire. Je pensais avoir pris les dispositions pour changer de feuille à loisir, apparement ce n'est pas le cas.

Je vous remercie en tout cas pour l'aide que vous m'apportez.

OK OK

Je suis plutôt novice en POO :oops: merci pour ton explication :)

Igloobel

Voici tout de même la fonction definirListe. Elle se trouve dans un module normal et est donc accécible de partout :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Sub definirListe(ByVal monControle As Control, ByVal laPlage As range)   Dim i As Integer Dim nb As Integer   If Not (laPlage Is Nothing) Then   nb = laPlage.Count   For i = 1 To nb monControle.AddItem laPlage.Item(i) Next   End If   End Sub

---

Megaxel : Toutes mes escuses, il semblerait que le problème vienne de cette fonction puisque lorsque je la désactive, l'initialisation marche à merveille.

Merci encore pour tout

Juste au hasard, ce n'est pas une histoire de "je met Call ou je ne met pas Call" à l'appel de ma procédure, ou de "Je mets des parenthèses ou je n'en met pas autour de mes paramètres?

Non non ce n'est pas du tout ça. C'est que lorsque je fais appel à une méthode de mon module de classe, celle-ci utilise quasi tout le temps l'objet range. Et donc puisque à l'initialisation la dernière feuille activée est "Releves", et que lorsque je rempli la liste modifiable je vais chercher des données de la plage site qui se trouve dans "Listes", ça boggue.

Pour résoudre le problème, chaque méthodes de mon module de classe active la feuille dont celui-ci dépend.

Un problème de fou !!

Merci et bonne continuation.

Bon, ben du coup, on n'a pas fait grand-chose... :D
Mais si ça marche, alors je suis content!

Sisi grâce à toi j'ai pu comprendre d'où venait l'erreur et plus rienque le fait de mettre le problème par écrit m'a permit de mieux l'assimiler.