macro qui s'exécute une seule fois

Bonjour les amis et les crack du forum,
Je ne connais pas grand chose en Vba, ce que je désire obtenir sur une feuille protégée ou je patauge :

Si en A4 (nom de la personne Col A) et en K4 (son prénom Col B) sont inscrits.
Avoir une macro qui demande (essai ci-dessous) par MsgBox, mais, car il y a un mais, elle ne doit se déclencher qu'une seule fois.

Ma principale difficulté est que j'aimerai que cette macro ne se lance que dès que je change la valeur de ces 2 cellules Colonne A et B et seulement pour les cases qui viennent d'être modifiées.

Je crains qu'elle ne se lance à chaque changement dans la feuille. Peut être faut-il ajouter un compteur (je ne sais pas faire, ni me passer des .Select).

En vous remerciant car je compte vraiment sur vos connaissances. Un grand merci si vous acceptez de me mettre le code entier rectifié.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Worksheet_Change(ByVal Target As Range) ...... codes qui précèdent   Sheets("feuil1").Select Private Sub Worksheet_SelectionChange(ByVal Target As Range) ......codes existants. Range("A4"].Value <> "" and Range("K4").Value <> ""   If MsgBox("Ce contact doit-il être supprimé des données ?", vbYesNo) = vbYes Then Range("AA2").Value = ("Sup") Else Range("AA2").Value = ("Maj") End If   If MsgBox("Confirmez-vous la suppression de ce contact?",vbYesNo)=vbyes Call CfnMsgBox Else Range("A4").Select End If End Sub

---

Bonjour,

En fonction de ce que vous avez écrit, il suffit de détecter dans la colonne AA s'il y a déjà eu une mise à jour "Maj", si c'est le cas alors on ne pourra plus modifier les valeurs en colonnes A et B (sauf autorisation).
Votre code modifié, même si ce n'est peut-être pas tout à fait ce que vous attendez, cela vous mettra sur la voie pour l'adapter à votre guise.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column <= 3 Then 'si la cellule sélectionnée est en colonne A ou B, sinon on sort du programme If Cells(Target.Row, "A") <> "" And Cells(Target.Row, "K") <> "" Then 'Si A et K ne sont pas vides If Cells(Target.Row, "AA") = "Maj" Then 'Si sur la même ligne en colonne AA, la Maj a déjà été faite If MsgBox("Ce contact a dèjà été modifié, voulez-vous le modifier une nouvelle fois?", vbYesNo) = vbYes Then 'Demande d'autorisation d'une nouvelle modification Application.EnableEvents = True 'Si la réponse est "oui", on accepte la modification Exit Sub Else Application.Undo 'si la réponse est "non", on restitue la donnée d'origine Application.EnableEvents = True Exit Sub End If End If If MsgBox("Ce contact doit-il être supprimé des données ?", vbYesNo) = vbYes Then If MsgBox("Confirmez-vous la suppression de ce contact?", vbYesNo) = vbYes Then Call CfnMsgBox Application.EnableEvents = True Exit Sub End If Else Cells(Target.Row, "AA") = "Maj" 'ceci empêchera toutes nouvelles modifications sans accord End If End If End If Cells(Target.Row, "A").Select Application.EnableEvents = True End Sub

---

Cdlt

Bonjour ARTURO83, content de te retrouver.
Le code ne fonctionne pas chez moi.
Ce que je souhaite, c'est que le style de macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ......codes existants. Range("A4"].Value <> "" and Range("K4").Value <> "" 'vérifie que A4 & K4 sont renseignées If MsgBox("Ce contact doit-il être supprimé des données ?", vbYesNo) = vbYes Then 'Action demandée Range("AA2").Value = ("Sup") Else Range("AA2").Value = ("Maj") End If If MsgBox("Confirmez-vous la suppression de ce contact?",vbYesNo)=vbyes 'Demande la confirmation de l'action Call CfnMsgBox Else Range("A4").Select End If End Sub

---

Que ce code ne s'exécute qu'une seule fois.
Le contenu de AA2 déclenchant une autre macro.
En te remerciant.

Citation:

---

Le code ne fonctionne pas chez moi.

---

C'est à dire, qu'est-ce qu'il ne fait pas?
Avez-vous remplacé votre procédure par celle-ci? La mienne réagit au changement de valeur, pas à la sélection de cellule. Private Sub Worksheet_Change(ByVal Target As Range) à la place de Private Sub Worksheet_SelectionChange(ByVal Target As Range)Ma procédure fonctionne lorsque une valeur dans une cellule de la colonne A ou B est modifiée, le problème est que si on change un nom (colonne A), la cellule en AA afficherait "Maj", or si on voulait changer aussi le prénom, on ne pourrait plus, d'où le fait d'avoir ajouté une question supplémentaire qui autorise la modification du prénom.
Si vous tenez à verrouiller la macro lorsque "MAj" est inscrit, il suffit de vérifier la présence de cette valeur "Maj" et de quitter si elle est présente.
Cdlt

