Discussion :

[bibvba]

Bonjour,

J'essai de mettre le format horizontale et verticale + largeur et hauteur automatique des cellules, pour tous les onglets.

Pouvez-vous me dire ce qui cloche dans mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim ShtAlignt As Worksheet
    For Each ShtAlignt In Worksheets
        If ShtAlignt.Range("A1").Value <> "" Then
                With Selection
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                    .WrapText = False
                    .Orientation = 0
                    .AddIndent = False
                    .IndentLevel = 0
                    .ShrinkToFit = False
                    .ReadingOrder = xlContext
                    .MergeCells = False
                End With
            Cells.EntireColumn.AutoFit
            Cells.EntireRow.AutoFit
        End If
    Next

En sachant qu'il ne fonctionne pas, mais qu'il ne bogue pas non plus.

Merci d'avance

[zyhack]

Bonjours

apparemment tu n'as oublié que la sélection des cellules et j'ai supprimé les lignes inutiles.

tu peux essayer ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Mise_En_Forme()
  Dim ShtAlignt As Worksheet
  'Boucledans tous les onglets
  For Each ShtAlignt In Worksheets
    'la feuille ne sera mise en forme que si la cellule A1 n'est pas vide
    If ShtAlignt.Range("A1").Value <> "" Then
      'il faut selectionner toutes les cellules
      Cells.Select
      'et on les mets en forme
      With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .EntireColumn.AutoFit
        .EntireRow.AutoFit
      End With
    End If
  Next
End Sub

bonne soirée

[bibvba]

merci zyhack pour ta réponse.

mais ce code ne fait effet que sur le dernier onglet!!

[zyhack]

Est-ce que toutes les cellules "A1" de toutes tes feuilles ont une valeur car la condition que tu as mis empêche la mise en forme si la cellule est vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ShtAlignt.Range("A1").Value <> "" Then

sinon il faudrait la supprimer

[bibvba]

j'ai essayé ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub essai()
Dim ShtAlignt As Worksheet
  'Boucledans tous les onglets
  For Each ShtAlignt In Worksheets
    'la feuille ne sera mise en forme que si la cellule A1 n'est pas vide
      'il faut selectionner toutes les cellules
      Cells.Select
      'et on les mets en forme
      With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .EntireColumn.AutoFit
        .EntireRow.AutoFit
      End With
  Next
End Sub

mais ca ne fonctionne que dans le worksheet actif

[bibvba]

J'ai trouvé,

En faite il fallait simplement lui demander d'activer les Worksheets avant de selectionner toutes les cellules.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub essai()
Dim ShtAlignt As Worksheet
  For Each ShtAlignt In Worksheets
  ShtAlignt.Activate
    Cells.Select
      With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .EntireColumn.AutoFit
        .EntireRow.AutoFit
      End With
  Next
End Sub

A bientôt

[AlainTech]

Pourquoi tant de Select et Activate?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub essai()
Dim ShtAlignt As Worksheet
  For Each ShtAlignt In Worksheets
    With ShtAlignt.Cells
      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
      .EntireColumn.AutoFit
      .EntireRow.AutoFit
    End With
  Next
End Sub