Bonjour à tous,
Même question, mais pour un onglet nommé "Base" je souhaiterais que si dans la cellule de référence apparaît "€" ou "EUR" les colonnes D, I et N ne s'affichent plus.
Et inversement quand cette cellule co
ntient autre chose que "€" ou "EUR" les colonnes masquées s'affichent à nouveau.
- B1 est la cellule où s'affiche € ou EUR
- Le code de recherche qui donne sa valeur à la cellule est :=RECHERCHEV(A2;Devises!A2: D165;B1;FAUX)
- A:O l'ensemble des différentes colonnes.
voici le code où est l'erreur ? l'utilisation de "case" n'est-elle pas nécessaire ici ?
:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim IsoSymbole As String
If Not Intersect(Target, Range("B1")) Is Nothing Then
IsoSymbole = Range("B1").Value
Range("A:O").EntireColumn.Hidden = False
Select Case IsoSymbole
Case "€", "EUR"
Range("A:C,E:H,J:M,O:O").EntireColumn.Hidden = False
Range("D: D,I:I,N:N").EntireColumn.Hidden = True
End Select
End If
End Sub
Merci d'avance de vos réponses.Sylvain