mise forme automatique

[SLIJACK]

Bonsoir le forum !!

j'ai un tableau avec un code pour une mise en forme auto de cellule fusionnées, il fonctionne très bien.
J'ai essayé de le modifier pour que la mise en forme commence sur la ligne N° 11 sur l’onglet "Liste des travaux" le code est lancé par le bouton "Mise en Page", mais je ne trouve pas, si quelqu'un peu m'aider je l'en remercie d'avance je joint un fichier exemple.

 

[JHA]

Re : mise forme automatique

Bonjour à tous,

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

VADbis1.xlsm!Feuil13.AjusteEnHauteur

JHA

 

[phlaurent55]

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

 

[SLIJACK]

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

 

[phlaurent55]

Re : mise forme automatique

Re,

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

Sans avoir bien compris le but, essaie ceci:

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

 

[SLIJACK]

Re : mise forme automatique

Bonjour
Merci Philippe !!!! cela fonctionne parfaitement