Macro pour cacher col
Bonjour,
Voilà j'ai un tableau avec 67 colonnes et 19 lignes dans les 19 ligne j'ai des fomrule de calcul et maintenant on me demande que si sur une colonne mes lignes sont à zéro il faudrait que ma colonne se cache. sachant que sur ma 1ère ligne j'ai inscrit par exemple Fuide A sur l'autre Fuide B.... et non des valeurs
Voilà j'ai un tableau avec 67 colonnes et 19 lignes dans les 19 ligne j'ai des fomrule de calcul et maintenant on me demande que si sur une colonne mes lignes sont à zéro il faudrait que ma colonne se cache. sachant que sur ma 1ère ligne j'ai inscrit par exemple Fuide A sur l'autre Fuide B.... et non des valeurs
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
Bonjour,
Tu peux essayer ça :
Sub cache_col()
For col = 1 To 67
CACHE = "YES"
For ligne = 2 To 19
Cells(ligne, col).Select
VALEUR = Selection
If VALEUR <> 0 Then
CACHE = "NO"
End If
Next
If CACHE = "YES" Then
Columns(col).Select
Selection.EntireColumn.Hidden = True
End If
Next
End Sub -
Bonjour,
Je viens d'essayer la macro suivante :
Sub cache_col()
For col = 1 To 67
CACHE = "YES"
For ligne = 2 To 19
Cells(ligne, col).Select
VALEUR = Selection
If VALEUR <> 0 Then
CACHE = "NO"
End If
Next
If CACHE = "YES" Then
Columns(col).Select
Selection.EntireColumn.Hidden = True
End If
Next
End Sub
mais il me dit une erreur sur la ligne 7 soit sur If VALEUR <> 0 Then
Ma demande était de cacher la colonne si elle était à zéro sachant que mais cellules n'était pas vide car il y avait des formules. Pouvez-vous m'aider et me dire ce que je dois faire
Merci par avance
