Autoriser macro une fois par feuille

[Citaro]

Bonjour au forum,
Sur le forum j'ai trouvé un fichier qui après modification me sert à suivre des heures de délégations. Une feuille par semaine et un recap. Je n'arrive pas à autoriser la validation une seule fois par feuille semaine, avec un message déjà valider si 2ème tentative de validation.
Merici d'avance pour votre aide

 

[Guiv]

Re : Autoriser macro une fois par feuille

Bonjour,
Essaie en rajoutant à la fin de ta macro "MiseAJour":

LanceMàJ.Enabled = False

Ça devrait désactiver ton bouton

Bonne journée,
Guiv

 

[Citaro]

Re : Autoriser macro une fois par feuille

Merci de répondre, mais le bouton doit fonctionner une fois par feuille

 

[Guiv]

Re : Autoriser macro une fois par feuille

Re,
J'ai bien compris, mais ça ne désactivera le bouton qu'une fois la macro effectuée... As-tu essayé?

 

[Guiv]

Re : Autoriser macro une fois par feuille

Autant pour moi, je viens de tester, ça ne fonctionne pas....
Guiv

 

[Citaro]

Re : Autoriser macro une fois par feuille

Il faut placer le code End Sub ?, ça ne marche pas, merci de ton aide, je file au travail

 

[kjin]

Re : Autoriser macro une fois par feuille

Bonjour,
Teste si la date en B4 est déjà présente dans la feuille Stat

Sub MiseAJour()
Dim FicheCible As String
Dim MaxiCol As Integer
Dim DerCellule As String

If MsgBox("Veuillez confirmer la mise à jour de cette grille", vbExclamation + vbOKCancel, "Confirmation") = vbCancel Then Exit Sub

FicheCible = "Stats missions"
If Application.CountIf(Sheets(FicheCible).Rows(4), Range("B4")) > 0 Then
MsgBox "MAJ déjà effectuée !"
Exit Sub
End If
'.....

A+
kjin

 

[Citaro]

Re : Autoriser macro une fois par feuille

Bonjour kjin,
Ton code marche parfaitement, merci pour ton aide

 

[Citaro]

Re : Autoriser macro une fois par feuille

Re bonjour kjin, à partir de ton code il y a-t-il une solution non plus pour interdire la validation mais faire une mise à jour en se référant à la cellule B4

Merci