Réglage hauteur ligne si cellule colonne E pleine

Bonjour,

J'ai toutes les lignes de mon tableau avec une hauteur de 15.

Je voudrais que les lignes dont les cellules de la colonne E ne sont pas vide soient à 30 de hauteur (contient un titre).

Est-ce possible ? Probablement avec une macro, mais comment la rédiger et où la positionner ?

Merci pour votre contribution

Cordialement

Fat

Bonjour,

Ouvrir l'éditeur de macros (Alt+F11),

Ouvrir l'Explorateur de projet (CTRL + R),

Inserer un module standard (Onglet Insertion > Module),

Copier cette macro :

Sub Test()
Dim Ligne As Long
    For Ligne = 1 To Range("E" & Rows.Count).End(xlUp).Row
        If Cells(Ligne, "E") <> "" Then
            Rows(Ligne).RowHeight = 30
        End If
    Next Ligne
End Sub

Revenir sur la feuille ,

Ouvrir la fenêtre macro (Alt+F8),

Exécuter "Test".

Cordialement.

Bonjour,

Un complément si les données sont sous forme de tableau (structuré) dans la feuille de calcul.

Cdlt.

Public Sub Table_Layout()
Dim rng As Range, Cell As Range
    With ActiveSheet.ListObjects(1)
        If Not .DataBodyRange Is Nothing Then
            Set rng = .ListColumns(5).DataBodyRange
            For Each Cell In rng
                Cell.RowHeight = IIf(IsEmpty(Cell), 15, 30)
            Next Cell
        End If
    End With
End Sub

Correction du titre : Insertion ligne de hauteur 30 si cellule colonne G pleine

Bonsoir,

Merci pour vos réponses, mais je me rends compte que ma demande a été mal posée. Désolé !

En fait je cherche à insérer une ligne de hauteur 30 à la suite d'une ligne de hauteur 15 existante au dessus si la cellule correspondante de la colonne G (et non pas E) est pleine. (Cette insertion se fait chez moi automatiquement par un bouton avec Ctrl+w).

Peut-on corriger les macros déjà proposées ?

Merci et bonne soirée

Fat

Rechercher des sujets similaires à "reglage hauteur ligne colonne pleine"