Rows.EntireRow.AutoFit avec exception

Bonjour,

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

Code:

---

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

---

sauf pour les lignes dont la hauteur est de 27.

Pourriez-vous m'aider svp

Merci d'avance

Bonsoir,

Essaye ce code :

Code:

---

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

---

Merci beaucoup BlueMonkey, le code est parfait.

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

Cercle

De rien.
Bonne soirée. 8-)