A voir également:
- Trie des onglets dans un ordre définit
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Il est trié sur la plateforme de départ ✓ - Forum Consommation et internet
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms - Forum Excel
- Ordre des contacts actifs sur messenger - Forum Facebook Messenger
- Ordre meilleur ami snap - Forum Snapchat
7 réponses
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 656
15 févr. 2016 à 18:59
15 févr. 2016 à 18:59
Bonjour,
Ton exemple ne doit pas correspondre car tu veux sans doute faire une boucle ?
Sinon
Ton exemple ne doit pas correspondre car tu veux sans doute faire une boucle ?
Sinon
Sheets("Ouvrage").Move Before:=Sheets("tonchoix")
J'essaye désespérément d'imprimer des onglets d'une feuille excel dans l'ordre que je désire sans avoir à modifier l'ordre des onglets dans mon fichier car c'est un fichier que j'ai récupéré alors Auriez vous une solution pour modifier seet(array("onglet3","onglet5","onglet2"....).select comment je peux faire pour donner cet ordre lorsque je génère le pdf merci si vous pouvez me donner une solution
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
Modifié par michel_m le 16/02/2016 à 09:30
Modifié par michel_m le 16/02/2016 à 09:30
Bonjour
tes demandes sont différentes
dans le message 1 tu veux trier les onglets en les déplaçant
dans le message 3, tu veux un ordre d'impression des onglets
Qu'est ce qu'on Fait ?
DOUBLON AVEC
https://forums.commentcamarche.net/forum/affich-33156927-ordre-d-impression-d-onglets-excel
:-(
Michel
tes demandes sont différentes
dans le message 1 tu veux trier les onglets en les déplaçant
dans le message 3, tu veux un ordre d'impression des onglets
Qu'est ce qu'on Fait ?
DOUBLON AVEC
https://forums.commentcamarche.net/forum/affich-33156927-ordre-d-impression-d-onglets-excel
:-(
Michel
Bonjour Michel_m: je me suis surement mal exprimé! désolé je veux pour définir l'ordre d'impression de mes onglets sans avoir à les ranger dans le ruban. Soit lorsque je génère le PDF sortir par exemple l'onglet 3 avant l'onglet 1 et puis mettre après l'onglet 2.
Merci si vous pouvez m'aider.
Merci si vous pouvez m'aider.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
Modifié par michel_m le 16/02/2016 à 09:41
Modifié par michel_m le 16/02/2016 à 09:41
Il est très mal vu de faire des doublons
https://forums.commentcamarche.net/forum/affich-33156927-ordre-d-impression-d-onglets-excel
Tu restes sur le premier et tu fais un Up
pour imprimer dans un ordre défini (sur une maquette pour tester le système)
Option Explicit
Michel
https://forums.commentcamarche.net/forum/affich-33156927-ordre-d-impression-d-onglets-excel
Tu restes sur le premier et tu fais un Up
pour imprimer dans un ordre défini (sur une maquette pour tester le système)
Option Explicit
Sub ccc()
Dim list, Cptr As Byte
liste = Array("feuil3", "feuil1", "feuil2")
For Cptr = 0 To UBound(liste)
MsgBox liste(Cptr)
Next
End Sub
Michel
Merci Michel, désolé encore pour le doublon!
voilà mon code, je n'arrive pas à le faire fonctionner au niveau de liste(array(...
'Impression Rapport
Sheets("Contrôle initial").Select
If Range("AA2") = 1 Then
'Sheets("Rapport").Move After:=Sheets("Ouvrage")
Dim list, cptr As Byte
liste(Array("Rapport", "Ouvrage", "Contrôle initial", "Echantillonnage", "Doc", "Ecarts", "Annexe 1", "Ctrl visuels LA", "Paramètre")).Select
For cptr = 0 To UBound(liste)
MsgBox liste(cptr)
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nom1 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
Sheets("Contrôle initial").Select
If Range("AA2") = 0 Then
'Sheets("Rapport").Move after:=Sheets("Ouvrage")
Dim list, cptr As Byte
liste(Array("Rapport", "Ouvrage", "Contrôle initial", "Echantillonnage", "Doc", "Ecarts", "Annexe 1", "Ctrl visuels LA", "Paramètre")).Select
For cptr = 0 To UBound(liste)
MsgBox liste(cptr)
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nom1 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
Pouvez vous me donner une aide svp
voilà mon code, je n'arrive pas à le faire fonctionner au niveau de liste(array(...
'Impression Rapport
Sheets("Contrôle initial").Select
If Range("AA2") = 1 Then
'Sheets("Rapport").Move After:=Sheets("Ouvrage")
Dim list, cptr As Byte
liste(Array("Rapport", "Ouvrage", "Contrôle initial", "Echantillonnage", "Doc", "Ecarts", "Annexe 1", "Ctrl visuels LA", "Paramètre")).Select
For cptr = 0 To UBound(liste)
MsgBox liste(cptr)
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nom1 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
Sheets("Contrôle initial").Select
If Range("AA2") = 0 Then
'Sheets("Rapport").Move after:=Sheets("Ouvrage")
Dim list, cptr As Byte
liste(Array("Rapport", "Ouvrage", "Contrôle initial", "Echantillonnage", "Doc", "Ecarts", "Annexe 1", "Ctrl visuels LA", "Paramètre")).Select
For cptr = 0 To UBound(liste)
MsgBox liste(cptr)
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nom1 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
Pouvez vous me donner une aide svp
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
16 févr. 2016 à 11:09
16 févr. 2016 à 11:09
Commence par lire ce que je t'ai proposé !!!!
tu as écris
C'EST NIMPORTE QUOI!
abandon: perte de temps inutile
tu as écris
liste(Array("Rapport", "Ouvrage", "Contrôle initial", "Echantillonnage", "Doc", "Ecarts", "Annexe 1", "Ctrl visuels LA", "Paramètre")).Select
C'EST NIMPORTE QUOI!
abandon: perte de temps inutile
Gopalkri1
>
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
16 févr. 2016 à 11:35
16 févr. 2016 à 11:35
Oui mais liste = array (.... ne fonctionne pas non plus
merci
merci
Bonjour Michel m'a un peu aidé mais mon code ne marche pas, pouvez vous m'aider à le modidier
merci
Sheets("Contrôle initial").Select
If Range("AA2") = 1 Then
'Sheets("Rapport").Move After:=Sheets("Ouvrage")
Dim list, cptr As Byte
liste=Array("Rapport", "Ouvrage", "Contrôle initial", "Echantillonnage", "Doc", "Ecarts", "Annexe 1", "Ctrl visuels LA", "Paramètre")).Select
For cptr = 0 To UBound(liste)
MsgBox liste(cptr)
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nom1 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
Sheets("Contrôle initial").Select
If Range("AA2") = 0 Then
'Sheets("Rapport").Move after:=Sheets("Ouvrage")
Dim list, cptr As Byte
liste=Array("Rapport", "Ouvrage", "Contrôle initial", "Echantillonnage", "Doc", "Ecarts", "Annexe 1", "Ctrl visuels LA", "Paramètre")).Select
For cptr = 0 To UBound(liste)
MsgBox liste(cptr)
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nom1 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
merci
Sheets("Contrôle initial").Select
If Range("AA2") = 1 Then
'Sheets("Rapport").Move After:=Sheets("Ouvrage")
Dim list, cptr As Byte
liste=Array("Rapport", "Ouvrage", "Contrôle initial", "Echantillonnage", "Doc", "Ecarts", "Annexe 1", "Ctrl visuels LA", "Paramètre")).Select
For cptr = 0 To UBound(liste)
MsgBox liste(cptr)
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nom1 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
Sheets("Contrôle initial").Select
If Range("AA2") = 0 Then
'Sheets("Rapport").Move after:=Sheets("Ouvrage")
Dim list, cptr As Byte
liste=Array("Rapport", "Ouvrage", "Contrôle initial", "Echantillonnage", "Doc", "Ecarts", "Annexe 1", "Ctrl visuels LA", "Paramètre")).Select
For cptr = 0 To UBound(liste)
MsgBox liste(cptr)
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nom1 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
17 févr. 2016 à 08:56
17 févr. 2016 à 08:56
C'est pas vrai !!!!
Je t'ai passé une maquette démo !!!
le msgbox est fait UNIQUEMENT pour vérifier qu'on a l'ordre marqué dans liste
déjà, dans un 1° temps, tu me dis "Ca marche pas" parce que tu as oublié de mettre le signe "=" !!!!
tu supprimes le msgbox et tu mets le lancement de l'impression à la place
Adieu
Je t'ai passé une maquette démo !!!
le msgbox est fait UNIQUEMENT pour vérifier qu'on a l'ordre marqué dans liste
déjà, dans un 1° temps, tu me dis "Ca marche pas" parce que tu as oublié de mettre le signe "=" !!!!
tu supprimes le msgbox et tu mets le lancement de l'impression à la place
Adieu
Gopalkri1
>
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
17 févr. 2016 à 08:58
17 févr. 2016 à 08:58
Merci Michel, sincèrement désolé si je t'ai froissé, je suis novice