Selection multiple dans Excel

Logiciel & apps Programmation
1

[b]Bonjour à tous!

Je cherche comment , en une seule macro, effacer plusieurs tableaux, dans plusieurs worksheets.[/b]

Sub clean()

lareponse = MsgBox _
(“Effacer les tableaux?”, vbYesNo)

Worksheets("FQ Bé07-1").Select
Range("A11:L55").Select
Selection.ClearContents

End Sub

J’y arrive worksheet par worksheet, , mais si je fait ça:
Sub clean()

lareponse = MsgBox _
(“Effacer les tableaux?”, vbYesNo)

Worksheets("FQ Bé07-1").Select
Range("A11:L55").Select
Selection.ClearContents

Worksheets("FQ Bé07-2").Select
Range("A11:L55").Select
Selection.ClearContents

End Sub

[b]ça plante en mettant “400”

Vu que je débute en vba je rame. à l’aiiiiiiide!

d’avance merci.[/b]
Edité le 28/05/2009 à 14:56

2

tu le mets où, exactement ton 400 ?
Tu peux donner exactement le contenu de la ligne qui sort en erreur ?

3

Salut
merci de ta réponse
en modo debogage ‘F8’

Sub clean()

lareponse = MsgBox _
(“Effacer les tableaux?”, vbYesNo)

Worksheets(“FQ Bé07-1”).Select
Range(“A11:L55”).Select
Selection.ClearContents

Worksheets(“FQ Bé07-2”).Select
Range(“A11:L55”).Select
----------------------------------------------------ça bloque ici. “erreur d’éxecution 1004”
Selection.ClearContents

End Sub
Edité le 02/06/2009 à 09:26

4

Rien à voir, mais je suppose que c’est volontaire que pour le moment tu ne tiennes pas compte de ta réponse en haut de la procédure ?

Le blocage, c’est avec quelle ligne en jaune ?
Worksheets(“FQ Bé07-1”).Select
ou
Range(“A11:L55”).Select ?

Si tu veux aller plus vite, tu peux mettre un point d’arrêt (F9) sur
Worksheets(“FQ Bé07-1”).Select
lancer normalement (F5) et ensuite avancer par F8 jusqu’à l’apparition de la faute

NB : 1004, c’est le genre d’erreur qui apparaît quand la feuille ou la zone n’existe pas. Tu es sûr de ton nom de feuille ?
Fais un essai en la renommant