Supprimer ligne si une cellule est vide

K

koikili

Guest

• 7 Juillet 2016

• #2

aidez moi svp

 

Vote positif 0 Vote négatif

K

koikili

Guest

• 8 Juillet 2016

• #3

aidez moi s'il vous plait

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 8 Juillet 2016

• #4

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.

 

Vote positif 0 Vote négatif

K

koikili

Guest

• 8 Juillet 2016

• #5

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

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 9 Juillet 2016

• #6

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 9 Juillet 2016

• #7

gosselien à dit:

Pourquoi parler de doublons ???

Cliquez pour agrandir...

Bonjour koikili, gosselien 🙂

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

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 9 Juillet 2016

• #8

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.

 

Vote positif 0 Vote négatif

K

koikili

Guest

• 9 Juillet 2016

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Juillet 2016

• #10

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 😉

VB:

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

 

Vote positif 0 Vote négatif

mdo100

XLDnaute Occasionnel

• 9 Juillet 2016

• #11

Bonjour koikili, le forum,

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

 

Pièces jointes

• ODA Mens-HOR & DS.xlsm

  393.8 KB · Affichages: 32

Vote positif 0 Vote négatif

K

koikili

Guest

• 9 Juillet 2016

• #12

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 9 Juillet 2016

• #13

Bonjour Staple, content de te relire 🙂

 

Vote positif 0 Vote négatif