Bonjour Je travail avec office XP
J'ai une feuille d'excel avec 12 cellules avec la fonction
"countif" dans chaqu'une d'elles j'aimerais avoir une
macro qui renderais les colonnes don la valeur est plus
grande que 0 invisible
merci
gaetan
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
Denis Michon
Bonjour Gaétant,
à copier dans un module standard.
Modifie le nom de la feuille et la plage de cellules où sont situées tes formules.
'------------------------------ Sub Invisible() Dim Rg As Range
With Worksheets("Feuil1") Set Rg = .Range("A1, B5, C10, D1:D3") End With
For Each c In Rg If c.Value = 0 Then c.EntireColumn.Hidden = True Else c.EntireColumn.Hidden = True End If Next
End Sub '------------------------------
Saluttations!
"Gaetan" a écrit dans le message de news:03d501c398d9$bf5108f0$ Bonjour Je travail avec office XP J'ai une feuille d'excel avec 12 cellules avec la fonction "countif" dans chaqu'une d'elles j'aimerais avoir une macro qui renderais les colonnes don la valeur est plus grande que 0 invisible merci gaetan
Bonjour Gaétant,
à copier dans un module standard.
Modifie le nom de la feuille et la plage de cellules où sont situées tes formules.
'------------------------------
Sub Invisible()
Dim Rg As Range
With Worksheets("Feuil1")
Set Rg = .Range("A1, B5, C10, D1:D3")
End With
For Each c In Rg
If c.Value = 0 Then
c.EntireColumn.Hidden = True
Else
c.EntireColumn.Hidden = True
End If
Next
End Sub
'------------------------------
Saluttations!
"Gaetan" <anonymous@discussions.microsoft.com> a écrit dans le message de news:03d501c398d9$bf5108f0$a301280a@phx.gbl...
Bonjour Je travail avec office XP
J'ai une feuille d'excel avec 12 cellules avec la fonction
"countif" dans chaqu'une d'elles j'aimerais avoir une
macro qui renderais les colonnes don la valeur est plus
grande que 0 invisible
merci
gaetan
Modifie le nom de la feuille et la plage de cellules où sont situées tes formules.
'------------------------------ Sub Invisible() Dim Rg As Range
With Worksheets("Feuil1") Set Rg = .Range("A1, B5, C10, D1:D3") End With
For Each c In Rg If c.Value = 0 Then c.EntireColumn.Hidden = True Else c.EntireColumn.Hidden = True End If Next
End Sub '------------------------------
Saluttations!
"Gaetan" a écrit dans le message de news:03d501c398d9$bf5108f0$ Bonjour Je travail avec office XP J'ai une feuille d'excel avec 12 cellules avec la fonction "countif" dans chaqu'une d'elles j'aimerais avoir une macro qui renderais les colonnes don la valeur est plus grande que 0 invisible merci gaetan
