Membre de méthode ou données introuvables

Bonjour à tous,

Je dois travailler actuellement sur un outil de gestion du temps de travail, et par la force des choses, me voilà à découvrir VBA depuis peu.

Ce forum déjà m'a beaucoup aidé à avancer!

J'ai finalement besoin d'une aide plus précise, puisque je reste perplexe sur ce problème.
Alors que le code ci-dessous fonctionnait très bien jusqu'à présent, aujourd'hui excel m'affiche une "erreur de compilation : Membre de méthode ou données introuvables".

Je n'ai pourtant rien modifié (il me semble)...

Voilà le code. Cette macro fait partie de la commande qui reset le document "modèle".
Apparemment le soucis vient du clearcontents.

Auriez-vous des pistes?

Code:

---

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

Sub Reset1() Sheets("Modèle").Range("A2").Activate Dim couleur As Integer Dim cell As Range Dim plage As Range   Set plage = ActiveCell couleur = ActiveCell.Interior.ColorIndex If couleur = xlNone Then Exit Sub For Each cell In ActiveSheet.UsedRange If cell.Interior.ColorIndex = couleur Then Set plage = Union(plage, cell) End If Next cell plage.Select Selection.clearcontents

---

Bonjour,
A quelle ligne as-tu ce message d'erreur ?
As-tu utilisé le mode debogage ?
Y a-t-il un message d'erreur si tu utilises Compiler VBAproject ?

Le message d'erreur est sur la ligne 16, sur le .clearcontents.

J'ai utilisé le mode débogage, oui.

Le message d'erreur apparait également si j'utilise Compiler VBAProject.

Bonjour,
Effectivement c'est curieux. Pour ma part, je n'ai pas de problème avec ce code.
Par contre, si la feuille [Modèle] n'est pas active, cette ligne posera aussi un problème

Code:

---

Sheets("Modèle").Range("A2").Activate

---

Ajout : Je ne comprends d'ailleurs pas pourquoi cette ligne alors que tu traites la cellule active ?

Enfait, j'ai l'impression que le classeur excel ne reconnait plus le .ClearContents
(puisqu'il me l'affiche .clearcontents sans ajouter les majuscules.

J'ai tenté dans un autre classeur et pas de problème...

D'où est-ce que ça peut venir?
Comme je le disais, ça marchait parfaitement bien jusqu'à ce matin...

Citation:

---

Je ne comprends d'ailleurs pas pourquoi cette ligne alors que tu traites la cellule active ?

---

Effectivement, peut être est-ce inutile.
Dans ma petite tête de débutant, ça sert justement à activer la feuille [modèle] puis une cellule de la couleur requise.

Bonjour,
Oui, il y a parfois des choses étranges de ce type. Une crasse dans le fichier peut-être ?
Tu peux aussi remplacer

Code:

---

1 2	plage.Select Selection.clearcontents

---

par : plage.ClearContents
En VBA c'est parfaitement inutile de sélectionner les cellules, feuilles etc ... et en plus cela ralenti l'exécution du code.

Bon, ça fonctionne avec ta modification
plage.ClearContents

J'espère qu'il me fera pas le coup trop souvent...

Sinon, je saisi l'inutilité de la selection. J'ai du coup nettoyé un peu mes codes par rapport à ça et effectivement ça fonctionne quand même.

Merci bien!

Bonjour,
N'utilises-tu pas par hasard dans ton code un ListBox ou ComboBox et dont la propriété ListIndex n'aurait pas été initialisée à -1 après utilisation.
J'ai déjà eu des comportements curieux et notamment avec un Clear ou Clear.Contents parce-que j'avais oublié de le faire.