Discussion :

[hankmarvin]

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 :

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

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

[Philippe Tulliez]

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 ?

[hankmarvin]

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.

[Philippe Tulliez]

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 :

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

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

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

[hankmarvin]

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...

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.

[Philippe Tulliez]

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

Code :

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

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.