Macro pour modifier les hauteurs de certaines lignes

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 ?

Bonsoir,

une façon en autres

tu sélectionne une plage n'importe où,

et tu lance la macro

Sub HauteurLigne() 'dans plage sélectionnée
Dim Rep
    Rep = InputBox("Hauteur ligne(s) ?")
    If Rep = "" Then Exit Sub
    ActiveCell.Resize(Selection.Rows.Count).RowHeight = Rep
End Sub

Amicalement

Claude

Salut le forum

Pas besoin de macro pour cela, sélectionne tes lignes et clique droit hauteur de ligne.

Mytå

Bonjour Claude

Merci pour ta macro

Mais il y a mauvaise compréhension de ma demande

Peut-être que j’ai mal formulé ma demande

Il faut que la macro ne change que certaines lignes dans la sélection

Je donne un exemple :

Tableau de la ligne 5 à 20

Les lignes 6, 7, 8 et les lignes 12, 13, 15 sont de hauteur 20

Les autres lignes sont de hauteur 10

Je souhaite que la macro change dans ma sélection (Lignes 5 à 20)

Toutes les lignes qui sont en 20 en hauteur 15,

Mais les autres lignes doivent restées en 10

Bonjour Myta

Je vois que j’ai mal formulé ma demande d’aide

Mais il y a mauvaise compréhension de ma demande

Il faut que la macro ne change que certaines lignes dans une sélection

Pour être plus clair, je joins un fichier exemple

Bonjour,

Pas facile d'expliquer ce que l'on veut !

ici, modifie la hauteur de ligne dans la plage sélectionnée, sauf les hauteurs = 10

Sub HauteurLigne() 'dans plage sélectionnée
Dim Rep, Cel As Range
        Rep = InputBox("Hauteur ligne(s) ?")
        If Rep = "" Or Rep = 10 Then Exit Sub
    For Each Cel In Selection.Rows
        If Cel.RowHeight <> 10 Then
            Cel.RowHeight = Rep
        End If
    Next Cel
End Sub

si pas çà, envoie un fichier + explicatif

Claude

Bonjour

Merci ta macro va dans le bon sens

Toutes les lignes en 20 sont bien modifiées dans la hauteur désirée et sur la sélection voulue

Les lignes en 10 restent bien en 10

Par contre les lignes en 8 ne restent pas en 8 !

J’ai bien essayé de rajouter une 2ème condition de plusieurs manières pour ces lignes, mais soit la novelle condition est ignorée, soit la macro ne fonctionne plus.

Est-il possible de mettre une 2ème condition pour les lignes sui sont en 8 ?

re,

essaye de mettre 9 au lieu de 10, pour simplifier

plus de 10 ou 8

Claude

essaye de mettre 9 au lieu de 10, pour simplifier

plus de 10 ou 8

Tu veux dire :

If Rep = "" Or Rep = 9 Then Exit Sub

Je ne comprends pas bien ?

Bonjour

Je ne suis pas toujours arrivé malgré la macro qui m’a été proposée à pourvoir :

Modifier une seule hauteur de ligne parmi plusieurs hauteurs de lignes différentes sur une sélection de lignes précises.

Si quelqu’un avait une autre idée ?

Merci d’avance

bonjour

essai ce code rectifié

Sub HauteurLigne() 'dans plage sélectionnée

Dim Rep, Cel As Range

Rep = InputBox("Hauteur ligne(s) ?")

If Rep = "" Or Rep = 10 Or Rep = 8 Then Exit Sub

For Each Cel In Selection.Rows

If Cel.RowHeight <> 10 And Cel.RowHeight <> 8 Then

Cel.RowHeight = Rep

End If

Next Cel

End Sub