2 macro dans 1 bouton

Bonjour,

Je débute en macro, le problème a certainement déjà été évoqué, mais je ne trouve pas ma solution.

J'ai une premiere macro pour imprimer une page :

Private Sub IMPRIMER_Click()

ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=true, _

Ignoreprintareas:=False

End Sub

Qui fonctionne bien.

Une deuxieme macro pour effacer certaine cellule :

Private Sub EFFACER_Click()

Range("B5").Clear

Range("BC7").Clear

Range("B14").Clear

Range("C14").Clear

Range("B15").Clear

Range("B16").Clear

Range("B17").Clear

Range("C17").Clear

End Sub

Qui fonctionne bien aussi.

Je ne comprends pas comment faire fonctionner les 2 ensembles (imprimer en premier puis effacer)

Merci d'avance pour votre aide.

Bonjour toutes et tous

En faisant appel avec Call pour ta seconde macro

@ tester :

Private Sub IMPRIMER_Click()
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=true, _
Ignoreprintareas:=False
Call EFFACER
End Sub

Sub EFFACER()
Range("B5").Clear
Range("BC7").Clear
Range("B14").Clear
Range("C14").Clear
Range("B15").Clear
Range("B16").Clear
Range("B17").Clear
Range("C17").Clear
End Sub

crdlt,

André

Salut 41philippe,

et bien, ma foi, si tout baigne, tu joins les deux codes, tout simplement...

Private Sub IMPRIMER_Click()
'
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, Ignoreprintareas:=False
Range("B5").Clear
Range("BC7").Clear
Range("B14:B17").Clear
Range("C14").Clear
Range("C17").Clear
'
End Sub

A+

Re,

coucou et merci Curulis57

@Curulis57

et en effectuant comme ceci, j'ai un doute

Range("B5,BC7,B14:B17,C14,C17").Clear

ce qui donnerai :

Private Sub IMPRIMER_Click()
'
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, Ignoreprintareas:=False
Range("B5,BC7,B14:B17,C14,C17").Clear
'
End Sub

crdlt,

André

Merci,

Ca fonctionne a merveille.

Si je peux abuser, est il possible d'effacer les cellules en conservant la couleur de remplissage ?

La personne qui doit utiliser la feuille est archi débutante en informatique, 70 ans.

Salut André,

je n'avais pas vu ton message!

Range("B5,BC7,B14:B17,C14,C17").Clear

Et ceci fonctionne très bien aussi!

A+

re,

merci Curulis57

@ tester avec ClearContents au lieu de Clear

Private Sub IMPRIMER_Click()
'
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, Ignoreprintareas:=False
Range("B5,BC7,B14:B17,C14,C17").ClearContents
'
End Sub

crdlt,

André

Merci beaucoup,

Vous me sauvez la vie, je bloque les cellules auxquels, il n'aura pas accès, je test ce W.E.

Et après je suis tranquille.

Encore merci.

Salut Philippe,

Salut André,

• CLEARCONTENTS n'efface que le... contenu (valeurs) ;
• CLEAR efface les valeurs ET la mise en forme (couleurs, bordures).

A+

Non, je ne le savais pas, j'ai commencé les macros hier après midi.

C'est vraiment super les forum d'entraide.

Merci de vos explications.