Problème lignes fantômes

porcinet82

XLDnaute Barbatruc

• 21 Août 2007

• #2

Re : Problème lignes fantômes

Salut,

Pas sur d'avoir tout bien saisie, mais s'il s'agit de supprimer des lignes "deja vide" en sortie de classeur, tu peux peut etre essayer ce bout de code, mais sans garantit 🙄 (a placer dans le module ThisWorkbook dans le menu de gauche apres Alt+F11) :

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i&
With Sheets("Feuil1")
    For i = .Range("A65536").End(xlUp).Row To 1 Step -1
        If .Cells(i, 1).Value = "" Or .Cells(i, 1).Value = " " Then
            .Rows(i).Delete
        End If
    Next i
End With
End Sub

Si le code ne fonctionne pas, mets nous un exemple de ton fichier avec des lignes fantomes, afin qu'on puisse adapter directement.

@+

 

Vote positif 0 Vote négatif

N

netr

Guest

• 21 Août 2007

• #3

Re : Problème lignes fantômes

Merci pour ta réponse rapide...

J'ai toujours un pb car il ne reconnait pas la ligne "with sheet".
Je travail sur l'onglet opérateur (mais il faut faire cela pour tout les onglets).

Je vais continuer à explorer les solutions avec ce que tu m'as fournis

DSL, mon fichier est trop gros pour la pièce jointe

 

Dernière modification par un modérateur: 21 Août 2007

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 21 Août 2007

• #4

Re : Problème lignes fantômes

re,

Mets nous seulement un morceau de ton fichier, ca devrait suffire pour comprendre, et sans données confidentielles...

@+

 

Vote positif 0 Vote négatif

Luki

XLDnaute Accro

• 21 Août 2007

• #5

Re : Problème lignes fantômes

Salut à vous,

netr,

J'ai toujours un pb car il ne reconnait pas la ligne "with sheet".

Cliquez pour agrandir...

Atention au S : with sheets

 

Vote positif 0 Vote négatif

N

netr

Guest

• 21 Août 2007

• #6

Re : Problème lignes fantômes

Merci pour votre aide, ça marche, plus de lignes fantômes!!!

Je voudrais pas abuser mais auriez vous une idée de comment généraliser cela à tous mes onglets (sauf celui qui s'appelle "fichier")

En tout cas encore merci pour les lignes fantômes

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 21 Août 2007

• #7

Re : Problème lignes fantômes

Bonjour à tous,

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i&
For i = 1 to sheets.count
With Sheets(i)
    If sheets(i) <> "fichier" then 
    For i = .Range("A65536").End(xlUp).Row To 1 Step -1
        If .Cells(i, 1).Value = "" Or .Cells(i, 1).Value = " " Then
            .Rows(i).Delete
        End If
    End if
    Next i
End With
next
End Sub

devrait fonctionner

Cordialeemnt

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 21 Août 2007

• #8

Re : Problème lignes fantômes

Bonjour à tous,

Il me semble que tu emploies deux fois i avec deux variables différentes

A+

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 21 Août 2007

• #9

Re : Problème lignes fantômes

re,

Tu joues le fainénant depuis que tu as passé le cap des milles JCGL ? 😉 😛
Tu aurais pu modifier le code tout de même :

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i&, k&
For k = 1 To Sheets.Count
    With Sheets(k)
        If Sheets(k) <> "fichier" Then
            For i = .Range("A65536").End(xlUp).Row To 1 Step -1
                If .Cells(i, 1).Value = "" Or .Cells(i, 1).Value = " " Then
                    .Rows(i).Delete
                End If
            End If
        Next i
    End With
Next k
End Sub

@+

 

Vote positif 0 Vote négatif

N

netr

Guest

• 21 Août 2007

• #10

Re : Problème lignes fantômes

Une petite question en passant : Qulqu'un sait il à quoi est du ce phénomène de lignes fantômes? Et comment les identifier?
On pourrait du coup supprimer que ces lignes au lieu des 65000 et des poussières suivant celles que l'on conserve.

Ceci dit, je suis déjà bien content d'avoir un truc qui marche. merki

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 21 Août 2007

• #11

Re : Problème lignes fantômes

Re,

Tu aurais pu modifier le code tout de même

Cliquez pour agrandir...

Pour toi oui, pas pour Spit arf arf 🙂🙂

Amicalement à tous les deux

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 21 Août 2007

• #12

Re : Problème lignes fantômes

Re,

Pour toi oui, pas pour Spit arf arf

Cliquez pour agrandir...

Petit garnement! 🙂 Je t'aurai un jour, je t'aurai...😛

Effectivement, je me suis contenté de survoler le code de Porcinet qui fonctionnait d'après les posts précédents et de lui faire un ajout manuel... Shame on me ! Fouettez moi!

Pas trop fort quand même!😀

Cordialement

 

Vote positif 0 Vote négatif