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
michdenis
Bonjour Christophe,
Tu peux utiliser quelque chose dans le genre en adaptant les plages de cellules :
'---------------------------------- Dim Rg As Range
With Worksheets("Feuil1") Set Rg = Range("A1:G5") End With
For Each c In Rg.Columns ss = WorksheetFunction.CountBlank(c) = 5 If WorksheetFunction.CountBlank(c) = 5 Then c.EntireColumn.Hidden = True Else c.EntireColumn.Hidden = False End If Next Set Rg = Nothing '----------------------------------
Salutations!
"Christophe" a écrit dans le message de news: 41c08d4a$0$375$ Bonjour à tous
Je cherche le moyen de masquer une colonne par visual basic si sur 5 lignes presente dans cette colonne il n'y a rien.
Mon tableau contiens plus de 50 colonnes et je voudrais masqué celle ou pour une semaine je n'ai aucune saisie entrée. Pour y voir plus clair.
j'esperes avoir été assez clair dans mes explications
J'ai essayer avec si mais cela ne marche pas. Un tableau croisée dynamique, non plus les valeurs sont des lettres.
merci à tous pour l'aide que vous m'apporterer.
Patricia
Bonjour Christophe,
Tu peux utiliser quelque chose dans le genre en adaptant les plages de cellules :
'----------------------------------
Dim Rg As Range
With Worksheets("Feuil1")
Set Rg = Range("A1:G5")
End With
For Each c In Rg.Columns
ss = WorksheetFunction.CountBlank(c) = 5
If WorksheetFunction.CountBlank(c) = 5 Then
c.EntireColumn.Hidden = True
Else
c.EntireColumn.Hidden = False
End If
Next
Set Rg = Nothing
'----------------------------------
Salutations!
"Christophe" <romain.m@cegetel.net> a écrit dans le message de news: 41c08d4a$0$375$c3e8da3@news.astraweb.com...
Bonjour à tous
Je cherche le moyen de masquer une colonne par visual basic si sur 5 lignes
presente dans cette colonne il n'y a rien.
Mon tableau contiens plus de 50 colonnes et je voudrais masqué celle ou pour
une semaine je n'ai aucune saisie entrée. Pour y voir plus clair.
j'esperes avoir été assez clair dans mes explications
J'ai essayer avec si mais cela ne marche pas. Un tableau croisée dynamique,
non plus les valeurs sont des lettres.
Tu peux utiliser quelque chose dans le genre en adaptant les plages de cellules :
'---------------------------------- Dim Rg As Range
With Worksheets("Feuil1") Set Rg = Range("A1:G5") End With
For Each c In Rg.Columns ss = WorksheetFunction.CountBlank(c) = 5 If WorksheetFunction.CountBlank(c) = 5 Then c.EntireColumn.Hidden = True Else c.EntireColumn.Hidden = False End If Next Set Rg = Nothing '----------------------------------
Salutations!
"Christophe" a écrit dans le message de news: 41c08d4a$0$375$ Bonjour à tous
Je cherche le moyen de masquer une colonne par visual basic si sur 5 lignes presente dans cette colonne il n'y a rien.
Mon tableau contiens plus de 50 colonnes et je voudrais masqué celle ou pour une semaine je n'ai aucune saisie entrée. Pour y voir plus clair.
j'esperes avoir été assez clair dans mes explications
J'ai essayer avec si mais cela ne marche pas. Un tableau croisée dynamique, non plus les valeurs sont des lettres.
merci à tous pour l'aide que vous m'apporterer.
Patricia
Christophe
Merci pour l'aide je vais de suite mettre en application.
Bonne soirée et fetes de fin d'année.
Patricia
"michdenis" a écrit dans le message de news:
Bonjour Christophe,
Tu peux utiliser quelque chose dans le genre en adaptant les plages de cellules :
'---------------------------------- Dim Rg As Range
With Worksheets("Feuil1") Set Rg = Range("A1:G5") End With
For Each c In Rg.Columns ss = WorksheetFunction.CountBlank(c) = 5 If WorksheetFunction.CountBlank(c) = 5 Then c.EntireColumn.Hidden = True Else c.EntireColumn.Hidden = False End If Next Set Rg = Nothing '----------------------------------
Salutations!
"Christophe" a écrit dans le message de news: 41c08d4a$0$375$ Bonjour à tous
Je cherche le moyen de masquer une colonne par visual basic si sur 5 lignes presente dans cette colonne il n'y a rien.
Mon tableau contiens plus de 50 colonnes et je voudrais masqué celle ou pour une semaine je n'ai aucune saisie entrée. Pour y voir plus clair.
j'esperes avoir été assez clair dans mes explications
J'ai essayer avec si mais cela ne marche pas. Un tableau croisée dynamique, non plus les valeurs sont des lettres.
merci à tous pour l'aide que vous m'apporterer.
Patricia
Merci pour l'aide je vais de suite mettre en application.
Bonne soirée et fetes de fin d'année.
Patricia
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
un5dh8t4EHA.3380@TK2MSFTNGP09.phx.gbl...
Bonjour Christophe,
Tu peux utiliser quelque chose dans le genre en adaptant les plages de
cellules :
'----------------------------------
Dim Rg As Range
With Worksheets("Feuil1")
Set Rg = Range("A1:G5")
End With
For Each c In Rg.Columns
ss = WorksheetFunction.CountBlank(c) = 5
If WorksheetFunction.CountBlank(c) = 5 Then
c.EntireColumn.Hidden = True
Else
c.EntireColumn.Hidden = False
End If
Next
Set Rg = Nothing
'----------------------------------
Salutations!
"Christophe" <romain.m@cegetel.net> a écrit dans le message de news:
41c08d4a$0$375$c3e8da3@news.astraweb.com...
Bonjour à tous
Je cherche le moyen de masquer une colonne par visual basic si sur 5
lignes
presente dans cette colonne il n'y a rien.
Mon tableau contiens plus de 50 colonnes et je voudrais masqué celle ou
pour
une semaine je n'ai aucune saisie entrée. Pour y voir plus clair.
j'esperes avoir été assez clair dans mes explications
J'ai essayer avec si mais cela ne marche pas. Un tableau croisée
dynamique,
non plus les valeurs sont des lettres.
Merci pour l'aide je vais de suite mettre en application.
Bonne soirée et fetes de fin d'année.
Patricia
"michdenis" a écrit dans le message de news:
Bonjour Christophe,
Tu peux utiliser quelque chose dans le genre en adaptant les plages de cellules :
'---------------------------------- Dim Rg As Range
With Worksheets("Feuil1") Set Rg = Range("A1:G5") End With
For Each c In Rg.Columns ss = WorksheetFunction.CountBlank(c) = 5 If WorksheetFunction.CountBlank(c) = 5 Then c.EntireColumn.Hidden = True Else c.EntireColumn.Hidden = False End If Next Set Rg = Nothing '----------------------------------
Salutations!
"Christophe" a écrit dans le message de news: 41c08d4a$0$375$ Bonjour à tous
Je cherche le moyen de masquer une colonne par visual basic si sur 5 lignes presente dans cette colonne il n'y a rien.
Mon tableau contiens plus de 50 colonnes et je voudrais masqué celle ou pour une semaine je n'ai aucune saisie entrée. Pour y voir plus clair.
j'esperes avoir été assez clair dans mes explications
J'ai essayer avec si mais cela ne marche pas. Un tableau croisée dynamique, non plus les valeurs sont des lettres.
