Discussion :

[Nico69VBA]

Bonjour!
Débutant en VBA, j'ai un souci sur lequel je m'arrache les cheveux depuis quelques jours.
J'ai une colonne B où un certain nbr de lignes sont remplies par importation (sans lignes vides). Et colonnes C et +, j'ai toutes mes lignes de remplies (jusqu'a 1000 environ) par des formules tirées afin de réaliser les calculs découlant de l'arrivée de contenu en B en automatique.
Je souhaite supprimer par une macro/bouton les lignes de ces colonnes C et + qui ne servent à rien (où B de la même ligne est vide) afin d'alléger le fichier de toutes les formules inutiles.
J'ai déjà fait ce code qui ne fait rien du tout et je ne comprends pas pourquoi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Suppr_lignes_tarifs() 
 
Sheets("Tarifs année").Select 
 
For i = Range("B65529").End(xlUp).Row To 3 Step -1 
If IsEmpty(Cells(i, 2).Value) Then 
Rows(i).ClearContents 
End If 
Next 
 
End Sub

Merci par avance pour votre aide

[CodeFacile]

Je ne suis pa un utilisateur habitué de la fonction IsEmpty, mais quand on consulte l'aide , on voit bien que l'on ne peut pas l'utiliser pour tester si une cellule est vide... En plus si la cellule contient un caractère invisible ( espace , saut de ligne ...); Est ce qu'il faut la supprimer ?


Dans ton code , il y a une autre chose qui me chagrine , ( même si la solution fonctionne grâce à la décrémentation). Si je peux te donner un conseil : Il ne faut pas faire une boucle for si dans le traitement tu supprime un élément de la boucle ( conseil général).
Il est préférable de faire un do loop.

3) le ClearContents supprime le contenu des cellules de la ligne , il ne supprime pas la ligne ; Est ce que c'est ce que tu veux ?

Voici une forme que je te soumets

Code :

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

1
2
3
4
5
6
7
8
9
10
nb_ligne = Range("B65536").End(xlUp).Row
ligne_cur = 3
do 
if trim ( cells ( ligne_cur , 2).value ) = "" then 
rows ( ligne_cur ).delete
else
ligne_cur = ligne_cur  + 1 
end if
 
loop while ligne_cur  <  nb_ligne

[Michel_M]

Bonjour,
pour supprimer les lignes où B est vide
essaies

Code :

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

1
2
derlig = Range("B65536").End(xlUp).Row
Range(Cells(3, 2), Cells(derlig, 2)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

[Nico69VBA]

D'abord merci à tous les deux pour vos réponses

Michel :
Jai essayé ton code qui me renvoi une erreur 1004 me disant qu'il n'y a pas de cellules correspondantes, je ne comprends pas pourquoi.

Codefacile : merci pour tes conseils. Je pense que supprimer la ligne ou non ne me changera pas grand chose je veux juste que les formules disparaissent avec tous les 0€ qui vont avec.
Malheureusement, ton code n'a donné aucun résultat également.

Code :

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

= Range("B65536").End(xlUp).Row

--> cette ligne pourrait elle être le problème ?
Quand je pointe ma souris sur derlig ou nb_ligne, il m'affiche 22. Est ce normal ?

Merci encore

[Pierre Fauconnier]

Bonjour

Pour moi, ton code fonctionne, si, bien sûr, isEmpty renvoie TRUE...

A toi de tester en mode pas à pas pour voir pourquoi il ne supprime pas (espace non visible en b, ...)

Si tu veux supprimer plutôt que vider, tu dois utiliser

Code :

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

rows(i).delete

@ codefacile: Je ne comprends pas ta remarque concernant le for i... dans la mesure ou ce n'est pas le i que l'on supprime ou que l'on modifie, mais bien la ligne dont le numéro est i, ce qui n'affecte pas du tout la boucle

[FCL31]

Salut

Moi perso je ferrais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Suppr_lignes_tarifs() 
 
Sheets("Tarifs année").Select 
 
For i  Range("B65529").End(xlUp).Row To 3 Step -1
  If Range("B" & i) = "" Then
     Rows(i).Delete
  End If
Next i
 
End Sub

[ouskel'n'or]

Empty signifie qu'une cellule n'a jamais été renseignée
"" signifie que la cellule est vide, non qu'elle l'a toujours été.
Pour ma part j'utiliserais "" et non Empty si les cellules testées ont pu être renseignées avant d'être effacées. FCL31 t'a donné le code mais je ne pourrais pas m'empêcher de mettre

Code :

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

1
2
3
     Rows(i).Entirerow.Delete
'ou
     Range("B" & i).entirerow.delete

même si Rows(i).Delete semble fonctionner
Bonne journée

Remarque

Cette propriété renvoie un objet Range qui représente la ligne entière (ou plusieurs lignes) contenant la plage spécifiée