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

Problème de mise en page 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
G

Grenoble87

XLDnaute Nouveau
Bonjour à tous,

Toujours en phase d'apprentissage sur VBA, je souhaite terminer un projet sur lequel j'ai déjà obtenu d'aide sur ce forum et je vous avoue que je patauge..
Je vous met le fichier en pièces jointes.

Mon problème est le suivant : Quand j'appuie sur le bouton +, les colonnes (Vibrations) se rajoutent bien jusqu'à la 4ème (Maximum) et le boutons - m'enlève bien les colonnes (Vibrations) en me laissant la dernière qui le minima.
Le problème que je rencontre est pour la mise en page du fichier: Quand on rajoute des colonne j'aimerais que les bordures se remettent automatiquement et proprement.. En voyant le fichier vous comprendrez.
Ps: La colonne vibration est la M
Merci par avance pour votre aide!
Bonne journée
 

Pièces jointes

Trier par date Trier par votes
Re : Problème de mise en page macro

Bonjour

Dans macro 'AdaptAll' en bas:

Remplacer ligne:
Code: 
Plage.Borders(xlEdgeLeft).Weight = xlThin

Par
Code: 
  Plage.Borders(xlEdgeLeft).LineStyle = xlLineStyleNone     '  modification des bordures

A+
 
Vote positif 0 Vote négatif
Re : Problème de mise en page macro

Bonjour et merci pour cette réponse par contre j'aurais aimer conserver mes bordures dans les plages 🙁M20 : P24) , (M27😛31) et (M34😛38), de façon a conserver mes bordures uniquement dans ces plages.

Cdt
 
Vote positif 0 Vote négatif
Re : Problème de mise en page macro

Re,

Alors:
Code: 
  Plage.Borders(xlEdgeLeft).LineStyle = xlLineStyleNone
  Intersect(Plage, Union(Sh.Rows("20:24"), Sh.Rows("27:31"), Sh.Rows("34:38"))).Borders(xlEdgeLeft).Weight = xlThin  '  modification des bordures

A+
 
Vote positif 0 Vote négatif
Re : Problème de mise en page macro

MERCI!!! Je galère la dessus depuis pas mal de temps..

Dernière petite chose (Oui j'en profite 🙂 ) : Est-ce possible de pouvoir faire évoluer la zone d'impression en fonction du nombre de colonne ajouté? ( La zone d'impression s'agrandi automatiquement si ajout de colonne?

Merci beaucoup en tout cas pour cette aide précieuse!
 
Vote positif 0 Vote négatif
Re : Problème de mise en page macro

Re,

Je te donne le principe,

Code: 
with Sheets("LaFeuille")
          .PageSetUp.PrintArea = .Range("A1").CurrentRegion.Address
End With

Mais ce n'est peut-être pas necessaire de le définir à chaque fois, juste avant l'impression de la feuille, suffit.

A+
 
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

E
  • Résolu(e)
XL 2016 Verrouiller page avec accès "filtre" + "mise en page personnalisée"
Réponses
9
Affichages
309
Phil69970
A
  • Question Question
XL 2019 Mise en forme
Réponses
4
Affichages
179
TooFatBoy
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
258
CortoXls
C
D
  • Question Question
Microsoft 365 Problème Option de Collage
Réponses
10
Affichages
431
duduche62
D
P
  • Résolu(e)
Microsoft 365 Mise en surbrillance de prix min et max (mise en forme conditionnelle)
Réponses
6
Affichages
233
Pepepichnette69
P
Y
  • Question Question
Microsoft 365 Suite de mise en forme onditionnelle en fonction dune liste déroulante Compter des valeurs >0.75
Réponses
3
Affichages
260
YGU1
Y
  • Question Question
XL 2016 rajouter une colonne en macro
Réponses
0
Affichages
189
richardlion
J
  • Question Question
Microsoft 365 Mise en page différentes entre 2 pc
Réponses
1
Affichages
530
TooFatBoy
  • Résolu(e)
Microsoft 365 Problème avec l'affichage de l'heure dans Label de Userform
Réponses
8
Affichages
274
ChTi160
C
  • Résolu(e)
XL 2019 Problème de transferts de données formulaire à feuille
Réponses
5
Affichages
152
ceralpes
C
  • Question Question
Microsoft 365 Problème taille de document lors export en PDF
Réponses
6
Affichages
365
wDog66
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
799
spike29
S
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
465
MCOTTEND
M
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
374
Phil69970
M
  • Résolu(e)
Microsoft 365 Gestion numéros de pages du classeur dans une cellule
2
Réponses
16
Affichages
2 K
sousou
M
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle: ne pas colorer une cellule non renseignée
Réponses
6
Affichages
676
Mouss3710
M
A
  • Question Question
XL 2016 Mise en forme conditionnelle sur plusieurs lignes
Réponses
2
Affichages
649
Arnauddu44
A
D
  • Question Question
Microsoft 365 Problème de format de cellule en VBA
Réponses
11
Affichages
790
David
D
  • Résolu(e)
XL 2013 Mise en forme conditionelle Problème avec cellule qui contient une formule
Réponses
3
Affichages
400
Gégé-45550
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
847
Dock91
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…