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

Mettre cellules à la même hauteur lors de l'impression...

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

libellule85

XLDnaute Accro
Bonjour le forum,

J'ai un tableau de A1 à M120, et pour imprimer celui-ci j'utilise une macro (ci-dessous) qui masque les lignes non écrites qui imprime puis réaffiche les lignes masquées.
Mon "problème" c'est que si dans la partie (droite du tableau de I6 à M6) Ecritues non créditées j'ai par exemple quelque chose de renseignée, et si dans la partie gauche de mon tableau de A84 à G84 est renseigné : à l'impression celà donne image ci-dessous, et moi je voudrais (si celà est possible) que les lignes soient à la même hauteur.



Code: 
Sub ImprimeAuto()
Dim i As Long
 Application.ScreenUpdating = False
 For i = 5 To 120
     If Application.CountA(Rows(i)) = 0 Then Rows(i).Hidden = True
 Next i
 Application.ScreenUpdating = True
 ActiveSheet.PrintPreview
 'Application.ScreenUpdating = False
 'For i = 5 To 120
     'If Application.CountA(Rows(i)) = 0 Then Rows(i).Hidden = False
 'Next i
 'Application.ScreenUpdating = True
End Sub

D'avance merci pour votre aide
 

Pièces jointes

Trier par date Trier par votes
Re : Mettre cellules à la même hauteur lors de l'impression...

Bonsoir mth,🙂
Je te remercie pour ta réponse c'est sympa
Est ce qu'il est possible qu'une fois l'impression faite, on retrouve le tableau comme il était avant ??
 
Vote positif 0 Vote négatif
Re : Mettre cellules à la même hauteur lors de l'impression...

re 🙂

Un essai ci-joint, l'idée est de faire une copie de l'onglet, travailler sur cet onglet "temporaire", et à la fin le détruire et revenir à l'onglet de départ.

Vois si cela te convient,

mth
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Mettre cellules à la même hauteur lors de l'impression...

re bonjour libellule 🙂

Suite à ton MP:

