Impression et colorer des cellules

[breitzou]

Bonjour à tous,
je travaille sur un petit fichier excel et je souhaiterais créer un bouton qui en cliquant dessus permettrait de lancer une impression mais uniquement pour les cellules non vides (voir exemple en fichier joint).
Par ailleurs, sur le même fichier je souhaiterais colorer des lignes de tableau en cliquant sur un bouton en face de ces lignes (voir également exemple en fichier joint).
Je vous remercie de votre aide.
Breitzou

 

[Staple1600]

Re : Impression et colorer des cellules

Bonjour


Pour définir ta zone d'impression

Sub a()
Dim A_IMPRIMER$
A_IMPRIMER = [B8].CurrentRegion.Address
ActiveSheet.PageSetup.PrintArea = A_IMPRIMER
End Sub

En un peu plus complet

Sub a_a() ' ici on définit la zone à imprimer puis on l'imprime
Dim NON_VIDE As Range, A_IMPRIMER$
Set NON_VIDE = [B8].CurrentRegion.SpecialCells(xlCellTypeConstants, 23)
A_IMPRIMER = NON_VIDE.Address
ActiveSheet.PageSetup.PrintArea = A_IMPRIMER
ActiveSheet.PrintOut 1
End Sub

 

[breitzou]

Re : Impression et colorer des cellules

Salut JM,
tout d'abord merci pour ta réponse.
J'ai essayé le code que tu m'as envoyé mais cela ne fonctionne pas.
Et je souhaite vraiment creer un bouton qui en cliquant dessus permettrait d'imprimer le tableau et les cellules non vides.
Par ailleurs je ne sais pas ce qu'il faut faire pour creer un bouton et associer le code qui va avec, ni sous quelle feuille ou module il faut le placer.
Enfin en bref, je suis un parfait débutant en la matière!!! Désolé!
A+
Breitzou

 

[Staple1600]

Re : Impression et colorer des cellules

Re

J'ai essayé le code que tu m'as envoyé mais cela ne fonctionne pas.

Nuance tu n'as pas su le faire fonctionner 😀

Je certifie que ce code fonctionne sinon
je ne l'aurai pas écrit puis tester pour finir par le poster ici 🙄

EDITION: copies les codes VBA ci-dessous dans un classeur vierge
et lance cette macro

O3_Ma_Macro_QUANDJEDIS_L_MARCHE_L_MARCHE_SAPERLIPOPETTE

Alors ? 😉

Sub O1_je_cree_des_donnees_bidons()
Dim x As Byte
x = 5
[B8].Resize(x, x).Value = Rnd
End Sub

Sub O2_avec_ces_donnes_ma_zone_d_impression_je_definis()
Dim A_IMPRIMER$
A_IMPRIMER = [B8].CurrentRegion.Address
ActiveSheet.PageSetup.PrintArea = A_IMPRIMER
End Sub

Sub O3_Ma_Macro_QUANDJEDIS_L_MARCHE_L_MARCHE_SAPERLIPOPETTE()
Dim NON_VIDE As Range, A_IMPRIMER2$

O1_je_cree_des_donnees_bidons
O2_avec_ces_donnes_ma_zone_d_impression_je_definis

Set NON_VIDE = [B8].CurrentRegion.SpecialCells(xlCellTypeConstants, 23)

A_IMPRIMER2 = NON_VIDE.Address
ActiveSheet.PageSetup.PrintArea = A_IMPRIMER2
ActiveSheet.PrintPreview

End Sub

 

[breitzou]

Re : Impression et colorer des cellules

Effectivement cela fonctionne!
Je m'étais mal exprimé dans ma 1ère réponse.😉
Mais au risque de paraître lourd, j'insiste pour mettre en place le même principe avec un bouton inséré dans la feuille. Je renouvelle ma question.
Est-ce possible? Et si oui, comment?
Merci d'avance.
Breitzou

 

[Staple1600]

Re : Impression et colorer des cellules

Re


Oui c'est possible

Mais as-tu essayé de le faire ? 🙄

1) Affichage/Barre d'outils/Formulaires/Bouton

2) Clic-droit sur ce bouton tout neuf -> Affecter une macro

et tu affectes la macro de ton choix

