XL 2019 Rw.RowHeight = 24

[bauerjackob]

Sub Raz(Optional x As Byte)
Dim Sh As Shape, Rw As Range

With ActiveSheet
For Each Sh In .Shapes
If Sh.Name Like "_*" Then Sh.Delete
Next Sh
For Each Rw In .Range(ZN).Rows
Rw.RowHeight = 24
Next Rw
End With
End Sub


Il fait un debogage de ca mon fichier. Je ne trouve pas comment le corriger

 

[sylvanu]

Tour d'abord Bonsoir Bauerjackob,
Après 73 messages toujours pas pris les bonnes habitudes.

Dans votre code .Range(ZN) n'est pas correct, sauf si quelque part en variables public elle est défini.
ZN n'est pas une plage, ni l'adresse d'une cellule.
Par ex, si on fait : For Each Rw In .Range("A20:A25").Rows
alors ça marche correctement.

 

[TooFatBoy]

Bonjour Sylvanu,

Peut-être que ZN est le nom d'une zone nommée sur la feuille.

 

[sylvanu]

Bonsoir TooFatBoy,
Alors ce serait .Range("ZN")

 

[TooFatBoy]

Alors ce serait .Range("ZN")

Toutafé

 

[patricktoulon]

bonsoir
et puis si c’était une colonne complète
pas besoins de boucler

range("ZN:ZN").rowheight=24

 

[patricktoulon]

dans ce cas là c'est bien

feuille.range(ZN).rowheight=24

feuille étant la feuille parent bien sur

 

[bauerjackob]

Tour d'abord Bonsoir Bauerjackob,
Après 73 messages toujours pas pris les bonnes habitudes.

Dans votre code .Range(ZN) n'est pas correct, sauf si quelque part en variables public elle est défini.
ZN n'est pas une plage, ni l'adresse d'une cellule.
Par ex, si on fait : For Each Rw In .Range("A20:A25").Rows
alors ça marche correctement.

oui Sylvanu. ici un apprend. on applique et on crée.Cest bien résolu merci.