que je remets dans le fil (c'est mieux car ainsi tout le monde peut lire le sujet et te répondre), je n'ai pas de problème de mon coté mais il y a peut-être une interférence avec une macro évènementielle présente dans ton classeur ?
Il faudrait pouvoir vérifier avec le code, joins un extrait avec cet onglet menu, au moins un onglet sans données confidentielles et l'intégralité du code, on devrait y voir plus clair pour t'aider.

Bonne journée,

mth
 
Vote positif 0 Vote négatif
Re : Mettre cellules à la même hauteur lors de l'impression...

re mth,bonjour le forum
comme convenu, je met le fichier en entier (sauf les usf) mais avec toutes les macros
Merci beaucoup à ceux qui pourront m'aider
Si vous avez besoin d'autres renseignements n'hésitez pas
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Mettre cellules à la même hauteur lors de l'impression...

re 🙂

Effectivement c'est la macro de l'onglet menu qui perturbait.
Pour contourner, voici le nouveau code qui fonctionne chez moi:

Code: 
Sub ImprimeAuto1()
Dim i As Long, myFeuil As String, myFeuil2 As String
 
 Application.ScreenUpdating = False
 myFeuil = ActiveSheet.Name
 ActiveSheet.Copy After:=Sheets(Sheets.Count)
 myFeuil2 = ActiveSheet.Name
 
 With Sheets(Sheets.Count)
    .Cells.EntireRow.Hidden = False
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range("A6:A114"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .SetRange Range("A6:G114")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range("I6:I114"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .SetRange Range("I6:L114")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    For i = 5 To 120
        If Application.CountA(Rows(i)) = 0 Then Rows(i).Hidden = True
    Range("A116:A119").EntireRow.Hidden = True
    Next i
    
     ActiveSheet.PrintPreview
 
 Application.DisplayAlerts = False
  Sheets(myFeuil2).Visible = True
 Sheets(myFeuil2).Delete
 Application.DisplayAlerts = True
 
 Sheets(myFeuil).Visible = True
 Sheets(myFeuil).Select
 Application.ScreenUpdating = True
 
End With

End Sub

Vois si ok de ton coté.

Bon après-midi,

mth
 
Vote positif 0 Vote négatif
Re : Mettre cellules à la même hauteur lors de l'impression...

re 🙂
J'ai mis ton nouveau code et celà ne fonctionne pas (au moins je n'ai plus de message d'erreur). En effet, si la ligne 6 par exemple est écrite à droite les lignes écrites du côté gauche se mette à partir de la ligne 7. Et si je met cette ligne écrite du coté droit bien plus bas, elle reste en bas au niveau de l'impression alors que les lignes du côté gauche remontent à la ligne 6... Ci joint deux images :
Au dessus :


En dessous :
 
Vote positif 0 Vote négatif
Re : Mettre cellules à la même hauteur lors de l'impression...

re 🙂

oups... désolée, étourderie de ma part j'ai oublié de changer le nom de l'onglet au début.

Peux tu modifier ceci au début du code:

Code: 
Sub ImprimeAuto1()
Dim i As Long, myFeuil As String, myFeuil2 As String
 
 Application.ScreenUpdating = False
 myFeuil = ActiveSheet.Name
 ActiveSheet.Copy After:=Sheets(Sheets.Count)
 myFeuil2 = ActiveSheet.Name
 
 With Sheets(myFeuil2)

c'est à dire remplacer
With Sheets(Sheets.Count)
par

With Sheets(myFeuil2)

@ +

mth
 
Vote positif 0 Vote négatif
Re : Mettre cellules à la même hauteur lors de l'impression...

re 🙂
Vraiment un très très grand merci pour ton aide précieuse sur mon problème, maintenant celà marche superbement bien !!!
Encore merci du fond du cœur.
Très bon après midi
 
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

  • Résolu(e)
Microsoft 365 [VBA] Barre de recherche dynamique - objectif : cacher les lignes hors résultat
Réponses
3
Affichages
517
Sergent_Lipton
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
729
Cheyenne_2021
C
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
899
un internaute
U
  • Résolu(e)
XL 2019 Problème de rapidité exécution
Réponses
11
Affichages
909
Cédric06400
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
L
  • Résolu(e)
XL 2016 Déplacer Une Ligne Entière Vers Une Autre Feuille En Fonction De La Valeur De La Cellule
Réponses
7
Affichages
2 K
loic59120
L
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
A
  • Résolu(e)
XL 2010 Suppression de lignes si toutes les cellules de cette même ligne est = 0
2
Réponses
20
Affichages
2 K
Aurélie13008
A
F
  • Résolu(e)
XL 2019 Aide modification vba
Réponses
10
Affichages
1 K
Fanrs
F
L
  • Question Question
Microsoft 365 La méthode Delete de la classe range a échoué (Déboguer VBA)
Réponses
6
Affichages
2 K
lukes67
L
L
  • Résolu(e)
XL 2016 Mettre à jour un tableau avec de nouvelles données
Réponses
8
Affichages
2 K
LauLauR
L
S
  • Question Question
XL 2016 Comment intégrer une progressbar pour montrer l'évolution de la synchro des TCDS
Réponses
1
Affichages
1 K
scoubidou35
S
L
  • Résolu(e)
XL 2010 Problème vba lorsque la feuille est protegée
Réponses
2
Affichages
985
Linda42
L
U
  • Question Question
Autres Modifier couleurs par double click
Réponses
1
Affichages
970
Dudu2
K
  • Question Question
XL 2016 Bouton pour Impression de plusieurs fuilles excel dans le même fichier pdf par exempe
Réponses
8
Affichages
2 K
kamal.elkakiri
K
N
  • Résolu(e)
XL 2016 Lenteur à l'insertion de ligne en VBA
Réponses
5
Affichages
3 K
Nicocotte125
N
D
  • Résolu(e)
XL 2019 Ventilation de données vers plusieurs feuilles à partir d'une feuille-source
2
Réponses
15
Affichages
5 K
DJISA
D
R
  • Résolu(e)
XL 2010 Copie de feuilles d'un classeur dans un autre selon certains critères
Réponses
7
Affichages
2 K
fanch55
L
  • Question Question
XL 2019 Problème de boucle ou de variables
Réponses
1
Affichages
1 K
Lucien31
L
  • Question Question
XL 2013 Les Fonctions personnalisé avec Aide à la saisie et Aide boite de dialogue
Réponses
0
Affichages
3 K
laurent950
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…