Lancer message box en fonction d'une valeur

Bonjour messieurs dames,

Me revoilà ici car l'aide que vous m'avez apporté la dernière fois m'a été d'une grande utilité.

Voila j'ai un tableau de suivi d'interventions et je souhaiterais que pour chaque intervention lorsque la cellule de la colonne AV prend une valeur déterminée, une msgbox (ou peu importe la méthode) s'affiche et rentre la date du jour dans la colonne AY de la ligne appropriée

je peux joindre le fichier avec le résultat demandé s'il faut.

Merci d'avance pour vos reponses

bonjour
pour moi la demande n'est pas claire
ma réponse est dans l'hypothèse suivant
en feuil1 :
en colonne A : titre de la tache
en colonne B : date d'échéance
le code suivant permet de contrôler si la date est déjà échue ou à échéance dans moins de 7 jours

Code:

---

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

Sub alerte() Dim w1 As Worksheet Dim i As Long Dim D As Date Set w1 = Worksheets("feuil1") D = Date ' ********************************* For i = 2 To w1.Range("B" & Rows.Count).End(xlUp).Row p = D - w1.Range("B" & i) If p >= 0 Then MsgBox ("La date d'échéance pour " & w1.Cells(i, "A").Value & " à déja expirée depuis le : " & w1.Cells(i, "B").Value) If p > -7 And p < 0 Then MsgBox ("La date d'échéance pour " & w1.Cells(i, "A").Value & " Prévue le : " & w1.Cells(i, "B").Value) Next i End Sub

---

Bonjour Bennasr,

deja merci pour ta reponse.
Je vais essayer de clarifier ma demande.

Colonne A : Nom du client
Colonne B : Statut de l'intervention (liste deroulante)
Colonne C : Date du lors du changement de statut

Je souhaite que lorsque dans la colonne B je choisis dans la liste déroulante "intervention terminée" qu'il apparaisse un message (par exemple "facturation a partir de ce jour?") et que si on clique oui il apparaisse dans la colonne C la date du jour. Si on clique non alors rien ne se passe.

l'objectif c'est d'avoir ca pour toute les lignes de mon tableau

Bonjour à tous,

Tu as besoin des msgbox avec le boutons oui/non. pour plus de détail va voir ce tuto

https://fring.developpez.com/vba/excel/msgbox/

comme tu veux que cela se déclenche dès le changement d'une cellule par liste déroulente il te faut une macro événementielle. Celle-ci ne se met pas dans un module mais dans la feuille ad hoc.

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range)   End Sub

---

Le target est la cellule qui change de valeur (Target.Row)la ligne (Target.column)la colonne

tu essaies puis tu reviens nous voir avec ta production

A bientôt

si j'ai compris la demande essayez avec :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim i As Long For i = 2 To Sheets("feuil1").Range("A65536").End(xlUp).Row If Cells(i, 2) = "Intervention Terminée" And Cells(i, 3) = "" Then If MsgBox("Voulez vous introduire la date de cloture à l'intervention du client : " & Cells(i, 1), vbYesNo, "Demande de confirmation") = vbYes Then Cells(i, 3) = Date End If End If Next i End Sub

---

Bonjour messieurs,

Énorme merci une fois de plus pour la réponse.
C'est ce que j'attendais comme résultat.

Cependant je ne souhaite pas appuyer sur un bouton pour déclencher l'action.
L'idéal si c'est possible est que la macro se lance automatiquement lorsque je choisi "intervention terminée" dans ma liste déroulante.

Aussi, dans le code que tu as fait BENNASR, si on clique sur non quand choisi "intervention terminée" dans la liste déroulante, rien ne s'affiche dans la colonne 3 (ce qui est le résultat attendu).
Cependant si on lance juste après la macro pour le client B, une messagebox s'affiche pour le client A puis B.

Igloobel, je te remercie pour la reponse mais je ne suis pas assez bon je pense.
Je n'ai pas compris la phrase ci dessous :

Le target est la cellule qui change de valeur (Target.Row)la ligne (Target.column)la colonne

Bonjour,

