Microsoft 365 Valeur cellule dans un macro

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion juju91
  • Date de début Date de début

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
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
Bonjour
merci pour votre aide.

Comme DAN l'a indiqué dés que l'une des feuilles n'a pas une condition ''VRAI" les feuilles suivantes ne sont pas imprimées .
Dans le code suivant ( voir le fichier joint)
La feuille dont le nom est mentionné en A18 n'est pas imprimée puisque A19 n'est pas VRAI.
Comment passer à la vérification suivante?
En faite je souhaiterais que seul les feuilles correspondant à la condition VRAI soient imprimées.

Sachant que dans mon fichier original il y a 28 ''feuilles" à vérifier.

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:=.Range("A1").Value
.Visible = False
End With

If UCase(.Range("B19")) = "VRAI" Then
feuille = .Range("A19")
With Worksheets(feuille)
.Visible = True
.Select
.PrintOut From:=1, To:=1, Copies:=.Range("A1").Value
.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:=.Range("A1").Value
.Visible = False
End With


End If
End If
End If
End With
Application.ScreenUpdating = True

End Sub


Merci du temps passé sur ma demande.

Cdt
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour
Dans votre fichier on n'a pas de données en A14 à A17 . Normal ou pas ?

NB : Lorsque vous postez un code dans votre demande, pensez à utiliser les balises de code en cliquant sur l'icône </> disponible dans la barre de menu et en collant votre code dans la fenêtre. C'est nettement plus lisible pour celui qui vous répond.
 
Dernière édition:
Vote positif 0 Vote négatif
Re,

Essayez le code comme ceci

VB: 
Sub AAAAA_IMPRESSION_Bar_sucré_fruits_coupé()
Dim feuille As String
Dim cel As Range

Application.ScreenUpdating = False

With Worksheets("PARAMETRAGE")
    For Each cel In .Range("B14:B20") 'rajouté point devant Range (voir commentaire de ToofatBoy dans post suivant)
        If UCase(cel.Value) = "VRAI" And cel.Offset(0, -1) <> vbNullString Then
            feuille = cel.Offset(0, -1)
            With Worksheets(feuille)
                .Visible = True
                .Select
                .PrintOut From:=1, To:=1, Copies:=.Range("A1").Value
                .Visible = False
            End With
        End If
    Next cel  
End With
Application.ScreenUpdating = True

End Sub

Si ce code résout votre demande pensez à cocher la case à cocher à droite du ou des posts qui vous ont apporté la réponse
 
Dernière édition:
Vote positif 0 Vote négatif
Sur votre fichier posté, je n'ai pas de soucis avec le dernier code que vous ai proposé.
C'est votre vrai fichier que vous avez posté ?

Au besoin, cliquez sur sub AAAA....., puis utilisez la touche F8 pour avancer pas à pas dans le code. cela vous permettra de voir ce qui se passe
 
Vote positif 0 Vote négatif
TooFatBoy à dit:
Hello,
Le premier des deux With imbriqués ne me semble pas très utile, surtout si ensuite tu ne mets pas un point devant Range.
Me trompé-je ?
Cliquez pour agrandir...
Oui effectivement (merci je corrige - je l'avais mis chez moi pourtant....) mais son souci est ailleurs et probablement dans son vrai fichier

Le code peut être d'ailleurs ceci
VB: 
Sub AAAAA_IMPRESSION_Bar_sucré_fruits_coupé()
Dim feuille As String
Dim cel As Range

Application.ScreenUpdating = False

For Each cel In Worksheets("PARAMETRAGE").Range("B14:B20")
    If UCase(cel.Value) = "VRAI" And cel.Offset(0, -1) <> vbNullString Then
        feuille = cel.Offset(0, -1)
        With Worksheets(feuille)
            .Visible = True
            .Select
            .PrintOut From:=1, To:=1, Copies:=.Range("A1").Value
            .Visible = False
        End With
    End If
Next cel    
Application.ScreenUpdating = True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
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
184
cathodique
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
450
sylvanu
sylvanu
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
527
pat66
P
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
310
job75
job75
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
626
AtTheOne
AtTheOne
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
198
un internaute
U
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
748
Nounours4173
N
nat54
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
395
nat54
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
386
CDALE
C
C
  • Question Question
Microsoft 365 erreur d'execussion 6 - depassement de capacite
Réponses
2
Affichages
289
CARO13
C
Electron24
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
369
Electron24
Electron24
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
420
job75
job75
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
813
Phil69970
Phil69970
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
302
patricktoulon
patricktoulon
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
675
ph.vanne
ph.vanne
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
759
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
Retour