Christian3000
XLDnaute Nouveau
Bonjour à tous,
Petit problème avec VBA: mon objectif est de créer un code qui (1) masque une colonne si elle est vide (excepté l'en-tête bien sûr); (2)ne masque pas cette colonne si au moins une de ses cellules est remplie.
J'ai encore deux-trois finesses que je voudrais intégrer comme: (3) vba doit considérer également comme vide des cellules qui ne sont pas remplies mais qui contiennent une formule; (4) le code devrait me permettre de réafficher la colonne si une des cellules se remplit (grâce à la formule préalablement inscrite dedans).
Voilà le problème général mais si vous pouviez déjà m'aider pour les points 1 et 2, ce serait génial...
Voici le code (qui déconne:"erreur de compilation") actuel:
Sub Acolonnes()
Dim Int3 As Range
Set Int3 = ActiveSheet.Range("F2:F18")
For Each c In Int3
If c.Value <> 0 Then: Exit For
Next
ElseIf c.Value = 0 Then
c.EntireColumn.Hidden = True
End If
End Sub
A+!
Christian
Petit problème avec VBA: mon objectif est de créer un code qui (1) masque une colonne si elle est vide (excepté l'en-tête bien sûr); (2)ne masque pas cette colonne si au moins une de ses cellules est remplie.
J'ai encore deux-trois finesses que je voudrais intégrer comme: (3) vba doit considérer également comme vide des cellules qui ne sont pas remplies mais qui contiennent une formule; (4) le code devrait me permettre de réafficher la colonne si une des cellules se remplit (grâce à la formule préalablement inscrite dedans).
Voilà le problème général mais si vous pouviez déjà m'aider pour les points 1 et 2, ce serait génial...
Voici le code (qui déconne:"erreur de compilation") actuel:
Sub Acolonnes()
Dim Int3 As Range
Set Int3 = ActiveSheet.Range("F2:F18")
For Each c In Int3
If c.Value <> 0 Then: Exit For
Next
ElseIf c.Value = 0 Then
c.EntireColumn.Hidden = True
End If
End Sub
A+!
Christian
