Supprimer ligne si une cellule est vide

[koikili]

bonsoir à tous,
je veux modifier le code que j'ai dans le fichier ci-joint comme ceci

dans la feuille ODA MENS si une cellule de la collone H du tableau est vide alors supprimer la ligne

la même chose pour l'onglet ODA HOR

est ce que quelqu'un peut m'aider s'il vous plait

Merci d'avance

 

[koikili]

aidez moi svp

 

[koikili]

aidez moi s'il vous plait

 

[gosselien]

Bonjour,

ton titre parle de "lister sans doublon" et le texte lui, dit de supprimer une ligne si H est vide , ce n'est pas clair !!!

P.

 

[koikili]

Bonsoir gosselien,
oui effectivement le code liste des données sans doublons mais le problème c'est qu eje veux supprimer les lignes quand H est vide

 

[gosselien]

Change ton titre alors ...
Pourquoi parler de doublons ???

 

[Lone-wolf]

Pourquoi parler de doublons ???

Bonjour koikili, gosselien

Par-ce que dans les posts #2 et #3 il y a des doublons lol!

 

[gosselien]

Juste !!! bien vu
Mes verres de lunettes sont sales ou inadaptés
Mais on garde ou pas les doublons ?
La question du post est "lister sans doublons"
et..la colonne H de la feuille ODA HOR n'est pas vide mais contient des #N/A ...

Donc, la question est mal posée non ?

P.

 

[koikili]

C'est fait....
Est que quelqu'un peut répondre sur ma problématique svp???

 

[Staple1600]

Bonjour à tous

On peut se passer de VBA comme expliqué dans les lignes vertes
Mais bon autant revenir sur XLD avec superfétation en option pas Explicit

Sub abc()
'macro abc pour créér des données de test
'Donc à lancer avant de tester les macros de suppressions des vides
Range("H1") = "ABC1": Range("H2") = Empty
Range("H1:H2").AutoFill Destination:=Range("H1:H1600"), Type:=xlFillDefault
End Sub

Sub Macro1_LaClassique()
' Staple1600
'équivalent VBA de la manip manuelle ci-dessous
'1) Sélection colonne H -> touche F5 -> Cellules vides -> OK
Columns("H:H").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Private Sub Macro1_LaVariante_I()
' Staple1600
Columns("H:H").SpecialCells(4).EntireRow.Delete
End Sub
Private Sub Macro1_LaVariante_II_totalement_Dispensable()
' Staple1600
    With Range("I1").Resize(1599 + 1)
        .FormulaR1C1 = "=CHAR((LEN(RC[-1])>0)+57)*1"
        .SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
        .EntireColumn.Delete
    End With
End Sub

 

[mdo100]

Bonjour koikili, le forum,

Un essai avec une macro "GO" en feuille "ODA HOR".

 

[koikili]

Bonjour,
merci pour vos réponse mais le code doit être lié au code de la feuile03 (RECAP)

 

[Lone-wolf]

Bonjour Staple, content de te relire