Discussion :

[dolin007]

Bonjour à tous,

J'aimerai savoir ce qui cloche dans mon code...

J'essai de supprimer la ligne X dès que la cellule B&X est vide

Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Sub essaimacro()
Dim S As Long, T As Long
'Dans la cellule B1, y'a le compte des valeurs de la colonne B
S = Sheets("Feuil_historique").Range("B1")
'Je commence à descendre à partir de la ligne 3
T = 3
Do Until T = S
'Si la Cellule B&T est vide
If IsEmpty(Sheets("Feuil_historique").Range("B" & T)) Then
'Alors retirer la ligne T
Sheets("Feuil_historique").Rows(T).EntireRow.Delete Shift:=xlUp
End If
T = T + 1
Loop
End Sub

[melouille56]

Salut
Essaie ca:

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub Essai()
 
Dim i As Integer
 
For i = 100 To 1 Step -1
    If IsEmpty(Worksheets("Feuil_historique").Cells(i, 2)) = True Then Worksheets("Feuil_historique").Rows(i).Delete
Next i
 
End Sub

[dolin007]

Ca ne marche pas, aucune ligne n'a été supprimée de ma feuille...

[melouille56]

Chez moi ca marche parfaitement
remplace le 100 par le numero de ta dernière ligne
On est bien d'accord, il supprime toutes les lignes pour lesquelles la cellule de la colonne B (càd 2) est vide?

Est ce que c'est bien le bon nom de feuille, fais attention à la syntaxe quand tu utilises des noms comme ca. Le plus sûr est d'utiliser le numéro d'index de la feuille, ou bien de la sauvegarder sous une variable pour réutiliser cette variable tout au long de ta procédure.

[rvtoulon]

Slt,

et simplement comme ceci en remplaçant Feuil1 par le nom de ta feuille:

Code :

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

1
2
3
4
5
6
 
Sub effacer()
For Each c In Sheets("feuil1").Range("B1:B" & Range("B65356").End(xlUp).Row)
If c = "" Then c.EntireRow.Delete
Next c
End Sub

A+

EDIT: En effet le nom de ta feuille est-il:

Code :

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

1
2
3
4
 
Sheets ("Feuil Historique")
'ou
Sheets ("Feuil_Historique")

Attention à l'espace, si il y en a un tu le met à la place de "_"

[dolin007]

Ok j'ai réussi à faire quelque chose qui marche grace à toi.

C'était bien le bon nom de feuille, j'ai juste remplaçé le 100 par 881, mais rien ne se passait quand je lançais la macro.

C'est l'histoire du

Code :

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

isempty(...

qui faisait que ça marchait pas.

Voilà mon nouveau code (enfin ton code) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Public Sub Essai()
 
Dim i As Integer
 
For i = 881 To 1 Step -1
    If Worksheets("Feuil_historique").Cells(i, 2) = "" Then Worksheets("Feuil_historique").Rows(i).Delete
Next i
 
End Sub

Merci beaucoup melouille!

[melouille56]

et si jamais ton nombre de lignes total varie, s'il n'est pas toujours À 881, tu peux aller le chercher en faisant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub Essai()
 
Dim i As Integer, DerniereLigne As Integer
 
DerniereLigne = Range("A65536").End(xlUp).Row
 
For i = DerniereLigne To 1 Step -1
    If Worksheets("Feuil_historique").Cells(i, 2) = "" Then Worksheets("Feuil_historique").Rows(i).Delete
Next i
 
End Sub

Voilà
Bon aprèm
Mél

[ucfoutu]

Bonjour,
Juste pour rappeler la différence entre ce qui est "vide" (IsEmpty) et ce qui contient une chaîne de longueur nulle ...
Ce n'est pas la même chose...
Voilà ... dit pour rien ? .... ===>> bon ...

[dolin007]

Non pas dit pour rien , mais qu'en est-ce exactement qu'une cellule est isEmpty ? Même si y'a rien dedans, elle ne l'est pas, c'est ça ?

[ucfoutu]

Non pas dit pour rien , mais qu'en est-ce exactement qu'une cellule est isEmpty ? Même si y'a rien dedans, elle ne l'est pas, c'est ça ?

Non !
ouvrir ton aide sur le mot IsEmpty

La fonction IsEmpty renvoie la valeur True si la variable n'est pas initialisée ou contient une valeur de type Empty ; dans le cas contraire, elle renvoie la valeur False

Une cellule qui contient une chaîne de longuueur nulle n'est pas une cellule contenant une valeur de type Empty

[dolin007]

Ca roule, merci ucfoutu !