Apparition d'une alerte lors de l'ouverture Excel

[alj]

Bonsoir,

je souhaite faire apparaître un message récapitulant une liste de marchés à reconduire lors de l'ouverture du fichier Excel.

J'ai réussi à faire quelque chose avec une MsgBox, mais cela ne me convient pas car lorsque j'ai 20 marchés à reconduire, il faut que je valide 20 fois de suite ma MsgBox. c'est long et fastidieux.

Dans l'exemple envoyé, j'ai une liste de 11 marchés. mais en réalité, j'en ai plus d'une centaine.

 

[laurent950]

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

 

[alj]

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.

 

[alj]

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.

 

[TempusFugit]

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

Bonjour


Ajoute un Select Case

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("M65536").End(xlUp).Row
     Select Case Sheets(m).Range("M" & n).Value
      Case Is = "consultation"
        Text = Text & "ATTENTION, le marché n° " & Sheets(m).Range("A" & n) & " prend fin dans 6 mois. Contacter le service concerné. " & " " & Chr(10)
      Case Is = "reconduire"
      Text = Text & "Veuillez reconduire le marché n° " & Sheets(m).Range("A" & n) & Chr(10)
      End Select
     Next n
    Next m
    MsgBox Text
    ActiveWorkbook.Save
End Sub

 

[alj]

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

Merci,

ça marche. C'est génial