Macro pour cacher col
cococamo
-
black_ops Messages postés 4 Statut Membre -
black_ops Messages postés 4 Statut Membre -
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
A voir également:
- Macro pour cacher col
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Cacher ses amis sur facebook - Guide
- Cacher son numéro - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Cacher conversation whatsapp - Guide
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
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
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
