Discussion :

[Quiro]

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

[BENNASR]

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 :

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

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

[Quiro]

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

[Igloobel]

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 :

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

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

[BENNASR]

si j'ai compris la demande essayez avec :

Code :

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

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

[Quiro]

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