Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Valeur cellule dans un macro

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

juju91

XLDnaute Junior
Bonjour à tous,

j'ai encore besoin de votre aide.

je souhaiterais récupérer la valeur contenue dans une cellule (nom d'un onglet) d'un feuille (PARAMETRAGE) et de l'intégrer dans une macro qui doit imprimer l'onglet définie.

Ci dessous la macro que j'ai commencé à "créer" mais , bien évidement elle ne fonctionne pas.

Sub AAAAA_IMPRESSION_Bar_sucré_fruits_coupé()
Application.ScreenUpdating = False
If UCase(Worksheets("PARAMETRAGE").Range("B20")) Then
Worksheets("Bar sucré fruits coupé").Visible = True
Worksheets("Bar sucré fruits coupé").Select
Sheets("Bar sucré fruits coupé").PrintOut From:=1, To:=1, Copies:=1
Worksheets("Bar sucré fruits coupé").Visible = False

If UCase(Worksheets("PARAMETRAGE").Range("B18")) Then
Worksheets("Bar sucré").Visible = True
Worksheets("Bar sucré").Select
Sheets("Bar sucré").PrintOut From:=1, To:=1, Copies:=1
Worksheets("Bar sucré").Visible = False
Application.ScreenUpdating = True
End If
End If
End Sub


je ne suis pas certain d'avoir été clair, je mets donc en PJ fichier simplifié.

par avance merci de votre aide.

Cdt
 

Pièces jointes

Trier par date Trier par votes
Bonjour
merci d'avoir pris du temps pour répondre à ma demande.
En faite le souhaiterais remplacer le nom de la feuille a imprimer par la valeur de la cellule qui ce trouve dans la cellule de la colonne A
les nom des onglets peuvent évoluer, d'où ma demsnde

j'ai essayé cela mais ça ne fonctionne pas... et ca me semble un peu bancale..

If UCase(Worksheets("PARAMETRAGE").Range("B20")) Then
Worksheets(UCase(Worksheets("PARAMETRAGE").Range("A20")).value).Visible = True
Worksheets((UCase(Worksheets("PARAMETRAGE").Range("A20")).value)).Select
Sheets((UCase(Worksheets("PARAMETRAGE").Range("A20")).value)).PrintOut From:=1, To:=1, Copies:=1
Worksheets((UCase(Worksheets("PARAMETRAGE").Range("A20")).value)).Visible = False


Encore merci pour votre temps.
 
Vote positif 0 Vote négatif
Bonjour
Comme Fanfan38, cela fonctionne bien chez moi aussi
Essayez de corriger cette ligne
VB: 
If UCase(Worksheets("PARAMETRAGE").Range("B20")) =True Then

Ou remplacez le TRUE par "VRAI"
 
Vote positif 0 Vote négatif
Re
Essayez votre code comme ceci
VB: 
Sub AAAAA_IMPRESSION_Bar_sucré_fruits_coupé()
Dim feuille As String
Application.ScreenUpdating = False
With Worksheets("PARAMETRAGE")
    If UCase(.Range("B20")) = "VRAI" Then
        feuille = .Range("A20")
        With Worksheets(feuille)
            .Visible = True
            .Select
            .PrintOut From:=1, To:=1, Copies:=1
            .Visible = False
        End With

        If UCase(.Range("B18")) = "VRAI" Then
            feuille = .Range("A18")
            With Worksheets(feuille)
                .Visible = True
                .Select
                .PrintOut From:=1, To:=1, Copies:=1
                .Visible = False
            End With
        End If
    End If
End With
Application.ScreenUpdating = True
End Sub

Attention que :
- le nom dans la colonne A doit être strictement identique à celui de vos feuilles. Ce qui n'est pas le cas pour la cellule A20 par exemple.
- dans votre code l'impression de la feuille dont le nom est mentionné en A18 ne sera faite que si A20 est mentionné VRAI
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
182
cathodique
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
447
sylvanu
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
526
pat66
P
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
308
job75
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
625
AtTheOne
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
196
un internaute
U
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
735
Nounours4173
N
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
383
nat54
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
175
vazvaz
V
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
384
CDALE
C
C
  • Question Question
Microsoft 365 erreur d'execussion 6 - depassement de capacite
Réponses
2
Affichages
288
CARO13
C
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
368
Electron24
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
413
job75
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
809
Phil69970
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
994
tnion
T
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
302
patricktoulon
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
673
ph.vanne
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
758
candido57
C
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
490
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…