Microsoft 365 MsgBox en 2 temps

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une belle et chaude journée :);)

Je n'arrive pas à faire mon MsgBox en un seul affichage.

J'ai fait ce petit code :

VB:
Sub cherche()
    Sheets("RdV_transfert").Select
    Columns("h:h").Select
    On Error Resume Next
        Selection.Find(What:="à confirmer", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Select
    ActiveCell.Offset(0, 1) = "=VALUE(LEFT(REPLACE(REPLACE(RC[-7],3,1,""/""),6,1,""/""),10))-RC[-6]"
    ActiveCell.Offset(0, 2) = "Réseau               :    " & ActiveCell.Offset(0, -3) & Chr(10) & "Agent                 :   " & " " & ActiveCell.Offset(0, -2) & Chr(10) & "Date RdV           :   " & " " & ActiveCell.Offset(0, -6) & Chr(10) & "Date Appel        :   " & " " & ActiveCell.Offset(0, -5) & Chr(10) & "Nbr jours entre :   " & " " & ActiveCell.Offset(0, 1)
    
    MsgBox ActiveCell.Offset(0, 2)
    If MsgBox("= OUI" & Chr(10) & "ou  =  NON", vbQuestion + vbYesNo) <> vbNo Then
    ActiveCell.Offset(0, 3) = "NON"
    Else
    ActiveCell.Offset(0, 3) = "OUI"
    End IF
    ActiveCell.Offset(0, 1) = ""
    ActiveCell.Offset(0, 2) = ""
    [a1].Select
End Sub

Le MsgBox s'exécute en 2 temps et je le voudrais en un seul temps :
1642767998333.png

Je n'arrive pas à trouver le bon code :mad:
Pourriez-vous m'aider ?
Je joins le fichier test et je continue à "bidouiller" Grrrrr :
Je vous remercie vivement
Amicalement,
lionel :)
 

Pièces jointes

  • forum_test.xlsm
    45 KB · Affichages: 3

Statistiques des forums

Discussions
300 889
Messages
1 988 140
Membres
210 081
dernier inscrit
&&&&&