Microsoft 365 Msgbox + ref cellule

[JBL07]

Bonjour le Forum !

Petite question qui j'en suis sûr sera simple.. pour vous 🙂

J'ai le petit code ci-dessous, et je souhaiterais que "(alertedebut.Row, 8)", qui fait référence à une cellule contenant un horaire ( sous la forme 00:00), se mette à jour dans le msgbox en fonction de la ligne ciblée par la macro
Et bien je n'y arrive pas ....

Private Sub Workbook_Open()

Dim alertedebut As Range
For Each alertedebut In ActiveSheet.Range("alerte_debut")
Valeur = Cells(alertedebut.Row, 2)
If alertedebut = Date Then
MsgBox "La tâche " & Valeur & " est à effectuer aujourd’hui avant (alertedebut.Row, 8)", vbCritical, "Début période de tâche"
Else
End If
Next

End Sub

 

[sylvanu]

Bonjour JBL,
Tel qu'écrit " est à effectuer aujourd’hui avant (alertedebut.Row, 8)" est une chaine de caractères unique.
Peut être ceci :

MsgBox "La tâche " & Valeur & " est à effectuer aujourd’hui avant ( " & cells(alertedebut.Row, 8) & " )", vbCritical, "Début période de tâche"

 

[JBL07]

Hello Sylvanu !

Ca fonctionne( comme quoi, une petite parenthèse bien placée !.. ), merci beaucoup.. sauf le format : 12:00 s'affiche comme ça dans le msgbox :

 

[sylvanu]

Tout dépend de ce que vous avez en cells(alertedebut.Row, 8).
Si c'est une heure que vous voulez afficher alors essayez :

MsgBox "La tâche " & Valeur & " est à effectuer aujourd’hui avant ( " & CDate(cells(alertedebut.Row, 8)) & " )", vbCritical, "Début période de tâche"

Sinon jetez une oeil à : LIEN

 

[JBL07]

Oui, c'est tout à fait ça !
Y a-t-il moyen de réaliser le même affichage que dans la cellule ( 12:00), et pas 12:00:00 ?

 

[sylvanu]

Comment aurais je pu savoir ce que vous avez dans votre cellule ? 🙂

MsgBox "La tâche " & Valeur & " est à effectuer aujourd’hui avant ( " & Format(CDate(cells(alertedebut.Row, 8)), "hh:mm") & " )", vbCritical, "Début période de tâche"

 

[JBL07]

Bah je l'ai écrit dans mon message de départ 🙂 -> "(alertedebut.Row, 8)", qui fait référence à une cellule contenant un horaire ( sous la forme 00:00)"
Bon, on approche, mais le msgbox affiche 00:00 ( pour la ligne test, j'ai noté 22:00)

 

[sylvanu]

Alors donnez un fichier test, cela évitera de tourner en rond. 🙂

Bah je l'ai écrit dans mon message de départ 🙂 -> "(alertedebut.Row, 8)"

je voulais dire qu'à partir de ça on ne peux pas connaitre le format utilisé dans votre cellule.
Avec :

Sub ert()
    MsgBox Format(CDate([H2]), "hh:mm")
End Sub

J'obtiens :

 

[JBL07]

Bonjour le Forum,
Je relance cette demande car je voudrais modifier le msgbox :

Je souhaiterais ajouter une condition à son apparition, à savoir que le statut en colonne M soit différent de
"👍 - Terminée"
J'ai nommé cette plage de cellules "Liste_statuts", mais je ne sais pas comment inclure cette seconde condition dans le code

Merci de votre aide

 

[JBL07]

Je vois également que je n'ai pas validé mon avant dernier message, où je disais à Sylvanu que grâce à sa dernière suggestion, j'ai résolu mon pb de format heure 👍

 

[sylvanu]

Bonjour JBL,
Vous pouvez utiliser la fonction AND pour faire que deux conditions soient nécessaires, avec la syntaxe :

If Condition1 AND Condition2 Then

Donc tentez :

Private Sub Workbook_Open()
Dim alertefin As Range
For Each alertefin In ActiveSheet.Range("alerte_fin")
    Valeur = Cells(alertefin.Row, "B")
    Statut = Right(Cells(alertefin.Row, "M"), 8)
    If alertefin = Date And Statut <> "Terminée" Then
        MsgBox "Délai atteint, la tâche " & Valeur & " est à effectuer aujourd’hui avant " & Format(CDate(Cells(alertefin.Row, 9)), "hh:mm") & " ", vbExclamation, "Début période de tâche"
    End If
Next
End Sub

NB: Le Right sert à isoler "Terminée" sans avoir à gérer le caractère spécial qui est à gauche.

 

[JBL07]

Bonjour Sylvanu,

Impeccable, merci beaucoup
J'avais tenté le and, mais ça ne fonctionnait pas.. il me manquait le right apparemment !