Discussion :

[Novice72]

Bonjour,
J'ai enregistrer une très petite macro grâce à l'éditeur. ( fonctionne très bien )
Quand il s'agit de la recopier dans " un bouton " ( bouton Annuler d'un userform ), IMPOSSIBLE !!!

Cela indique "erreur compilation" en surlignant .ClearContents ( et affiche aussi membre de méthode ou de données introuvable )

Code :

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

1
2
3
4
5
6
7
 
Private Sub Annuler_Click()
Sheets("Démarrage").Select
    Range("A1:A100").Select
    Selection.ClearContents
Unload Me
End Sub

Quelqu'un peut-il m'éclairer ?

Merci d'avance.

Novice72

[romainorleans]

Bonsoir,

Novice également mais tu peux essayer ceci:

Code :

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

1
2
3
4
5
6
7
Dim Démarrage As Worksheet
Dim range As range
 
Set Démarrage = Sheets("démarrage")
Set range = Démarrage.range("A1:A100")
 
range = ""

Pour le Unload Me tu peux confirmer que le bouton est associé à un formulaire? J'ai testé sans cela fonctionne mais je ne sais pas à quoi est relié ton code.
Il est vrai qu'il faut éviter le Select, m^me si cela ne fut pas la cause de l'erreur.

Bonne soirée,

[unparia]

Bonjour
Le travail via des selections est à éviter.
Lui préférer :

Code :

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

WokSheets("Démarrage").Range("A1:A100").ClearContents

Il est par contre inquiétant que la méthode ClearContents ait provoqué ce que tu dis, à savoir :

Cela indique "erreur compilation" en surlignant .ClearContents ( et affiche aussi membre de méthode ou de données introuvable )

Es-tu certain de ne pas avoir détourné****, quelque-part ailleurs dans ton application, le mot Selection ?

**** par "détourner", entendre utiliser ce mot réservé à d'autres fins (nommage d'une variable, par exemple).

[Novice72]

Bonsoir à toi UnParia,

Oui ça fonctionne maintenant.
merci.

En fait, il m'a fallu attendre ce soir pour voir où était le problème car même avec ta ligne ça ne fonctionnait pas. Et c'est par hasard que j'ai vu qu'il manquait le "r" de Worksheets.
Franchement, les ordinateurs, les langages de programmations, ETC.... pourraient faire des efforts de compréhension
tout ça à cause d'un "r".


Encore Merci.

Novice72