Supprimer ligne avec conditionRésolu

Question

Bonjour,

Petite question, j'ai trouvé sur le forum pour supprimer une ligne vide:
Private
 Sub DeleteEmptyLines(XLS As Object) 
    Dim LastLine As Long, i As Long 

    LastLine = XLS.ActiveSheet.UsedRange.Row - 1 
    LastLine = LastLine + XLS.ActiveSheet.UsedRange.Rows.Count 

    For i = LastLine To 1 Step -1 
        If XLS.Application.WorkSheetFunction.CountA(XLS.Rows(i)) = 0 Then XLS.Rows(i).Delete 
    Next i 
End Sub

Si il y a des données dans la colone A et B mais qu'il n'y à rien dans la colone C et D, je voudrais qu'il supprime la ou les ligne(s) completement.

Comment y arriver s.v.p?

Merci encore

cs_MPi · Accepted Answer

Est-ce que tu as déclaré et intialisé l'objet XLS ?
Si oui , que vaut cette variable ?

Si non, essaie peut-être comme ceci (et n'oublie pas le moins un)
    For i =  LastLine To 1 Step  - 1  '   -1, pas 1        If Cells(i, 3).Value  vbNullString And Cells(i, 4).Value vbNullString Then
            Rows(i).Delete
         End If
    Next i

MPi

mortalino · Answer

Re,

Private
 Sub DeleteEmptyLines(XLS As Object) 
    Dim LastLine As Long, i As Long 

    LastLine = XLS.ActiveSheet.UsedRange.Row - 1 
    LastLine = LastLine + XLS.ActiveSheet.UsedRange.Rows.Count 

    For i = LastLine To 1 Step -1 
        If XLS.Application.WorkSheetFunction.CountA(XLS.Rows(i)) = 0 Or _         (XLS.Cells(i, 3).Value vbNullString And XLS.Cells(i, 4).Value vbNullString) _
            Then XLS.Rows(i).Delete 
    Next i 
End Sub

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

avyrex1926 · Answer

mortalino,

y a-t-il une raison pourquoi il me donne une erreur rendu à :

LastLine = XLS.ActiveSheet.UsedRange.Row - 1
    LastLine = LastLine + XLS.ActiveSheet.UsedRange.Rows.Count

Pourtant, il devrait fonctionner!

mortalino · Answer

Autant utiliser le bon vieux Range ;)
LastLine = Range("A65536").End(xlUp).Row

Ce code te parle   

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

mortalino · Answer

Avec la référence du classeur devant, bien sûr :
LastLine =   XLS.ActiveSheet. Range("A65536").End(xlUp).Row

Par contre, le paramètre (XLS As Object) est à proscrire.
Autant utiliser le classeur, qui est (normalement) référencé ailleurs (dans la procédure appelante, je suppose) :

Private 
Sub DeleteEmptyLines(XLS As Excel.WorkBook)

@++ 

<hr width ="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_JMO · Answer

Bonjour à tous,

