Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Avec une macro, oui, mais si tu ne restreins pas, ça va être brutal. Cordialement. Daniel "Vader" a écrit dans le message de news:
Bonjour,
Je voudrais savoir si il est possible de cacher automatiquement une ligne si une cellule (de cette ligne) est = à 0 ou est vide.
Ex : SI Cell.(C4)=0 ou Vide, Alors Masquer la ligne C#
Nota : - Il t'y possible de rendre de le process auto pour chaque ligne d'une feuille xls ?
Merci,
Vad'
Bonsoir.
Avec une macro, oui, mais si tu ne restreins pas, ça va être brutal.
Cordialement.
Daniel
"Vader" <Vader@discussions.microsoft.com> a écrit dans le message de news:
A5198928-2A8B-449D-B22D-4A5F9DB0B468@microsoft.com...
Bonjour,
Je voudrais savoir si il est possible de cacher automatiquement une ligne
si
une cellule (de cette ligne) est = à 0 ou est vide.
Ex : SI Cell.(C4)=0 ou Vide, Alors Masquer la ligne C#
Nota :
- Il t'y possible de rendre de le process auto pour chaque ligne d'une
feuille xls ?
Bonsoir. Avec une macro, oui, mais si tu ne restreins pas, ça va être brutal. Cordialement. Daniel "Vader" a écrit dans le message de news:
Bonjour,
Je voudrais savoir si il est possible de cacher automatiquement une ligne si une cellule (de cette ligne) est = à 0 ou est vide.
Ex : SI Cell.(C4)=0 ou Vide, Alors Masquer la ligne C#
Nota : - Il t'y possible de rendre de le process auto pour chaque ligne d'une feuille xls ?
Merci,
Vad'
Philippe Noss
Bonsoir, Par exemple, pour toutes les lignes de la feuille active on teste si la 4eme colonne est à zero
For i = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 4) = 0 Then Rows(i).RowHeight = 0
Next
ou encore
For i = 1 To ActiveSheet.UsedRange.Rows.Count For j = 1 To ActiveSheet.UsedRange.Columns.Count If Cells(i, j) = 0 Then Rows(i).RowHeight = 0 Exit For End If Next Next
Bonsoir,
Par exemple,
pour toutes les lignes de la feuille active on teste si la 4eme colonne
est à zero
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 4) = 0 Then Rows(i).RowHeight = 0
Next
ou encore
For i = 1 To ActiveSheet.UsedRange.Rows.Count
For j = 1 To ActiveSheet.UsedRange.Columns.Count
If Cells(i, j) = 0 Then
Rows(i).RowHeight = 0
Exit For
End If
Next
Next
Tu peux aussi voir le code de la macro MasqueLigneVide dans
http://nossphil.perso.cegetel.net/exoutils.html
Bonsoir, Par exemple, pour toutes les lignes de la feuille active on teste si la 4eme colonne est à zero
For i = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 4) = 0 Then Rows(i).RowHeight = 0
Next
ou encore
For i = 1 To ActiveSheet.UsedRange.Rows.Count For j = 1 To ActiveSheet.UsedRange.Columns.Count If Cells(i, j) = 0 Then Rows(i).RowHeight = 0 Exit For End If Next Next
Bonsoir, Par exemple, pour toutes les lignes de la feuille active on teste si la 4eme colonne est à zero
For i = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 4) = 0 Then Rows(i).RowHeight = 0
Next
ou encore
For i = 1 To ActiveSheet.UsedRange.Rows.Count For j = 1 To ActiveSheet.UsedRange.Columns.Count If Cells(i, j) = 0 Then Rows(i).RowHeight = 0 Exit For End If Next Next
Bonsoir,
Par exemple,
pour toutes les lignes de la feuille active on teste si la 4eme colonne
est à zero
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 4) = 0 Then Rows(i).RowHeight = 0
Next
ou encore
For i = 1 To ActiveSheet.UsedRange.Rows.Count
For j = 1 To ActiveSheet.UsedRange.Columns.Count
If Cells(i, j) = 0 Then
Rows(i).RowHeight = 0
Exit For
End If
Next
Next
Tu peux aussi voir le code de la macro MasqueLigneVide dans
http://nossphil.perso.cegetel.net/exoutils.html
Bonsoir, Par exemple, pour toutes les lignes de la feuille active on teste si la 4eme colonne est à zero
For i = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 4) = 0 Then Rows(i).RowHeight = 0
Next
ou encore
For i = 1 To ActiveSheet.UsedRange.Rows.Count For j = 1 To ActiveSheet.UsedRange.Columns.Count If Cells(i, j) = 0 Then Rows(i).RowHeight = 0 Exit For End If Next Next
