Suppression ligne vide

Staple1600

XLDnaute Barbatruc

• 4 Décembre 2010

• #2

Re : Suppression ligne vide

Bonsoir

Regardes tout en bas de cette page, les cinq liens pointant vers des discussions similaires à ta question.

 

Vote positif 0 Vote négatif

E

Electron70

Guest

• 4 Décembre 2010

• #3

Re : Suppression ligne vide

Bonjour,
Je pense que je n'ai pas du donner les bonnes infos car aucune des commandes ne fonctionnent🙄.
Les lignes ne sont pas tout à fait vides; elles contiennent toutes une formule qui affiche un résultat vide (ex: =si(A1=2;"";"ok").
J'aimerais donc que chaque ligne où le résultat est "" soit effacées.
Merci d'avance!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Décembre 2010

• #4

Re : Suppression ligne vide

Bonsoir Electron70

Utilises sur le Filtre Automatique : critère : <>"ok"
puis supprime alors les lignes qui s'afficheront.

Il serait plus simple de t'aider avec un petit fichier exemple 😉

 

Vote positif 0 Vote négatif

E

Electron70

Guest

• 4 Décembre 2010

• #5

Re : Suppression ligne vide

Bonjour staple1600, envoyé des dieux,
En fait je viens d'en trouver une :
Option Explicit

Sub SuppressionLignes()
Dim NumCol As Byte
Dim NumLig As Integer, i As Integer

NumCol = ActiveCell.Column
NumLig = Range(Cells(65536, NumCol).Address).End(xlUp).Row

Application.ScreenUpdating = False
For i = NumLig To 1 Step -1
If Cells(i, NumCol) = "" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True

End Sub

Mon soucis maintenant est de lea mettre en exécution automatique à l'ouverture du document. Comment faire? Et où pourrais-je trouver des infos, ou des cours, sur les macros et son langage?

Et un grand merci pour ton aide !

 

Dernière modification par un modérateur: 4 Décembre 2010

Vote positif 0 Vote négatif