Formule pour masquer ligne vide VBA

CIF -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 22 août 2022 à 19:10

Bonjour je souhaite masquer les lignes pour lesquels il n'y a pas de valeurs.

J'ai testé cela mais cela ne marche pas.

Il s'agit d'un tableau fermé entre les lignes 39/54 et colonnes B/M

Sub masqueligne()
Lignedebut = 39
Lignefin = 54
Set MaPlage = Columns("B:M").Rows(i)
For i = Lignedebut To Lignefin
If Range(MaPlage).Value = "" Then
Rows(i).Hidden = True
End If
Next i
End Sub

Merci de votre aide

Afficher la suite

A voir également:

Formule pour masquer ligne vide VBA
Formule si et - Guide
Formule somme excel ligne - Guide
Partager photos en ligne - Guide
Supprimer page word vide - Guide
Retour à la ligne excel formule - Guide

6 réponses

Réponse 1 / 6

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 285

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

Réponse 2 / 6

CIF

Ok merci, mais l'erreur vient de la ligne avec le Range (bug) et je ne vois pas pourquoi...

Réponse 3 / 6

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 285

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

Réponse 4 / 6

CIF

La fonction n'est plus en erreur mais ca ne masque pas les lignes

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 285

Désolé,

moi c'est masqué

https://www.cjoint.com/c/LHwlcav8v7C

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

CIF

il 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

CIF

Finalement, je peux faire plus simple en attribuant juste une cellule en critère et non une plage

Si cells(i, "N") = "" alors Masquer

Peux tu m'aider à réécrire ce code ? merci

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 285 > CIF

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

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314 > CIF

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

Réponse 6 / 6

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

lire masquer au lieu de "supprimer"

Discussions similaires

le frigo ne marche pas....

Internat nourriture

taxe foncière pour locataire

Votre réponse

Discussions similaires