Macro pour modifier les hauteurs de certaines lignes

[Gedch]

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]

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]

Re : Macro pour modifier les hauteurs de certaines lignes

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

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]

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]

Re : Macro pour modifier les hauteurs de certaines lignes

Re ,

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

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]

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]

Re : Macro pour modifier les hauteurs de certaines lignes

Re ,

ç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]

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