XL 2013 Supprimer ligne si cellule est vide

Modeste

XLDnaute Barbatruc

• 13 Août 2016

• #2

Bonjour susaita,

Supprimer des lignes, ça a un petit côté ... définitif 😛 (d'autant qu'en cas de problème, d'erreur de manipulation ou de cas non-prévus dans le code, tu pourrais te retrouver avec ... 0 lignes ... et donc toutes tes formules à recréer 😱)

Pourquoi ne pas simplement les masquer (comme si tu décochais les "Vides" dans un filtre automatique)?

 

Vote positif 0 Vote négatif

S

susaita

XLDnaute Occasionnel

• 13 Août 2016

• #3

Bonjour Modeste,
c'est une bonne idée de les cacher au lieu de les supprimer

une proposition de ta part s'il te plait


EDIT: tu as raison il vaut mieux masque la ligne quand elle est vide et la démasquer une fois remplie

 

Dernière édition: 13 Août 2016

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 13 Août 2016

• #4

Re,

à tester soigneusement ...

Clic droit sur l'onglet de la feuille "Total - Mois" --> Visualiser le code --> coller ce qui suit dans la fenêtre:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Address <> "$B$9" Then Exit Sub
Rows("9:14").Hidden = False
If Target.Cells(1, 1) = "" Then Exit Sub
For Each c In [C9:C14]
    If c = "" Then c.EntireRow.Hidden = True
Next c
End Sub

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 13 Août 2016

• #5

Bonjour à tous,

Peut-être en cliquant sur les boutons "afficher" : " masquer "

L'intérêt de ces boutons permet d'ajouter de la saisie ou de masquer une cellule vide

Bonne journée !

 

Pièces jointes

• Ajout FRS-2.xlsm

  59.8 KB · Affichages: 48

Dernière édition: 13 Août 2016

Vote positif 0 Vote négatif

S

susaita

XLDnaute Occasionnel

• 13 Août 2016

• #6

re,
Merci beaucoup Modeste c'est exactement ce que je voulais... est ce que c'est possible rendre le code plus vite ??
Merci a toi aussi JBARBE

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 13 Août 2016

• #7

Re²,

Dans l'exemple fourni, il n'y avait que 6 lignes ... ça ne devrait donc pas prendre des plombes!?
Tu as plus de lignes? Beaucoup plus? Infiniment plus?
S'il y a des cellules vides en colonne C elles ne seront jamais que dans les dernières lignes? Dans ce cas, on peut commencer par le bas et sortir de la procédure à la première cellule non-vide ... mais il faut plus de précisions (ou un exemple plus représentatif)

 

Vote positif 0 Vote négatif

S

susaita

XLDnaute Occasionnel

• 13 Août 2016

• #8

re,
c'est bien mon exemple d'origine et je n'ai que 6 lignes mais j'aimerais éviter le screen updating pour ne pas remarquer l'action qui se fait

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 13 Août 2016

• #9

j'aimerais éviter le screen updating

Cliquez pour agrandir...

Ben, si tu connais la solution ... pourquoi ne pas la mettre en œuvre?

Une version ci-dessous, qui scanne la colonne C en commençant en ligne 14 et en remontant. J'ai considéré qu'il ne saurait (vu la formule utilisée) y avoir des cellules vides entre les données. Les lignes sont masquées en une seule fois.
Je t'ai laissé le ScreenUpdating en commentaire ... il me semble que ça ne devrait rien changer? Supprime l'apostrophe en début de ligne, si tu veux activer ces 2 lignes.

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Address <> "$B$9" Then Exit Sub
Rows("9:14").Hidden = False
If Target.Cells(1, 1) = "" Then Exit Sub
For lig = 14 To 9 Step -1
     If Cells(lig, 3) = "" Then
        derLigne = lig
    Else: Exit For
    End If
Next lig
'Application.ScreenUpdating = False
If derLigne > 0 Then Rows(derLigne & ":14").Hidden = True
'Application.ScreenUpdating = True
End Sub

Bon après-midi

 

Vote positif 0 Vote négatif

S

susaita

XLDnaute Occasionnel

• 13 Août 2016

• #10

Merci beaucoup Modeste
C'est ce que je voulais

Cordialement
Susaita

 

Vote positif 0 Vote négatif