macro enregistrée

bonjour le forum

j'ai enregistré cette macro automatiquement et quand je la lance elle plante avec le message : la méthode 'range' de l'objet '_Global' a échoué

pourquoi cette erreur? surtout avec une macro enregistrée !
et ou est cette erreur?

merci a celui ou celle qui m'éclairera

marc


Sub effacerdonnées()
'
' effacerdonnées Macro
'

'
Range("I9:J10,E21:E23,F25,G26").Select
Range("G26").Activate
ActiveWindow.SmallScroll Down:=45
Range("I9:J10,E21:E23,F25,G26,E71").Select
Range("E71").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-42
Range("I9:J10").Select
End Sub

Bonjour Marc, le Forum

Bon alors j'ai fait tourné ta macro enregistrée, elle passe chez moi sur un classeur vierge, n'as tu pas protégé ta feuille ou bien fusionné des cellules ?

Sinon essaies plutôt ce code :

Sub ClearNonContigueRange()
Dim MyRange As Range

Set MyRange = Range("I9:J10,E21:E23,F25,G26,I9:J10,E21:E23,F25,G 26,E71")

MyRange.ClearContents

End Sub


Bonne Soirée
@+Thierry

Thierry,

en effet g des cellules fusionnées ( I9:J10 est fusionnée) mais cette macro a marchée (hier encore)

par contre celà pourrait il venir de ça (il y a 2 macros a suivre) :

Private Sub CommandButton3_Click()
copiecellule
effacerdonnées
End Sub

g bien essayé ton code mais je pense qu'il y a un problèmes d'intitulé ou je recopie pas comme il faut car ça "bug" encore

merci pour ton aide

marc

Re Marc

Si les cellules I9:J10 sont fusionnées, tu n'as pas besoin de faire référence à toutes les cellules, la première suffit. (i9) mais je viens de ré-essayer mon code tel quel, je n'ai aucun souci, tout fonctionne, même avec des cellules fusionnées.

Essaie tout bêtement de tout fermer et redémarrer...

Pour ce qui est des macros du CommandButton3, je suis aveugle...

Bon Courage
@+Thierry

re thierry

je ne comprends pas quand je dissocie les deux macros ça marche bien et quand elle sont sur le même bouton ça plante !!!

c pas trop grave je vé m'en adapter

merci de ton aide

Marc