Changer hauteur de ligne contenant un texte spécifique

Bonjour,

Je possède un fichier avec pas mal de lignes (~2600), parmi ces entrées, il y en a que je DOIS garder mais qui ne contiennent pas d'info "utile". Pour cela j'ai tout logiquement baissé la taille de ces lignes a 10 au lieu de 30. Cependant, mes données étant dans un tableau, lorsque je le trie, les hauteurs de lignes (réduite) ne suivent évidemment pas les cellules a réduire.

Existe-il un moyen (mise en forme conditionnelle ou autre) de régler mon problème? Par exemple du style "Si la cellule contient N/A, réduire la hauteur de ligne a 10, sinon hauteur de ligne a 30".

Je joins un tableur pour mieux imager mes propos.

Merci d'avance!

Bonjour,

Un test par macro :

Sub HAUTEUR()
Dim L As Variant
With ActiveSheet
    For Each L In .ListObjects("Tableau1").ListRows 'Pour chaque ligne dans le tableau 1 de la feuille active
        If .Cells(L.Range.Row, 4) = "N/A" Then 'Si la colonne 4 contient N/A
            L.Range.RowHeight = 10 'On passe la hauteur de la ligne a 10
            Else
            L.Range.RowHeight = 30 'Sinon a 30
        End If
    Next L 'On passe à la ligne suivante
End With
End Sub

Dans l'attente de votre retour éventuel.

Cdlt,

Bonjour, Redney et bonjour Ergotamine.

Autre codage au cas ou l'original n'est pas un tableau structuré ( test du nombre de ligne existant et boucle sur l'info colonne C )

Nota une seconde boucle peu être ajoutée pour tester la colonne D si nécessaire ?

Sub Macro1()
Dim numligne As Long
numligne = Range("A65990").End(xlUp).Row

For i = 2 To numligne
Rows(i & ":" & i).Select
If Range("C" & i) = "N/A" Then
Selection.RowHeight = 10
Else
Selection.RowHeight = 30
End If
Next

End Sub

Merci beaucoup, c'est exactement ce que je cherchais!

Passez une bonne journée!