Lancer une macro lors du click dans une cellule

[wrap food]

bonjour,

j'aimerais lancer une macro ( afficher une feuille masquée ) en cliquant sur sur une cellule (C2).

Il faudrais que je puisse reproduire cette opération sur plusieurs cellule 31 en faite ..


par avance

merci

 

[mth]

Re : Lancer une macro lors du click dans une cellule

Bonjour,

Un premier essai, pour afficher "MaFeuille" en cliquant dans la plage:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C33")) Is Nothing And Target.Count = 1 Then
    Sheets("MaFeuille").Visible = True
Else
    Sheets("MaFeuille").Visible = False
End If
End Sub

Bien à toi,

mth

 

[wrap food]

Re : Lancer une macro lors du click dans une cellule

Re

Merci mth

en faite a chaque cellule correspond une feuille donc je suis pas sur que le code fonction dans ce cas là.

merci encore de votre aide

 

[mth]

Re : Lancer une macro lors du click dans une cellule

re 🙂

Effectivement dans ce cas ça ne va pas.
Il faudrait savoir où l'on peut trouver le nom de feuilles, quelle est la logique des noms des onglets, ou autre, bref, sans plus d'infos nous risquons de tourner en rond.

Peux-tu déposer un extrait de fichier allégé avec quelques onglets pour que l'on puisse comprendre ce qu'il faut faire?

@ +

mth

 

[wrap food]

Re : Lancer une macro lors du click dans une cellule

Re

merci mth de prendre du temps

je joints un fichier simplifier ou il y a deux feuilles cachées la 1 et 22.

je souhaiterais que lorsque l' oppérateur clic sur le jour 1 l'onglet apparaisse.

( petit information qui peut avoir une importance j'ai des USF qui s'ouvre automatiquement sur les feuilles )

si vous avez une idées, je suis preneur.

merci

 

[mth]

Re : Lancer une macro lors du click dans une cellule

re 🙂

un autre essai avec ce code dans la feuille "Saisie":

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Macro se déclenche si clic dans la zone C2:G8, une seule cellule non vide sélectionnée
If Not Intersect(Target, Range("C2:G8")) Is Nothing And Target.Count = 1 And Target <> "" Then
'Pour éviter erreur si l'onglet n'existe pas
On Error Resume Next
'nom de l'onglet=le jour inscrit dans la cellule, sans espace
Sheets(Trim(Day(Target.Value))).Visible = True
End If
End Sub

En option, tout dépend de l'utilisation du classeur, peut-être ajouter ceci pour masquer les onglets en revenant sur l'onglet Saisie:

Private Sub Worksheet_Activate()
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Saisie" Then Sheets(i).Visible = False
Next
End Sub

Bien à toi,

mth

 

[wrap food]

Re : Lancer une macro lors du click dans une cellule

Re

MERCI MTH

c'est super

Je vais encore abuser, mais peut on selctionner la feuille qu'elle apparait

encore merci a vous

 

[mth]

Re : Lancer une macro lors du click dans une cellule

sourire... oui, en ajoutant un Select par exemple:

Sheets(Trim(Day(Target.Value))).Visible = True
Sheets(Trim(Day(Target.Value))).Select

... mais là tu aurais pu trouver tout(e) seul(e) 🙂

@ +

mth