Suppression de lignes Excel en VBARésolu/Fermé

Question

Bonjour, 

J'ai un problème pour supprimer des lignes d'un tableau si la cellule dans la colonne A est vide. Mon tableau se compose de la ligne 3 à la ligne 201. Voici mon code : 

For i = 201 To 3
If feuilExcel.Range("A" & i).Value = "" Then
feuilExcel.Rows(i).Delete
End If
i = i - 1
Next i

Ce code ne me supprime pas les lignes, mais il efface seulement les formules à l'intérieur des cellules des lignes qui devraient être supprimées.

J'ai éssayé aussi avec cette ligne de code : 
feuilExcel.Rows(i).EntireRow.Delete

Mais rien à faire je n'arrive pas à supprimer la ligne. Comment fait-on svp?

Configuration: Windows XP / Firefox 11.0

eriiic · Accepted Answer

Bonjour, 

i = 4 
Worksheets("Feuil1").Rows(i).EntireRow.Delete
fonctionne. 

Sinon il faut de finir feuilExcel en tant que variable : 
dim feuilExcel as worksheet 
set feuilExcel = worksheets("Feuil1") 
eric

linkcr15 · Answer

Est-ce que feuilExcel.Range("A" & i).Value = "" est vrai même si une formule est entrée? Car avec le EntireRow, les formules de mes cellules ne sont plus supprimées.

michel_m · Answer

Bonjour

Salut Eric, ca faisait longtemps qu'on ne s'était pas croiser :o))

pour suprimer une ligne
https://excel.developpez.com/faq/index.php?page=Feuille#SupprimeCellLigneVide

linkcr15 · Answer

En fait je me suis rendu compter que la ligne qui plantais n'était pas celle où je supprimais la ligne, mais celle où je vérifie si la cellule est vide ou non. Dans toutes mes cellules du tableau, j'ai une formule de ce type :     
=SI(Feuil2!G2="";"";Feuil2!B2)    
Et quand j'effectue le test :    
If IsEmpty(feuilProcesExcel.Cells(ligne, 1).Value) = True
et bien la condition est toujours False, donc je n'entre jamais dans mon If et donc je ne supprime jamais mes lignes (J'ai vérifié avec =False, toutes mes lignes sont supprimées).    

Donc une question me vient : Comment vérifié qu'aucune valeur numérique n'est dans une cellule (qui affiche donc "" grâce à ma formule) car IsEmpty ne regarde pas la valeur de la cellule mais bien la formule.    

PS : Je vais t'envoyer le fichier eriiic

linkcr15 · Answer

Voici le fichier xls : https://www.cjoint.com/?0Dxo7cTsX15 

Voici la macro Word qui correspond :  

Sub RecupTableau() 

Dim docExcel 
Dim classExcel 
Dim feuilProcesExcel 
Dim Plage 
Dim ligne As Integer 
Dim i As Integer

Set docExcel = CreateObject("Excel.Application") 
Set classExcel = docExcel.Workbooks.Open(".....xls") 
Set feuilProcesExcel = classExcel.Worksheets("ProcesVente") 

For ligne = 3 To 200 'Début de la boucle For 
feuilProcesExcel.Rows(ligne).Insert 'On insére 200 lignes dans le PV 
feuilProcesExcel.Range("A2:H2").Copy Destination:=feuilProcesExcel.Range("A" & ligne) 'On copie la formule de A2 dans toute la colonne A 
Next ligne 'Fin de la boucle For 
DoEvents 

For i = 200 To 3
If feuilProcesExcel.Cells(ligne, 1).Value = "" Then
feuilProcesExcel.Rows(ligne).EntireRow.Delete
End If
Next i
DoEvents

Plage = "PVVente" 
feuilProcesExcel.Range(Plage).Copy 
DoEvents 

Selection.PasteExcelTable False, False, False 
DoEvents 

classExcel.Save 
classExcel.Close False 
DoEvents 

docExcel.Quit 
Set docExcel = Nothing 
Set classExcel = Nothing 
Set feuilExcel = Nothing 

End Sub

EDIT : Je me suis rendu compte que j'ai une problématique de démarche. J'ai éssayé de supprimer les lignes directement si elles sont vides, sans créer les 200 avant, sauf que les formules dépendent des lignes vu que je les copient, il me faut donc un second For une fois les 200 créées qui me permettrait de supprimer les lignes vides, j'ai donc édité mon code.
Cependant, mon second for ne supprime pas les lignes vides, je ne sais pas pourquoi encore...

Suppression de lignes Excel en VBA

5 réponses

Newsletters