Discussion :

[NEC14]

Bonjour à tous,

Je cherche à mettre en place le code suivant. Si l'utilisateur clique sur la cellule F1 d'une feuille, alors le fichier se sauvegarde et se ferme.

Je sais que cela ne doit pas être difficile à faire mais aujourd'hui je pateauge complètement.
Pouvez-vous me donner un petit coup de main s'il vous plait ?
Merci par avance

[jfontaine]

Bonjour,

Cela devrait t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Address(False, False) = "F1" Then MsgBox "je ferme"
 
End Sub

EDIT : J'aurais pu te mettre le code pour fermer en sauvegardant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Close True

[NEC14]

Bonjour à tous,

Merci à jfontaine pour son aide. Je n'ai pas eu besoin du message "Je ferme".

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$F$1" Then
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub

Bonne journée