Sppression automatique des lignes

[Yacine]

Bonjour le forum

S'il vous plait je voudrais supprimer automatiquement des lignes comme indiqué dans l'exemple joint.

Merci et bonne journée à tous.

 

[Hulk]

Re : Sppression automatique des lignes

Hello Yacine, Forum,

Je crois que tu es obligé de passer par une macro...

Tu peux essayer ce bout de code (avec un bouton pour l'exemple)

Private Sub CommandButton1_Click()

    Dim lign as long

    Application.ScreenUpdating = False
    
    For lign = Cells.SpecialCells(xlCellTypeLastCell).Row To 5 Step -1
        If Rows(lign).Find("*") Is Nothing Then Rows(lign).Delete
    Next lign
    
    Application.ScreenUpdating = True
    
End Sub

Attention efface toute la ligne !

 

[Yacine]

Re : Sppression automatique des lignes

Merci HULK mais est-il sûr qu'il n'existe pas de fonctions pour ça.

 

[Hulk]

Re : Sppression automatique des lignes

Re,

Je ne connais pas toutes les fonctions d'Excel, et de loin, mais pour supprimer des lignes, non je ne crois pas que tu puisses par formules... Mais qui sait, ici j'ai déjà vu des " p'tits miracles" s'opérer 🙂