Après plusieurs essai, la macro se lance après avoir saisi un nom ce qui ne va pas.
Elle doit se lancer SEULEMENT si le nom est saisi en A4 et le prénom en K4

D'autre part, j'ai trouvé ceci pour que la macro ne s'exécute qu'une fois, mais je ne sais ou le mettre et si c'est bon.

Code:

---

1 2 3

If cpt = 1 Then Exit Sub cpt = 1

---

Bonjour,
A la première sélection que ce soit le nom ou le prénom, on marque d'un point(.) en colonne K.
A la deuxième sélection, on marque "Maj". (Car il faut bien au moins 2 sélections pour changer un fois le nom et une fois le prénom)
Une troisième sélection est impossible.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 Or Target.Column = 11 Then If Cells(Target.Row, "AA") <> "Maj" Then If Cells(Target.Row, "AA") = "." Then Cells(Target.Row, "AA") = "Maj" If Cells(Target.Row, "AA") = "" Then Cells(Target.Row, "AA") = "." Else Cells(Target.Row, 2).Select End If End If Application.EnableEvents = True End Sub

---

Cdlt

Bonjour ARTURO83
Je n'arrive pas à comprendre (maladie lourde excuse-moi).
J'essaie de m'expliquer de nouveau
'Vérification si A4 et K4 sont renseignées

Code:

---

If Cells(Target.Row, "A4") <> "" And Cells(Target.Row, "K4") <> "" Then ‘si non Exit Sub

---

'Essai Compteur

Code:

---

1 2 3 4 5 6

Sub test() 'Pour que la macro ne se lance qu’une fois cpt = 0 If cpt = 1 Then Exit Sub End If End Sub

---

'MsgBox : Question

Code:

---

1 2 3 4 5 6 7 8

MsgBox : Question….. ? If MsgBox("Question ?", vbYesNo) = vbYes Then 'si Yes Range("AA2").Value = ("Sup") Else 'si No Range("AA2").Value = ("Maj") End If

---

'MsgBox : 'Confirmez ….
‘Faut-il remettre un compteur également ici ?

Code:

---

1 2 3 4 5 6 7 8 9

If MsgBox("Confirmez", vbYesNo) = vbYes Then Range("AA2").Value = ("Sup") Else Range("AA2").Value = ("Maj") End If ‘Il faudrait un retour au début du compteur si réponse différente je pense End Sub

---

'Contrôle : de confirmation
‘Code pour récupérer et comparer les Réponses des MsgBox

Code:

---

1 2 3 4 5

If réponse MsgBox Question = réponse MsgBox Confirmation Then macro 1 Else macro 2 End If

---

En te remerciant

Bonjour,

Pour que je puisse comprendre, il me manque certains éléments.
Comment est constitué votre feuille?
N'y a t-il qu'un seul nom en A4 et prénom en AK4 ou bien est-ce une liste de noms en colonne A et de prénoms en colonne AK, et que vous choisissez par la suite?
Pourquoi le résultat en AA2 et pas en AA4?
Lors d'une Maj, si vous voulez changez le contact, du fait que le nom et le prénom ne sont pas dans la même cellule, il faudra intervenir 2 fois si ces 2 éléments doivent être remplacés, mais 1 seule fois suffirait si vous ne devez en changer qu'un seul(le nom par exemple, le prénom étant identique, on ne le touche pas), comment détecter si la modification est complète ou pas?

Cdlt

Bonjour ARTURO
Oui, il n'y a qu'un seul Nom en A4 et Prénom en K4 saisi manuellement et une seule fois par fiche
Le résultat se porte en AA2 par obligation (conception de la fiche)
Le post 7 résume me semble-t-il ce que je souhaite (le comprends-tu ?) :
Mémoriser le clic de chaque MsgBox (ex: Oui et Oui)
Oui étant ce qui m'intéresse le plus et comparer les réponses aux MsgBox
Peut-être est-ce à ce moment qu'il faut écrire Sup ou Maj en AA2
Pour le compteur je ne sais pas s'il faut une ou deux fois
Je te remercie pour ta patience envers moi

Un essai détourné que j'ai fait semble aller dans le sens que je désire, peux-tu me dire Stp

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub test() 'TEST BON Dim reponse As String Dim choix As Integer Range("AD1:AE1").Value = "" If MsgBox("Question ?", vbYesNo) = vbYes Then Range("AD1").Value = "1" End If If MsgBox("Confirmation !", vbYesNo) = vbYes Then Range("AE1").Value = "1" End If If Range("AD1").Value = ("1") And Range("AE1").Value = ("1") Then MsgBox "réponse postive" Else MsgBox "réponse négative" End If End Sub

---

J'ai finalement trouvé

Code:

---

1 2 3 4 5 6 7

Sub test() If MsgBox("Question ?", vbYesNo) = vbYes And MsgBox("Confirmation !", vbYesNo) = vbYes Then MsgBox "réponse postive" 'lance macro Else MsgBox "réponse négative" 'lance macro End If End Sub

---