Je suis novice dans le domaine des macros et je souhaiterais que quelqu'un
m'aide.
Voici mon besoin :
Je souhaite qu'une macro s'exécute lorsqu'un événement se réalise mais
uniquement dans une feuille.
Je m'explique. Je souhaite que lorsque je quitte la cellule "C3" de la
feuille nommée "identité" la fenêtre "enregistrer sous ..." s'ouvre.
Le but : Je dois fournir mon fichier à plusieurs dizaine de personne pour
qu'il le remplisse mais souhaite que lorsqu'ils ont saisie leur nom dans la
cellule "C3" de la feuille "identité" il me fasse un enregistrement.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
http://cjoint.com/?lEfVtk6PXU
Code à placer dans l'événement SélectionChange:
Dim mémo Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False If mémo = "$C$3" Then Application.Dialogs(xlDialogSaveAs).Show mémo = Null Else mémo = Target.Address End If Application.EnableEvents = True End Sub
Cordialement JB
Bonjour,
http://cjoint.com/?lEfVtk6PXU
Code à placer dans l'événement SélectionChange:
Dim mémo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If mémo = "$C$3" Then
Application.Dialogs(xlDialogSaveAs).Show
mémo = Null
Else
mémo = Target.Address
End If
Application.EnableEvents = True
End Sub
Dim mémo Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False If mémo = "$C$3" Then Application.Dialogs(xlDialogSaveAs).Show mémo = Null Else mémo = Target.Address End If Application.EnableEvents = True End Sub
Cordialement JB
JACK 43
Merçi JB pour ta macro qui correspond à ce que je recherchais. Merçi également pour ta rapidité de réponse.
Et enfin merçi pour le lien que tu as fourni. (je ne connaissais pas, ces SSSSSUPER.
C'est grâce à des personnes comme toi que le forum vivra.
A +
Bonjour,
http://cjoint.com/?lEfVtk6PXU
Code à placer dans l'événement SélectionChange:
Dim mémo Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False If mémo = "$C$3" Then Application.Dialogs(xlDialogSaveAs).Show mémo = Null Else mémo = Target.Address End If Application.EnableEvents = True End Sub
Cordialement JB
Merçi JB pour ta macro qui correspond à ce que je recherchais. Merçi
également pour ta rapidité de réponse.
Et enfin merçi pour le lien que tu as fourni. (je ne connaissais pas, ces
SSSSSUPER.
C'est grâce à des personnes comme toi que le forum vivra.
A +
Bonjour,
http://cjoint.com/?lEfVtk6PXU
Code à placer dans l'événement SélectionChange:
Dim mémo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If mémo = "$C$3" Then
Application.Dialogs(xlDialogSaveAs).Show
mémo = Null
Else
mémo = Target.Address
End If
Application.EnableEvents = True
End Sub
Merçi JB pour ta macro qui correspond à ce que je recherchais. Merçi également pour ta rapidité de réponse.
Et enfin merçi pour le lien que tu as fourni. (je ne connaissais pas, ces SSSSSUPER.
C'est grâce à des personnes comme toi que le forum vivra.
A +
Bonjour,
http://cjoint.com/?lEfVtk6PXU
Code à placer dans l'événement SélectionChange:
Dim mémo Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False If mémo = "$C$3" Then Application.Dialogs(xlDialogSaveAs).Show mémo = Null Else mémo = Target.Address End If Application.EnableEvents = True End Sub
