Affichage d'une image en fonction de la visibilité des colonnes

[ivan27]

Bonsoir à tous,

Dans le fichier ci-joint, j'ai la possibilité de masquer ou de faire apparaître des colonnes en cliquant sur une image.
Comment faire pour que l'image utilisée pour masquer les colonnes soit visible uniquement lorsque les colonnes sont visibles et que l'image destinée à voir les colonnes soit visible uniquement lorsque les colonnes sont masquées ?
Merci pour votre aide.

Ivan

 

[Compte Supprimé 979]

Re : Affichage d'une image en fonction de la visibilité des colonnes

Bonsoir Ivan27

Voici le code qui répondra à ta question

Sub MasquerColonne()
    With Sheets("Feuil1")
      .Range("A1:F1").EntireColumn.Hidden = True
      .Shapes("Flèche gauche 1").Visible = False
      .Shapes("Flèche droite 2").Visible = True
    End With
End Sub
Sub VoirColonne()
  With Sheets("Feuil1")
    .Range("A1:F1").EntireColumn.Hidden = False
    .Shapes("Flèche gauche 1").Visible = True
    .Shapes("Flèche droite 2").Visible = False
  End With
End Sub

A+

 

[ivan27]

Re : Affichage d'une image en fonction de la visibilité des colonnes

Merci beaucoup Bruno et bonne nuit.

Cdlt,

Ivan