Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LeSteph
Bonsoir, Comme on peut jamais savoir, le mieux c'est de prévoir, les deux cas: '*** Private Sub CommandButton1_Click() Selection.Select With CommandButton1 If .Caption = "afficher" Then .Caption = "masquer" Selection.Columns.Hidden = False Else .Caption = "afficher" Selection.Columns.Hidden = True End If End With End Sub '***** 'lSteph "Serge" <serge.g8[NO SPAM]@laposte.net> a écrit dans le message de news: 41630508$0$8215$
Bonjour,
Comment savoir si des colonnes sont Visbles ou Hidden car avec un bouton je souhaite leur faire prendre la valeur contraire avec un IF ....
Merci
Bonsoir,
Comme on peut jamais savoir,
le mieux c'est de prévoir,
les deux cas:
'***
Private Sub CommandButton1_Click()
Selection.Select
With CommandButton1
If .Caption = "afficher" Then
.Caption = "masquer"
Selection.Columns.Hidden = False
Else
.Caption = "afficher"
Selection.Columns.Hidden = True
End If
End With
End Sub
'*****
'lSteph
"Serge" <serge.g8[NO SPAM]@laposte.net> a écrit dans le message de news:
41630508$0$8215$626a14ce@news.free.fr...
Bonjour,
Comment savoir si des colonnes sont Visbles ou Hidden car avec un bouton
je
souhaite leur faire prendre la valeur contraire avec un IF ....
Bonsoir, Comme on peut jamais savoir, le mieux c'est de prévoir, les deux cas: '*** Private Sub CommandButton1_Click() Selection.Select With CommandButton1 If .Caption = "afficher" Then .Caption = "masquer" Selection.Columns.Hidden = False Else .Caption = "afficher" Selection.Columns.Hidden = True End If End With End Sub '***** 'lSteph "Serge" <serge.g8[NO SPAM]@laposte.net> a écrit dans le message de news: 41630508$0$8215$
Bonjour,
Comment savoir si des colonnes sont Visbles ou Hidden car avec un bouton je souhaite leur faire prendre la valeur contraire avec un IF ....
Merci
docm
Bonjour Serge.
Une autre façon:
Sub tt() If Columns("D:D").EntireColumn.Hidden = True Then
Columns("D:D").EntireColumn.Hidden = False
Else
Columns("D:D").EntireColumn.Hidden = True
End If End Sub
"Serge" <serge.g8[NO SPAM]@laposte.net> wrote in message news:41630508$0$8215$
Bonjour,
Comment savoir si des colonnes sont Visbles ou Hidden car avec un bouton je
souhaite leur faire prendre la valeur contraire avec un IF ....
Merci
Bonjour Serge.
Une autre façon:
Sub tt()
If Columns("D:D").EntireColumn.Hidden = True Then
Columns("D:D").EntireColumn.Hidden = False
Else
Columns("D:D").EntireColumn.Hidden = True
End If
End Sub
"Serge" <serge.g8[NO SPAM]@laposte.net> wrote in message
news:41630508$0$8215$626a14ce@news.free.fr...
Bonjour,
Comment savoir si des colonnes sont Visbles ou Hidden car avec un bouton
je
souhaite leur faire prendre la valeur contraire avec un IF ....