Discussion :

[Cercle]

Bonjour,

J'essaie de créer un code vba avec la commande

Code :

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

Rows("1:50").EntireRow.AutoFit

sauf pour les lignes dont la hauteur est de 27.

Pourriez-vous m'aider svp

Merci d'avance

[BlueMonkey]

Bonsoir,

Essaye ce code :

Code :

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

1
2
3
4
5
6
7
8
Sub ResizeRows1To50ExceptH27()
    Dim r As Integer
    For r = 1 To 50
        If Rows(r).Height <> 27 Then
            Rows(r).EntireRow.AutoFit
        End If
    Next r
End Sub

[Cercle]

Merci beaucoup BlueMonkey, le code est parfait.

J'étais bloqué car je manque de pratique.

Cercle

[BlueMonkey]

De rien.
Bonne soirée.