Pour cacher une colonnes non vide car formule
cococamo
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
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
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
A voir également:
- Pour cacher une colonnes non vide car formule
- Formule moyenne excel plusieurs colonnes - Guide
- Formule si ou - Guide
- Comment supprimer une page vide sur word - Guide
- Comment faire des colonnes sur word - Guide
- Formule excel pour additionner une colonne - Guide
4 réponses
Bonjour
pour savoir si une cellule comporte une formule utilise la propriété hasformula qui renvoie VRAI ou FAUX
par exemple
dim test as boolean
test=Range("D3").HasFormula
pour savoir si une cellule comporte une formule utilise la propriété hasformula qui renvoie VRAI ou FAUX
par exemple
dim test as boolean
test=Range("D3").HasFormula
bonjour
Tu peux coder ta macro plus simplement pour obtenir le résultat :
edit : salut Michel, j'avais oublié de rafraichir.
Tu peux coder ta macro plus simplement pour obtenir le résultat :
Sub cache_col()
Dim ligne As Long, col As Integer
For col = 1 To 67
For ligne = 2 To 19
If Cells(ligne, col).Value <> 0 Then Exit For
Next ligne
If ligne > 19 Then Columns(col).Hidden = True
Next col
End Sub
edit : salut Michel, j'avais oublié de rafraichir.
salut Gbinforme,
la macro n'est pas de lui...mais de bogkamba sur le post d'origine:
https://forums.commentcamarche.net/forum/affich-15334886-macro-pour-cacher-col
la macro n'est pas de lui...mais de bogkamba sur le post d'origine:
https://forums.commentcamarche.net/forum/affich-15334886-macro-pour-cacher-col
