bonjour
J'ai placé ce code qui me permet de renvoyer des infos à l'ouverture d'un fichier:
MsgBox "Opérations à réaliser >>> Zone " & IIf(Sheets("Saisie CM").Range("L3") >= 7, Sheets("Saisie CM").Range("J3").Value & ", ", "") & IIf(Sheets("Saisie CM").Range("L4") >= 7, Sheets("Saisie CM").Range("J4").Value & ", ", "") & IIf(Sheets("Saisie CM").Range("L5") >= 7, Sheets("Saisie CM").Range("J5").Value & ", ", "") & IIf(Sheets("Saisie CM").Range("L6") >= 7, Sheets("Saisie CM").Range("J6").Value & ", ", "") & IIf(Sheets("Saisie CM").Range("L7") >= 7, Sheets("Saisie CM").Range("J7").Value & ", ", ""), vbOKOnly + vbInformation, "Info graissage"
il peut y avoir entre 1 et 5 renvois de données.
J'aurais désiré savoir comment éviter la virgule sur le dernier renvoi >> ( 1,3,5, ) et avoir un point à la place. Du genre >>>> Opérations à réaliser >>>>> Zone 1, 3, 5.
Encor mieux, est-il possible d'obtenir? >>>> 1,3 et 5.
Merci à l'avance
J'ai placé ce code qui me permet de renvoyer des infos à l'ouverture d'un fichier:
MsgBox "Opérations à réaliser >>> Zone " & IIf(Sheets("Saisie CM").Range("L3") >= 7, Sheets("Saisie CM").Range("J3").Value & ", ", "") & IIf(Sheets("Saisie CM").Range("L4") >= 7, Sheets("Saisie CM").Range("J4").Value & ", ", "") & IIf(Sheets("Saisie CM").Range("L5") >= 7, Sheets("Saisie CM").Range("J5").Value & ", ", "") & IIf(Sheets("Saisie CM").Range("L6") >= 7, Sheets("Saisie CM").Range("J6").Value & ", ", "") & IIf(Sheets("Saisie CM").Range("L7") >= 7, Sheets("Saisie CM").Range("J7").Value & ", ", ""), vbOKOnly + vbInformation, "Info graissage"
il peut y avoir entre 1 et 5 renvois de données.
J'aurais désiré savoir comment éviter la virgule sur le dernier renvoi >> ( 1,3,5, ) et avoir un point à la place. Du genre >>>> Opérations à réaliser >>>>> Zone 1, 3, 5.
Encor mieux, est-il possible d'obtenir? >>>> 1,3 et 5.
Merci à l'avance
Dernière édition: