Pour cacher une colonnes non vide car formule

Question

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

michel_m · Answer

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

michel_m · Answer

TU AURAIS PU RESTER SUR LA M^ME DISCUSSIION ET PRECISER QUE LA MACRO N'ETAIT PAS DE TOI.

gbinforme · Answer

bonjour

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.

michel_m · Answer

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

Pour cacher une colonnes non vide car formule

4 réponses

Discussions similaires

Newsletters