XL 2019 Onglet visible avec condition

Mapat · 29 Juin 2024

Bonjour

Est-il possible à partir de la valeur d'une cellule (sup à zéro), de faire apparaitre un shape qui me permettrait d'afficher un autre onglet ?
Tant que la cellule est vide, le shape est invisible. La cellule est à zéro ou plus le shape apparait
Merci de votre aide et bon après-midi

wDog66 · 29 Juin 2024

Bonjour Mapat,

Si modification de la cellule ou d'une cellule de la feuille,
mettre ce code dans "Feuil1"

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  If [E2] > 0 Then
    Shapes("Rectangle 1").Visible = msoTrue
  Else
    Shapes("Rectangle 1").Visible = msoFalse
  End If
End Sub

A+

fanch55 · 29 Juin 2024

Bonjour à tous, autre solution :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    Me.Shapes("Rectangle 1").Visible = Val(Me.[E2]) > 0
End Sub

Mapat · 29 Juin 2024

Merci à vous deux pour vos deux solutions
Ca fonctionne parfaitement
Bonne soirée à vous deux

sylvanu · 29 Juin 2024

Bonjour à tous,

Mapat à dit:
faire apparaitre un shape qui me permettrait d'afficher un autre onglet

Pourquoi ne pas faire apparaitre directement une feuille ?

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If [E2] > 0 Then
        Sheets("TEST").Visible = -1: Sheets("TEST").Select
    Else
        Sheets("TEST").Visible = 0: Sheets("Feuil1").Select
    End If
End Sub

Mapat · 29 Juin 2024

Oui bien sur, l'idée est encore meilleure car elle simplifie l'ensemble.
C'est impeccable.
Merci Sylvanu

Mapat · 29 Juin 2024

Re
J'ai un petit souci en transcrivant sur mon fichier
J'ai supprimé le Else ce qui donne
Private Sub Worksheet_Change(ByVal Target As Range)
If [E2] > 0 Then
Sheets("TEST").Visible = -1: Sheets("TEST").Select
End If
End Sub
car ça ne fonctionnait pas
Ca marche nickel de cette façon mais j'ai mal présenté ma question.
La cellule e2 est vide mais pour déclencher la macro elle peut aussi être à 0
J'ai essayé If [E2] >= 0 Then
mais ça ne marche pas
Peut_être une idée ?

fanch55 · 29 Juin 2024

sylvanu à dit:
Bonjour à tous,

Pourquoi ne pas faire apparaitre directement une feuille ?

VB:

Private Sub Worksheet_Change(ByVal Target As Range) If [E2] > 0 Then Sheets("TEST").Visible = -1: Sheets("TEST").Select Else Sheets("TEST").Visible = 0: Sheets("Feuil1").Select End If End Sub

Salut @sylvanu, attention chaque changement sur la feuille Test provoquera l'affichage de Feuil1 si E2 > 0 ...

sylvanu · 29 Juin 2024

Bonsoir Fanch,

fanch55 à dit:
attention chaque changement sur la feuille Test provoquera l'affichage de Feuil1 si E2 > 0

Non car la macro Worksheet_Change n'est effective que sur la feuil1.
Une modification de TST E2 ne la déclenchera pas.

sylvanu · 29 Juin 2024

Re,

J'ai essayé If [E2] >= 0 Then ... mais ça ne marche pas

Essayez avec : [E2] <> ""
Par contre en supprimant le else la feuille TEST ne se remasquera jamais.

fanch55 · 29 Juin 2024

sylvanu à dit:
Bonsoir Fanch,

Non car la macro Worksheet_Change n'est effective que sur la feuil1.
Une modification de TST E2 ne la déclenchera pas.

C'est exact, mais j'ai inversé le nom des feuilles lors de ma réponse, le pb reste le même ...

Mapat · 29 Juin 2024

Re

Oui, ça marche
Le fait de ne pas remasquer la feuille ne gêne pas pas car c'est la fin de la procédure de mon fichier
Merci beaucoup de votre aide
Vous, tous les contributeurs, vous êtes vraiment des passionnés !

sylvanu · 29 Juin 2024

fanch55 à dit:
C'est exact, mais j'ai inversé le nom des feuilles lors de ma réponse, le pb reste le même ...

OK. Mais quand on modifie une autre cellule, comme E2 contient une valeur >0 il va sur la feuille test.
Ce qui me semble normal. C'est tout du moins comme ça que je l'avais interprété.
A Mapat de préciser si cela lui convient ou non, sinon il faut passer par un :

VB:

 If Not Intersect(Target, [E2]) Is Nothing Then

s'il veut que la cellule E2 ne soit testé que quand on modifie E2, et rien d'autre.

Mapat · 30 Juin 2024

Bonjour

En effet, chaque changement de cellule provoque l'affichage de l'autre feuille.
J'ai modifié comme ci-dessus et tout fonctionne maintenant
Encore merci à vous 3 de vos conseils et bon dimanche

XL 2019 Onglet visible avec condition

Mapat

XLDnaute Occasionnel

Pièces jointes

wDog66

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

Mapat

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Mapat

XLDnaute Occasionnel

Mapat

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Mapat

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Mapat

XLDnaute Occasionnel

Discussions similaires