MACRO EFFACE

BONJOUR

JE RECHERCHE A FAIRE UNE MACRO QUI ME PERMETTE DANS UN CLASSEUR D'EFFACER LES MEMES ZONES (A1...C3....) sur toutes les feuilles existantes du fichier.

merci d'avance

salut,

essaye le code suivant: copier / coller

'selection des feuilles par le (Nom de l'onglet)

Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select

Sheets("Feuil1").Activate

'selection des cases

Range("B2:D3").Select

'suppression des valeurs

Selection.Clear

'suppression du groupe de feuille

Sheets("Feuil1").Select

Bonne chance

BONJOUR,

pourriez vous me répondre avec un exemple (fichier excel joint) avec par exemple 3 feuilles et des données dans les cases a1, a2, et a3 des trois feuilles à effacer d'un seul clic, car je n'y arrive pas.

Merci d'avance,

Salut,

Pardon du retard, mais j'étais très occupé.

:idea:

Essaye le lien ci-joint: #NA

@+ KIKI68

merci mais cela ne fonctionne pas.

Le code proposé ci-dessus fonctionne en supprimant quelques ligne de trop

Sub efface()

'selection des feuilles par le (Nom de l'onglet)
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
'selection des cases
Range("B2:D3").Select
'suppression des valeurs
Selection.Clear

End Sub

MERCI

Rechercher des sujets similaires à "macro efface"