mise forme automatique

J

JHA

XLDnaute Barbatruc

• 30 Juin 2012

• #2

Re : mise forme automatique

Bonjour à tous,

Le code est sur une feuille 13 qui n'est pas dans ce fichier

VADbis1.xlsm!Feuil13.AjusteEnHauteur

Cliquez pour agrandir...

JHA

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Juin 2012

• #3

Re : mise forme automatique

Bonjour Slijack

la macro "Ajuster en hauteur" est absente sur le fichier joint (à première vue elle devrait se trouver sur la feuille13 qui est également absente)

Il y a un code dans le module3: Sub MASQUER() n'est-ce pas celui-là que tu cherches ?

à+
Philippe

Edit Bonjour JHA

 

Vote positif 0 Vote négatif

S

SLIJACK

Guest

• 30 Juin 2012

• #4

Re : mise forme automatique

Bonjour le forum !
tout d'abord milles excuse pour le fichier incomplet que j’ai mis en ligne. voici le bon.
Bon weekend et encore merci pour votre aide

 

Pièces jointes

• VADbis2.xlsm

  46.8 KB · Affichages: 45

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Juin 2012

• #5

Re : mise forme automatique

Re,

J'ai essayé de le modifier pour que la mise en forme commence sur la ligne N° 11..........

Cliquez pour agrandir...

Sans avoir bien compris le but, essaie ceci:

Code:

Sub AjusteEnHauteur()
Application.ScreenUpdating = False
For Each cel In Range("A11:H55")
  If cel <> "" Then
    Set m = cel.MergeArea
    m.UnMerge
    m.WrapText = True 'renvoie à la ligne
    m.HorizontalAlignment = xlCenterAcrossSelection
    m.Rows.AutoFit
    m.Merge
    m.HorizontalAlignment = xlGeneral 'facultatif bien sûr
  End If
Next
Application.ScreenUpdating = True
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

S

SLIJACK

Guest

• 30 Juin 2012

• #6

Re : mise forme automatique

Bonjour
Merci Philippe !!!! cela fonctionne parfaitement

 

Vote positif 0 Vote négatif