VBA décriptage code

Bonjour,

Je suis en train de décrypter un fichier Excel avec macro.

Et une partie de code me laisse perplexe quant à son utilité...

Le voici :

'Suppression colonne descriptif / mot colonne A dans libellé op

Range("e51:e" & Lg1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Si quelqu’un pouvait m'éclairer, merci d'avance.

Bonjour,

quand tu postes un code merci d'utiliser l'icone <> pour conserver l'indentation et rendre la lecture (et donc la détection d'erreur) plus facile.

Quant à savoir si c'est utile de supprimer des libellés, il n'y a que toi qui peux le savoir...

eric

Et là, c'est mieux ??

'Suppression colonne descriptif / mot colonne A dans libellé op

Dim Lg1&, d As Range, Cel1 As Range
Dim firstAddress1$
Lg1 = Range("e" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False

For Each Cel1 In Range("a1:a" & [a49].End(xlUp).Row) 'mots à rechercher
With Range("e51:e" & Lg1)
Set d = .Find(Cel1, LookIn:=xlValues, lookat:=xlPart)
If Not d Is Nothing Then
firstAddress1 = d.Address
Do
Range(d.Address).ClearContents
Set d = .FindNext(d)
If d Is Nothing Then Exit Do
Loop While Not d Is Nothing And d.Address <> firstAddress1
End If
End With
Next Cel1
On Error Resume Next 'si pas de vides
Range("e51:e" & Lg1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

eriiic a écrit :

Quant à savoir si c'est utile de supprimer des libellés, il n'y a que toi qui peux le savoir...

Je ne sais pas à quoi servent ces lignes de code. Je demande juste une explication...

Ben c'est écrit dans la 1ère ligne de commentaire : 'Suppression colonne descriptif / mot colonne A dans libellé op

Tu donnes une liste de libellés dans la colonne A, et il va te les supprimer dans la colonne E en supprimant la ligne entière.

Toi seul sait si ça peut te servir.

eric

Oui, en effet, je viens de percuter qu'il y avait des lignes cachées avec les infos dont les lignes doivent être supprimées !

Merci.

Problème résolu.