Cellule apparemment vide mais qui ne l'est pas... la coquine !

[djodjodjo]

Bonjour à tout le forum,

Aujourd'hui encore un autre petit souci, j'utilise le code suivant (issu de Pierrot93: ICI!) pour supprimer toutes les lignes dont les cellules des colonnes B à +infini (si j'ose dire!) sont vides:

With ActiveSheet.UsedRange
    DerLi = .Row + .Rows.Count - 1
    End With
    For r = DerLi To 1 Step -1
    If Application.CountA(Cells(r, 2).Resize(, Columns.Count - 1)) = 0 Then Rows(r).Delete
    Next r

Le souci, c'est que je fais des opérations de collage spécial juste avant, et du coup mes cellules sont vides en apparence, mais en réalité je pense qu'elles contiennent la valeur

""

donc le code ci-dessus ne fonctionne pas... Quand je clic dans les cellules elles deviennent réellement vides par contre.

Comment l'adapter pour qu'il supprime aussi/à la place les celulles vides en apparence ?

Merci d'avance !

 

[Dranreb]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

Bonjour
Peut être :

If Application.CountIf(Cells(r, 2).Resize(, Columns.Count - 1), "<>") = 0 Then Row(r).Delete

À tester.
À +

 

[djodjodjo]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

Bonjour Dranreb,

Non ça ne fonctionne pas 🙁 pas de changement

 

[TempusFugit]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

Bonjour

Pour savoir si une cellule est vide, tu peux utiliser NBCAR(A1)
ou en VBA Len(Range("A1")

 

[djodjodjo]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

Bonjour TempusFugit,

en fait je ne veux pas vraiment savoir si une cellule est vide, je veux juste que mon code me supprime les cellules vides en apparence (peu importe s'il y a "" ou " " ou ' ou autre chose dedans qui ne se voit pas...)

 

[TempusFugit]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

Vérifier si elles sont effectivement vides, permet d'adapter le code VBA en conséquence.

Donc fais le test, ensuite on pourra aviser.

Au fait, tu es sur de la place de ton End With ?
Ce ne serait pas plutot

With ActiveSheet.UsedRange
    DerLi = .Row + .Rows.Count - 1
        For r = DerLi To 1 Step -1
    If Application.CountA(Cells(r, 2).Resize(, .Columns.Count - 1)) = 0 Then .Rows(r).Delete
    Next r
End With

 

[Pierrot93]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

Bonjour,

peut être voir si tu ne peux pas régler le problème à la source et ne pas coller en l'état....

bon après midi
@+

 

[djodjodjo]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

@TempusFugit : Ben je n'avais pas mis de "." devant Columns.Count ni devant Rows(r) moi... donc la place du End With était bonne non?

 

[Pierrot93]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

Re,

manquerait également un point devant le "cells"....

 

[djodjodjo]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

@ Pierrot93 : Je dois vraiment modifier le End With ? Ton code fonctionnait très bien avant l'arrivée de ces cellules moitié vides

@TempusFugit: j'ai fait le test du nbcar sur une cellule réellement vide: 0. J'ai fait le test du nbcar sur une cellule vide en apparence : 0.
Donc bon pas top comme élément de comparaison

 

[TempusFugit]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

Et si tu essayes avec CODE(A1) cela te renvoie quoi ?

32 ou 160 ou autre chose ?

 

[Pierrot93]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

Re,

@ Pierrot93 : Je dois vraiment modifier le End With ?

le problème n'est pas là, me semble t il... s'appliquera à la feuille active ou celle où est placé lke code... Pas sûr que tu ais vu le post #7...

 

[djodjodjo]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

@ TempusFugit : =code(A1) me renvoie #VALEUR! que je le fasse sur une cellule réellement vide ou sur une cellule vide en apparence.

@ Pierrot93 : J'avais bien vu le post #7, et je sais bien que le fait de déplacer le End With ne changera rien au problème de cellule vide ou non : je parlais juste du fonctionnement du code en général (étant donné qu'il fonctionnait très bien comme ça avant sur les cellules vides)

 

[TempusFugit]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

Pourrait-on voir une exemple de cellule apparemment vide grâce à un fichier excel joint ?

 

[Dranreb]

Re : Cellule apparemment vide mais qui ne l'est pas... la coquine !

Je me joins à la demande de TempusFugit.

...Et je n'ouvrirai plus jamais les demandes dépourvues de trombonnes ! (ça doit bien faire 100 fois que je me dit ça !)