Comme je le disais dans mon post précedent pour que cela se déclenche automatiquement à une action précise il faut une macro événementielle (j'avoue je ne sais pas comment te le dire autrement)

si j'ai bien compris tu veux que lorsque tu change la valeur d'une cellule automatiquement la macro se lance ... Ai-je bien compris ?

dans le cas ou se serai oui il te faut cette macrio qui a pour paramettre TARGET. Target est la cellule qui a changé de valeur

Target.rows te donne la ligne de la cellule qui a changé de valeur
Target.column te donne la colonne de la cellule qui a changé de valeur
Target.address te donne l'adresse de la cellule qui a changé de valeur

ATTENTION toutes les macros événementielles sont obligatoirement aux niveaux des feuilles ou du classeur

En espérant avoir été plus clair

a bientôt

Bonjour

La liste de validation est autorisée en Liste avec la source, prévue le;à prévoir;terminée le
Avec un Tableau(ListObjects) nommé Bd et contenant obligatoirement une colonne titrée Intervention

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal R As Range) If Not Intersect(R, [Bd[Intervention]]) Is Nothing And R.Count = 1 Then R(1, 2) = "" If R Like "t*" Or R Like "p*" Then _ R(1, 2) = IIf(MsgBox("en préciser la date ?", 4, "") = 6, Date, "") End If End Sub

---

Dans ce cas, le Tableau n’est pas totalement exploité (ajout de lignes) à cause de la liste de validation.
De plus la date inscrite est celle du jour cependant son nombre de colonnes, sa position importent peu !

Pour profiter de tous les avantages procurés par une telle classe Excel, on peut éviter la liste de validation en passantr par un formulaire ouvert à chaque sélection de cellule concernée avec un choix de la date*.
Exemple :
dans la fenêtre des codes de la feuille où se trouve le Tableau nommé Td,

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_SelectionChange(ByVal R As Range) If Not Intersect(R, [Td[Intervention]]) Is Nothing And R.Count = 1 Then Intervention.Show End Sub et dans la fenêtre des codes du formulaire nommé Intervention Private Sub UserForm_Initialize() Me.Width = 120 Lst.List = Array("à prévoir", "prévue le", "terminée le") End Sub Private Sub Lst_Click() ….

---

plutôt qu’un long discours de description*, un fichier exemple joint.

*pour éviter le problème de portabilité des calendriers fournis selon les versions, quelques contrôles supplémentaires peuvent remplacer un des nombreux calendriers personnels proposés ici et là.
Le formulaire mis en place permet des corrections de saisies à modifier !

Bien entendu, cette dernière proposition s’inscrit dans la pensée que l’étude ne concerne qu’une petite partie du projet. Les autres pourront facilement se traiter avec les avantages procurés par le Tableau.

Bonsoir,

J'ai essayé toutes les méthodes mais la méthode numéro 1 de Ordonc me semble la meilleur pour mon fichier.
Cependant quand j'essaye de l'adapter a mon fichier une erreure 424 "objet requis" s'affiche.
Ne sachant absolument pas ce que ca veut dire je vous joint mon fichier dans l'espoir d'avoir un coup de main.

L'idée c'est que lorsque la colonne "status" change, la message box s'affiche 'voulez vous mettre a jour la date' et met la date après avec qui sur 'yes' dans la colonne "last date"

L'objectif final enfaite c'est que dans la colonne "time to invoice" s'affiche le temps de facturation qui est qui est un calcul basique : colonne "last date" - colonne "1st date". J'ai ecrit la formule dans la feuille de calcul car j'ai trouvé ca plus simple mais si vous avez d'autre idée n'hésitez pas.
La colonne "1st date" correspond au calcul : colonne "End date / Travel included" + 1.

Le fichier va être utilisé par mon équipe (tout aussi douée que moi sur excel) et donc moins il y a de formule et mieux c'est

PS : pardonnez mon retard dans la réponse déplacement professionnel oblige et j'essaye de faire cela dans mon temps libre.

Et encore merci d'avance pour le boulot énorme et l'aide que vous fournissez aux personnes désespérée comme moi

Bonjour,

Si mon post precedent n'a pas ete compris, n'hésitez pas a me demander plus d'explications

Merci d'avance pour toute l'aide que vous m'avez déjà apporté.

A bientot