Formule pour masquer ligne vide VBA
Fermémichel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 22 août 2022 à 19:10
- Formule pour masquer ligne vide VBA
- Formule excel pour additionner plusieurs cellules - Guide
- Formule si et - Guide
- Formule excel moyenne - Guide
- Retour à la ligne excel formule - Guide
- Supprimer page word vide - Guide
6 réponses
22 août 2022 à 10:52
Bonjour,
Remplace cette ligne de boucle par celle-ci (on part de la fin vers le début
For i = Lignefin to Lignedebut Step -1
Modifié le 22 août 2022 à 11:35
Teste ceci
Sub masqueligne()
Lignedebut = 39
Lignefin = 54
For i = Lignefin To Lignedebut Step -1
If WorksheetFunction.CountA(Range(Cells(i, "B"), Cells(i, "M"))) = 0 Then
Rows(i).Hidden = True
End If
Next i
End Sub
La fonction n'est plus en erreur mais ca ne masque pas les lignes
22 août 2022 à 13:02
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionil se peut que cela vienne du fait que j'ai plusieurs feuilles et que ce n'est pas la première. Je vais voir pour appliquer la fonction uniquement sur cette feuille. Si vous avez des idées je suis preneur
22 août 2022 à 18:02
Re,
Sub masqueligne()
Lignedebut = 39
Lignefin = 54
For i = Lignefin To Lignedebut Step -1
If Cells(i, "N") = "" Then
Rows(i).Hidden = True
End If
Next i
End Sub
22 août 2022 à 19:10
Il-y a pas besoin de faire une boucle pour résoudre ce problème !!!
Pet-^tre daigner regarder ce qui a été proposé réponse 6/6 à 14:33H
ce n'est pas difficile de faire cette manip sur plusieurs feuilles mais comme je suis pris pour un ...( au choix) je laisse les petits génies le faire
22 août 2022 à 14:33
Bonjour
Sub Supprimer_si_vide()
Dim Ligne As Long
On Error Resume Next
Ligne = Columns("B").Find("*", , , , , xlPrevious).Row
Range("B2:B" & Ligne).SpecialCells(xlCellTypeBlanks).EntireRow.hidden=true
End Sub
22 août 2022 à 14:36
lire masquer au lieu de "supprimer"