EDITION: Houps, 😱
C'est vrai que tu es un jeune padawan sous Excel
alors je range mes icônes ironiques et je te prends la main (que tu as propre j'espère en ces temps de pandémie) pour te guider sur le merveilleux chemin de la Cellule.

 

[breitzou]

Re : Impression et colorer des cellules

Je ne vais pas te cacher que je galère.😕
Mais je ne désespère pas et je me bats avec mes petits moyens!😱
Je n'ai aucun problème pour creer le bouton mais l'affectation de la macro me pose un problème.
J'essaie de m'inspirer de celle que tu m'as envoyé tout à l'heure.😉
Et je n'y arrive pas.😀
Souhaite-moi bon courage. J'en ai bien besoin!!!
Breitzou

 

[Staple1600]

Re : Impression et colorer des cellules

Re


Alors jeune padawan

Voici comment faire en détail

Dans VBE (Microsoft Visual Basic Editor) accessible par : ALT+F11
Tu crées un module STANDARD (Insertion/Module)
Là tu copies/colles le code VBA de ta macro.

Ensuite dans Excel
Tu insères ton bouton
Tu clic-droit -> Affecter une macro et tu choisis la macro désirée

Voir copie d'écran ci-dessous


C'est bon cela a fonctionné cette fois ?

 

[breitzou]

Re : Impression et colorer des cellules

J'ai un souci,
tout ce que tu m'as écrit je le faisais déjà auparavant.
Le pb, c'est qu'au travers de tes conseils, j'ai l'impression que cela est simple et qu'il faut trouver la macro dont j'ai besoin dans une liste. Mais je ne les trouve pas! Où sont-elles placées?
Après avoir inséré le module puis crée le bouton et enfin affecté la macro à laquelle j'ai donné un nom il ne se passe plus rien. Je n'ai pas de choix de macro qui se présente à moi.
Et d'après ton explication, je devrais pouvoir sélectionner assez facilement la macro qui m'intéresse.
Peux-tu m'en dire un peu plus s'il te plaît?
Merci d'avance
Cordialement
Jeune Padawan😉 ou Breitzou😀

 

[Staple1600]

Re : Impression et colorer des cellules

Re


Cela va être dur

car j'ai décidé que dorénavant je ne joignais plus de classeurs excel dans mes messages (une lubie de printemps)

donc à part te conseiller de relire mes précédents messages ou de chercher sur le forum d'autres fils de discussions similaires à ta question.

Évidemment ton salut viendra surement d'un autre forumeur qui postera une pièce jointe.

Asseyons nous au coin du feu et attendons son passage en buvant une bolée de cidre.

 

[breitzou]

Re : Impression et colorer des cellules

Merci quand même.
A bientôt peut-être
Salutations
Breitzou

 

[Staple1600]

Re : Impression et colorer des cellules

Re



Si tu joignais une autre pj (avec ton bouton ton module et ta macro )
par contre je pourrais te dire ou cela coince ... 🙄

EDITION: pour ce qui concerne ton coloriage

La cela devrait fonctionner direct

Tu cliques droit sur l'onglet de la feuille 1 de a 1ère pj dans ce post
et tu choisis Visualiser le code

et là tu colles le code VBA suivant

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
If Not Intersect(Target, [B9:E26]) Is Nothing Then
Cancel = True
    With Target
        If .Count = 1 And Not IsEmpty(.Value) Then
        Set r = Range(Cells(.Row, 2), Cells(.Row, 5))
        If r.Interior.ColorIndex = 3 Then
        r.Interior.ColorIndex = 4
        Else
        r.Interior.ColorIndex = 3
        End If
        End If
    End With
End If
Set r = Nothing
End Sub

maintenant double-clique sur une cellule au choix dans la plage de cellule:B9:E26

C'est ok là non pour le coloriage ?

 

[breitzou]

Re : Impression et colorer des cellules

Je te joins les pj mais sans la macro puisque je ne sais pas où aller chercher!
Merci encore de ton aide
Salutations
Breitzou

 

[Staple1600]

Re : Impression et colorer des cellules

Re

Tu as essayé la macro de "coloriage" ?
Voir mon message précédent.
Pourquoi tu n'as pas joint ton fichier Excel ???

Les images c'est beau encadrées sur un mur 😉
PS: j'ai dit que je joignais plus de classeurs dans mes messages
je t'ai jamais dis de faire comme moi à ce sujet (lol)

Alors réessayes toutes les indications précédentes avec toute la fougue et la concentration dont est capable un jeune padawan.

Si jamais tu n'y arrives toujours pas , alors je trouverai une ultime solution.

EDITION FINALE:
Il ne sera pas dit que j'ai laissé un jeune padawan errer dans les limbes de la Cellule.
Lien supprimé

Sauf qu'ici il s'agit d'un CommandButton de la barre d'outils Contrôle
Fais un clic droit sur le bouton et choisis :Visualiser le code

 

[breitzou]

Re : Impression et colorer des cellules

Pour le coloriage c'est OK. Cela fonctionne.
Je te remercie.
Je te joins le fichier Excel en pj avec le bouton.

Breitzou

PS : désolé, je n'avais pas lu en intégralité ton message.