Boîte de dialogue
Colyr
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'ai un tableau en feuille1 avec en colonne A5 le titre, en colonne B5, le sujet, en colonne C5 la date (rappel).
Est-ce possible à l'ouverture d'excel qu'un boîte de dialogue s'ouvre pour les rappels qui sont échues avec le titre et le sujet?
Merci pour votre aide.
J'ai un tableau en feuille1 avec en colonne A5 le titre, en colonne B5, le sujet, en colonne C5 la date (rappel).
Est-ce possible à l'ouverture d'excel qu'un boîte de dialogue s'ouvre pour les rappels qui sont échues avec le titre et le sujet?
Merci pour votre aide.
1 réponse
-
Bonjour,
Alors il faut placer ce code dans le "Thisworkbook" :
1- Ouvrir le classeur Excel concerné,
2- Taper ALT+F11,
3- Dans la fenêtre Visual Basic, sur la gauche vous voyez VBA-Project(nom du classeur) / Mcrosoft Excel Objets / les noms des feuilles et "This Workbook".
Double clic sur "This Workbook"
4- Dans la fenêtre centrale coller ce code :
Private Sub Workbook_Open() Dim derlig, i As Integer Dim chaine As String derlig = Range("C65536").End(xlUp).Row For i = 6 To derlig If Cells(i, 3) < Date Then chaine = chaine & Cells(i, 1) & " " & Cells(i, 2) & vbCr End If Next MsgBox chaine End Sub
5- fermer la fenêtre visual Basic
6- Enregistrer puis fermer et ouvrez à nouveau votre classeur pour tester
