Apparition d'une alerte lors de l'ouverture Excel

Re : Apparition d'une alerte lors de l'ouverture Excel

Bonsoir alj,

Il est un peut tard ce soir mais une idée peut être :

Code :

Private Sub Workbook_Open()
Dim m As Integer
Dim n As Integer
For m = 1 To Sheets.Count
For n = 1 To Sheets(m).Range("O65536").End(xlUp).Row
If Sheets(m).Range("O" & n).Value = "reconduire" Then
Text = Text & "Vous devez reconduire le marché n° " & Sheets(m).Range("A" & n) & " " & Chr(10)
End If
Next n
Next m
MsgBox Text
ActiveWorkbook.Save

l'idéale serait une liste sur excel tous simplement mieux qu'un msgbox

Au plaisir de vous aider si vous avez des questions

Laurent

Re : Apparition d'une alerte lors de l'ouverture Excel

Bonjour,

C'est tout a fait ce que je cherchais.

Merci beaucoup pour cette aide.

Re : Apparition d'une alerte lors de l'ouverture Excel

Bonjour,

Je souhaite rendre mon tableau plus performant.

Lors de l'ouverture d'Excel, actuellement la MsgBox s'affiche en fonction du résultat de la colonne M. C'est une très bonne chose.
Maintenant, je voudrais que le message qui apparaît soit différent suivant le texte indiqué dans cette même colonne.
Ex : Texte "consultation" message "ATTENTION, le marché n° 106010 prend fin dans 6 mois. Contacter le service concerné."
Text "reconduction" message "Veuillez reconduire le marché n° 106010."

En vous remerciant pour votre aide.

Re : Apparition d'une alerte lors de l'ouverture Excel

Bonjour


Ajoute un Select Case

Re : Apparition d'une alerte lors de l'ouverture Excel

Merci,

ça marche. C'est génial