Masquage de colonne sur exel
exel2003
Messages postés
62
Statut
Membre
-
Maurice -
Maurice -
bonjours j essaie de créer une macro masque colonne mais j'ai un blocage que je n'arrive à résoudre
si quel qu un est calé et pourrai me débloquer
merci d'avance
voici celle que j'ai crée
Private Sub CommandButton2_Click()
'Masque les colonnes H si la case H2 est égal à zéro
If Range("H2") = "0" Then
Columns("H").Select
Columns.EntireColumn.Hidden = True
End If
'Affiche les colonnes H si la case H2 n'est pas égal à zéro
If Range("H2") > "0" Then
Columns("H").Select
Columns.EntireColumn.Hidden = False
End If
End Sub
Bonjour,
si quel qu un est calé et pourrai me débloquer
merci d'avance
voici celle que j'ai crée
Private Sub CommandButton2_Click()
'Masque les colonnes H si la case H2 est égal à zéro
If Range("H2") = "0" Then
Columns("H").Select
Columns.EntireColumn.Hidden = True
End If
'Affiche les colonnes H si la case H2 n'est pas égal à zéro
If Range("H2") > "0" Then
Columns("H").Select
Columns.EntireColumn.Hidden = False
End If
End Sub
Bonjour,
5 réponses
-
Rectif
desoler
If Range("H2") = 0 Then
Columns("H:H").EntireColumn.Hidden = True
End If
'Affiche les colonnes H si la case H2 n'est pas égal à zéro
If Range("H2") > 0 Then
Columns("H:H").EntireColumn.Hidden = False
End If
A+ -
Private Sub CommandButton2_Click()
'Masque les colonnes H si la case H2 est égal à zéro
If Range("H2") = "0" Then
Columns("H").Select
Selection.EntireColumn.Hidden = True
End If
'Affiche les colonnes H si la case H2 n'est pas égal à zéro
If Range("H2") > "0" Then
Columns("H").Select
Selection.EntireColumn.Hidden = False
End If
probléme de macro résolu voici la bonne version -
comment étrier cette macro de la colonne H à la colonne AP merci d'avance
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour
je prefere un truc comme ca
If Range("H2") = 0 Then
Columns("H:H").EntireColumn.Hidden = True
End If
'Affiche les colonnes H si la case H2 n'est pas égal à zéro
If Range("H2") > 0 Then
Columns("H:H").EntireColumn.Hidden = False
Columns.EntireColumn.Hidden = False
End If
A+