Bonjour Mortalino,
[auteurdetail.aspx?ID=926087 avyrex1926] 
             a utilisé la source de PCPT (http://www.codyx.org/snippet_supprimer-lignes-vides-classeur_203.aspx)
Je viens de l'adapter pour vbs. Elle supprime bien toutes les lignes vides.
Petite question, car ne connaissant pas les fonctions d'Excel, je n'ai pas compris le
objExcel.Application.WorkSheetFunction.CountA(ObjExcel.Rows(i)) = 0
Je viens d'essayer ton ajout. C'est efficace.

jean-marc

avyrex1926 · Answer

Bon voici quelque nouvelles, J'ai fais plusieurs test, et toujours rien. Bon si je récapitule, voici le script:

Private Sub DeleteEmptyLines_Click() Dim LastLine As Long, i As Long LastLine = Range("C65536").End(xlUp).Row LastLine LastLine XLS.ActiveSheet.Range("C65536").End(xlDown).Row For i = LastLine To 1 Step -1 If XLS.Application.WorksheetFunction.CountA(XLS.Rows(i)) = 0 Or _ (XLS.Cells(i, 3).Value vbNullString And XLS.Cells(i, 4).Value vbNullString) _ Then XLS.Rows(i).Delete Next i End Sub

Il me crée toujours un bug rendu à: LastLine LastLine XLS.ActiveSheet.Range("C65536").End(xlDown).Row Pourtant LastLine = la ligne 18 et dans mon fichier excel, la ligne 18 est la derniere ligne qui contient des données dans les colone C et D. À partire de la ligne 19, il y a des données dans la colone A et B mais pas dans les autres donc en théorie, il devrait les supprimer les lignes, mais non, il ne le fait pas.

avyrex1926 · Answer

Désolé Plutot :

Private Sub DeleteEmptyLines_Click() Dim LastLine As Long, i As Long LastLine = Range("C65536").End(xlUp).Row LastLine = LastLine + XLS.ActiveSheet.Range("C65536").End(xlDown).Row For i = LastLine To 1 Step -1 If XLS.Application.WorksheetFunction.CountA(XLS.Rows(i)) = 0 Or _ (XLS.Cells(i, 3).Value vbNullString And XLS.Cells(i, 4).Value vbNullString) _ Then XLS.Rows(i).Delete Next i End Sub

Et le probleme sur: LastLine = LastLine + XLS.ActiveSheet.Range("C65536").End(xlDown).Row

cs_MPi · Answer

Si tu veux avoir la dernière ligne de la colonne C, met en commentaire la ligne en bleu et ça devrait bien fonctionner
Utilise seulement cette ligne
    LastLine = Range("C65536").End(xlUp).Row

MPi

avyrex1926 · Answer

Salut MPI, J'ai modifié pour :

Private Sub DeleteEmptyLines_Click() Dim LastLine As Long, i As Long LastLine = Range("A65536").End(xlUp).Row For i = LastLine To 1 Step 1 If XLS.Application.WorksheetFunction.CountA(XLS.Rows(i)) = 0 Or _ (XLS.Cells(i, 3).Value vbNullString And XLS.Cells(i, 4).Value vbNullString) _ Then XLS.Rows(i).Delete Next i End Sub

Maintenant, y'a plus de message d'erreur mais il ne fais rien aussi. Il me supprime pas les lignes qui non pas de données dans les colone C et D. Je continue de chercher moi aussi. Merci pour ton aide

avyrex1926 · Answer

que veux tu dire par déclaré et intialisé l'objet XLS?

Parle tu de la référence?

avyrex1926 · Answer

J'ai juste changé 2 valeurs et maintenant, ça fonctionne. Je sais pas pourquoi mais bon sa fonctionne. Voici ce que j'ai changé (en bleu): For i = LastLine To 1 Step - 1 ' -1, pas 1 If Cells(i, 11).Value vbNullString And Cells(i, 12).Value vbNullString Then Rows(i).Delete End If Next i Merci

mortalino · Answer

Bref, t'étais en VBA Excel, et depuis le début on croyait que t'étais avec VB6...
Attention au thème lors de la dépose de la question (comme quoi, ça a son importance) 

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

avyrex1926 · Answer

Je suis avec VB6 aussi.

Mais avec une base de données excel.

mortalino · Answer

Oui, c'est bien ce que je dis, t'es avec VBA (Visual Basic pour Applications) et non Visual Basic 6.0 Professionnel (indépendant, créer des exécutables, dll, dll ActiveX, etc..) C'est 2 choses différentes et importantes à savoir. Dans ton code : If Cells(i, 11).Value vbNullString And Cells(i, 12 ).Value vbNullString Then Rows(i).Delete Si t'étais en VB6 ça ne fonctionnerait pas, il faudrait référencer Excel et le classeur avant, et de l'utiliser comme objet devant Cells, Rows, etc.. Dim xlApp As New Excel.Application, xlBook As Excel.WorkBook Set xlBook = xlApp.WorkBooks.Open("C:\chemin\fichier.xls) If xlBook. Cells(i, 11).Value vbNullString And xlBook.Cells(i, 12).Value vbNullString Then xlBook. Rows(i).Delete Comme tu vois, les syntaxes différent légèrement. En tout cas, tu as utiliser le snippet de PCPT (fait pour VB6), si tu avait utilisé le mien qui se trouvait juste au dessus, ça aurait fonctionné depuis le départ @++

--Mortalino-- Le mystérieux chevalier, ~Provençal, le Gaulois~

avyrex1926 · Answer

OK, je commence à comprend la différence là!

C'est tellement nouveau que j'ai de la difficulté à voir la différence.


Je me suis acheté un livre sur Microsoft Visual Basic 6 et je dois apprendre
les termes, mais bon, je vais y parvenir.


Merci pour l'explication et je vais essayer ta façon de faire, car je veux
rester le plus possible en vb6.


Je te donne des nouvelles là-dessus!


merci

mortalino · Answer

Ok, pas de problème 

Dis toi une chose, si tu doucle clique sur   une icone qui ressemble à ça, et qu'une interface s'ouvre, c'est VB6.
Si par contre, t'ouvre Excel (ou Word, Acess) et que tu fais Alt + F11 (ou menu Outil, Macro, Visual Basic Editor), c'est VBA !

Bonne apprentissage 

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

avyrex1926 · Answer

J,ai justement cliqué sur un icone comme ça, donc on peut aussi utiliser du scritp vba dans vb6 alors ?

mortalino · Answer

Oui, mais avec 2 conditions :
1/ Cocher la bonne référence : Microsoft Excel Object Library x.x  (x = version)
2/ Référncer l'application et le classeur Excel, comme je l'ai fait un peu plus haut

Si tu te débrouilles bien, tu pourras même utiliser les fonctions VBA dans VB6 (Cos, Tan, etc..) comme je l'ai montré récemment dans un autre post

Si tu veux un exemple concrêt, regarde dans mes sources Trieur de doublons, tu y trouveras du code pour ouvrir un fichier Excel existant, travailler dessus, et enregistrer une copie de celui-ci (enfin presque, sans les doublons) Tout cela en partant de VB6

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

avyrex1926 · Answer

Merci, tu ferais un super de bon professeur ! 

Je t'engage à la place de mon livre qui est compliqué à comprendre la plupart du temps.

mortalino · Answer

Tiens j'ai retrouvé le topic sur les fonctions Excel Depuis VB6 :
http://www.vbfrance.com/infomsg_VISUAL-BASIC_927302.aspx

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

mortalino · Answer

lol, merci, avec jrivet, MPi, Molenn, us30 et rvblog, ne pas les oublier, ils sont très bons avec Excel.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

avyrex1926 · Answer

Oui c'est vrai tu as raison, désolé, MPI m'a beaucoup aidé aussi. Je vous prendrais tous comme professeur n'importe quand Je viens d'essayer le liens que tu m'as donnée et je trouve ca super aussi. Dommage que dans mon livre il ne parle pas de tous ça aussi. Je viens de lire dans mon livre que :

Set obExcelApp = GetObject ( , "Excel.Application")

sert si l'application (Excel) et déja en cours d'exécution. Je vais essayer tout de suite.

avyrex1926 · Answer

et oui, ça fonctionne avec ça:

Private Sub Form_Load() Dim WorkB As Excel.Workbook Dim WorkS As Excel.Worksheet Dim i As Long, PLV As Long Set obExcelApp = GetObject(, "Excel.Application") Text1 = Range("A1") + 1 commande.Show Range("A1") = Text1 ActiveWorkbook.Save Timer1.Interval = 100 Label1.Caption = "" Application.ScreenUpdating = False 'Assigner les lignes au PO 'Set obExcelApp = GetObject.Sheets("Feuil1") PLV = obExcelApp.Range("B65536").End(xlUp).Row + 1 For i = PLV To PLV + 19 obExcelApp.Cells(i, 1).Value = "PB" obExcelApp.Cells(i, 2).Value = "'" & Format(Range("A1").Value, "00000") Next i ActiveWorkbook.Save Application.ScreenUpdating = True End Sub

mortalino · Answer

Oui, cela t'évite d'ouvrir plusieurs instances de l'application Excel.

Mais tu vois, tu me mets encore pleins de doûtes 
Chez moi, obigatoirement, avec ton code, ça va planter sur Text1 = Range("A1") + 1
car Range("A1"), il ne connait pas. Ca marcherait que depuis VBA, et pas VB6 car il manque la référence au classeur !

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

avyrex1926 · Answer

Comme par exemple:

Dim MyObject As Object
Set MyObject = GetObject("C:\..............Xls")

mortalino · Answer

Oui, par exemple ;)
Bien que Object est à proscrire, il n'est vérifié qu'à la compilation

Avec VB6, j'aurai mis ça :

        Dim AppXL As Object
        Dim WorkB As Excel.Workbook
        Dim WorkS As Excel.Worksheet
        Dim i     As Long, PLV As Long

Set obExcelApp = GetObject(, "Excel.Application")
Set WorkB = obExcelApp.WorkBooks.Open("C:\...xls")

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

avyrex1926 · Answer

Comme ça:

Private Sub Form_Load()
Dim AppXL As Object
Dim WorkB As New Excel.Workbook
Dim WorkS As Excel.Worksheet
Dim i     As Long, PLV As Long

Set obExcelapp = GetObject(, "Excel.Application")
Set WorkB = obExcelapp.WorkBooks.Open("C:\Documents and Settings\Jean-Marc Poitras\Bureau\Test1.xls")
Text1 = obExcelapp.Range("A1")+1
End Sub

cs_MPi · Answer

Salut Mortalino,
chez moi, ceci ne plante pas
Text1 = Range("A1") + 1

Du moins tant et aussi longtemps que l'Application, le Workbook et le Worksheet sont bien définis et chargés (donc actifs) au FormLoad ... (?)

MPi

Supprimer ligne avec condition

29 réponses

Votre réponse

Discussions similaires