Nettoyage de cellule en fonction de la taille de la ligne

Bonjour,

J'espère que vous allez bien.

Je souhaiterai nettoyer sur ma feuille toutes les cellules (suppression de données) qui ont une taille de ligne de 6;

Est-ce possible selon vous? Le code que j'ai essayé ne fonctionne pas

Merci pour votre aide,

Naxos

Bonjour naxos, bonjour le forum,

A tester et à modifier selon vos besoins :

Sub deleteLines()
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If Range("A" & i).RowHeight = 6 Then
            Range("A" & i).EntireRow.Select
            Selection.ClearContents
        End If
    Next i
End Sub

Bonjour,

Un essai (non testé) :

Sub SupprSelonHauteurLig()

Dim Lig As Long, LigMax As Long

With Sheets("NomFeuill")
    LigMax = .Range("A1").CurrentRegion.Rows.Count
    For Lig = 1 To LigMax
        If .Rows(Lig).RowHeight = 6 Then .Rows(Lig).ClearContents
    Next Lig
End With

End Sub

edit : salut IronBoule, je vois que nous sommes sur la même longueur d'onde !

Bonjour à tous les deux!

Merci pour votre réponse à la fois rapide et efficace c'est génial!

Excellente journée,

Naxos