Discussion :

[bilcosby]

bonjour à tous

tableau 2 colonnes (A et B)

il faut que je supprime la ligne dont la cellule de la colonne B est vide

vous allez me dire que plusieurs post sur le sujet existent mais aucun de ceux que j'ai pu lire n'a fonctionnés.

voici mon bout de code que j'ai trituré dans tout les sens:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub efface_vide()
Dim x As Long
'For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
For x = 7 To 1 Step -1
MsgBox (Cells(x, 2).Value)
    If Cells(x, 2).Value = "" Then Cells(x, 1).EntireRow.Delete
 
Next x
End Sub

La msgbox c'est juste pour le test..

J'ai volontairement mis 7 dans le FOR, mais il faudra que le tableau entier soit analysé

donc je vais abuser, mais il faudrait que je puisse connaitre le nombre de ligne que contient le tableau au départ !

le script dois pouvoir fonctionner sur excel 2007 jusqu'à la dernière version si possible

merci de votre aide

[Menhir]

voici mon bout de code que j'ai trituré dans tout les sens:

A priori, le code que tu as mis devrait faire ce que tu indiques, à condition que la feuille que tu veux traiter soit bien la feuille active au moment où tu lances la macro.
Es-tu sûr que les cellules de ta colonne B que tu veux supprimer soient VRAIMENT vides ? Ne pourraient-elles pas contenir un truc invisible comme un espace, une tabulation ou une autre merdouille du genre ?

il faudrait que je puisse connaitre le nombre de ligne que contient le tableau au départ !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(Rows.Count, 1).End(xlUp).Row

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    If Cells(x, 2).Value = "" Then Cells(x, 1).EntireRow.Delete

Juste un petit détail : il serait plus simple d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    If Cells(x, 2).Value = "" Then Rows(x).Delete

C'est plus simple mais ça ne fait pas de différence à l'exécution (je veux dire que ce n'est pas une erreur).

[bilcosby]

effectivement il y a des espaces dans les cellules "vides"
c'est ennuyeux, comment la macro peux faire la différence ?

Merci de votre aide

[unparia]

Bonjour

c'est ennuyeux, comment la macro peux faire la différence ?

Après un repas pourtant bien arrosé :
en faisant la comparaison avec un Trim appliqué au contenu de la cellule ...
PS : je n'ai peut-être pas assez bu, car si je l'avais fait, je ne serais même pas en mesure de répondre à cette toute petite question.

[Menhir]

https://msdn.microsoft.com/fr-fr/lib.../gg278916.aspx

[unparia]

Bonjour Menhir
Tiens ! Moins rapide que moi ? Tu as alors pris un repas plus arrosé que le mien ?