Problème lignes fantômes

[netr]

Bonjour tout le monde,

Voilà mon petit (gros!!!) problème. J'ai un fichier EXCEL utilisé pour chargé des données en base par une application. Le problème, c'est que les utilisateurs utilisent toujours le même fichier pour charger leur données, et ils suppriment à chaque fois les lignes en trop.

Lorsqu'ils sélectionnent les lignes et cliquent sur le bouton "supprimé les lignes" du menu contextuel, pas de problèmes, mais, s'ils les suppriment à l'aide de la touche suppr du clavier, l'application derrière lit encore ces lignes supprimé (mais sans aucune valeur dedans).

J'aimerai faire une macro qui supprime ces lignes fantomes à la fermeture du fichier excel ou mieux encore lors de sa sauvegarde mais je n'y connais rien en excel en là j'avoue que je lutte un peu.

Si quelqu'un a une idée, merci d'avance.

 

[porcinet82]

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) :

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.

@+

 

[netr]

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

 

[porcinet82]

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...

@+

 

[Luki]

Re : Problème lignes fantômes

Salut à vous,

netr,

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

Atention au S : with sheets

 

[netr]

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

 

[Spitnolan08]

Re : Problème lignes fantômes

Bonjour à tous,

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

 

[JCGL]

Re : Problème lignes fantômes

Bonjour à tous,

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

A+

 

[porcinet82]

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 :

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

@+

 

[netr]

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

 

[JCGL]

Re : Problème lignes fantômes

Re,

Tu aurais pu modifier le code tout de même

Pour toi oui, pas pour Spit arf arf 🙂🙂

Amicalement à tous les deux

 

[Spitnolan08]

Re : Problème lignes fantômes

Re,

Pour toi oui, pas pour Spit arf arf

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