Macro pour modifier les hauteurs de certaines lignes

Gedch · 15 Septembre 2011

Bonjour

J’utilise plusieurs hauteurs de ligne dans ma feuille

Dont certaines qui ne bouge jamais

Mais il m’arrive par contre de modifier certaines hauteurs de lignes,

Notamment pour me permettre d’avoir un affichage optimum d’une même sélection.

Je peux par exemple modifier la hauteur en 18 de toutes les lignes qui étaient en 15 parmi les 50 premières lignes seulement de ma feuille

Comme il y a plusieurs hauteurs et quelle ne sont pas à la suite, cela peu me prendre beaucoup de temps.

Une macro qui me permettrait de changer les hauteurs des lignes qui sont en X (20 par exemple) par une hauteur en Y (15 par exemple) pour une zone que je délimiterais avec la souris (par exemple de la ligne 30 à la ligne 60) serait elle réalisable ?

Merci

Victor21 · 15 Septembre 2011

Re : Macro pour modifier les hauteurs de certaines lignes

Bonjour, gedch

Sans fichier exemple...
Tu peux nommer la zone concernée, la sélectionner avec son nom, et modifier d'un coup la hauteur des lignes.

JNP · 15 Septembre 2011

Re : Macro pour modifier les hauteurs de certaines lignes

Bonjour le fil ,
Peut-être quelque chose du genre

Code:

Sub Test()
Dim Cellule As Range, Plage As Range
Dim HauteurDébut As Double, HauteurFin As Double
HauteurDébut = Application.InputBox("Hauteur à modifier ?", "Hauteur précedente", , , , , , 1)
HauteurFin = Application.InputBox("Hauteur à appliquer ?", "Hauteur désirée", , , , , , 1)
For Each Cellule In Selection.Resize(, 1)
    If Cellule.RowHeight = HauteurDébut Then
        If Not Plage Is Nothing Then
            Set Plage = Union(Plage, Cellule)
        Else
            Set Plage = Cellule
        End If
    End If
Next Cellule
If Not Plage Is Nothing Then Plage.RowHeight = HauteurFin
End Sub

Bonne suite

Dranreb · 15 Septembre 2011

Re : Macro pour modifier les hauteurs de certaines lignes

Bonjour.
Chez moi si je sélectionne tout simplement 10 lignes entières consécutives, la modification de hauteur dans l'entête de ligne d'1 affecte les 10. Où est le problème ? Vous ne saviez pas hein !

JNP · 15 Septembre 2011

Re : Macro pour modifier les hauteurs de certaines lignes

Re ,

Gedch à dit:
Comme il y a plusieurs hauteurs et quelle ne sont pas à la suite, cela peu me prendre beaucoup de temps.

Dranreb à dit:
Chez moi si je sélectionne tout simplement 10 lignes entières consécutives, la modification de hauteur dans l'entête de ligne d'1 affecte les 10. Où est le problème ? Vous ne saviez pas hein !

Il me semble qu'il y a une différence de taille (c'est le cas de le dire )...
Bonne suite

Dranreb · 15 Septembre 2011

Re : Macro pour modifier les hauteurs de certaines lignes

Oui mais pas tant que ça, je n'avais pas suivi, mais je viens de vérifier, ça marche aussi sur des sélections multiples de groupes de lignes entières avec la touche Ctrl maintenue enfoncée.
À+

JNP · 15 Septembre 2011

Re : Macro pour modifier les hauteurs de certaines lignes

Re ,

Dranreb à dit:
ça marche aussi sur des sélections multiples de groupes de lignes entières avec la touche Ctrl maintenue enfoncée.

Oui, sauf que pour l'avoir testé personnellement, la sélection discontinue avec le Ctrl, c'est une sacrée galère avec Excel (à moins que tu n'ai un truc, là, ça m'intéresserait franchement énormément ), car pas droit à l'erreur, il additionne les lignes (ou les colonnes ou les cellule), MAIS il ne sait pas les désélectionner, donc le moindre petit dérapage, et on est bon pour recommencer la sélection (et à chaque fois, ça m'a beaucoup énervé )...
Bonne continuation

Gedch · 15 Septembre 2011

Re : Macro pour modifier les hauteurs de certaines lignes

Bonjour à tous
Merci beaucoup JNP

Tu as bien compris ce que je cherchais
Et ta macro correspond parfaitement.

Comme tu l’as bien noté, mes lignes de même hauteur ne se suivent pas
Et pour moi, c’est galère si je veux changer qu’un seul type de hauteur.

Maintenant, cela prend 2 secondes !

Merci et bonne journée

Macro pour modifier les hauteurs de certaines lignes

Gedch

XLDnaute Occasionnel

Victor21

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

Gedch

XLDnaute Occasionnel

Discussions similaires