Macro excel à perfectionner

Fermé
cedric - 16 sept. 2012 à 18:47
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 16 sept. 2012 à 22:21
Bonjour à tous,

J'ai vraiment besoin de vous pour une macro excel.

Je souhaite que toutes les valeurs "" dans la ligne 8 soient automatiquement masquées.

j'ai tenter cette macro mais elle ne fonctionne pas snif:



sub colonne

if range("h8" & hs87) ="" then
columns ("h:hs"). entire.Column.hidden = true
end if
end sub



quelqu'un pourrait il m'aider ?

un grand merci d'avance


A voir également:

2 réponses

ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
16 sept. 2012 à 20:26
bonjour

If Range("H8") = "" And Range("H9") = "" Then
  Columns("H:H").EntireColumn.Hidden = True
End If

si une seule des cellules H8 ou H7 vide suffit à cacher "H", remplcer and par or

bonne suite
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 254
16 sept. 2012 à 22:21
Bonsoir,

et si tu as de nombreuses colonnes à tester :
Sub masquerCol()
    Dim col As Long
    For col = 8 To 227
        If Cells(8, col) = "" Then Columns(col).Hidden = True
    Next col
End Sub

eric
0