masquage de colonne sur exel Fermé

Question

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, 



Configuration: Windows XP / Firefox 18.0

exel2003 · Answer

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

exel2003 · Answer

comment étrier cette macro de la colonne H à la colonne AP merci d'avance

exel2003 · Answer

sans devoir la répéter

Maurice · Answer

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+

Maurice · Answer

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+

Masquage de colonne sur exel

5 réponses

Discussions similaires