Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

affichage a l'ouverture workbook open

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

marleauc

XLDnaute Occasionnel
Bonjour

voici ma formule que j'utilise présentement qui fonctionne très bien, par contre j'Ai rajouter une colonne dans M dans laquelle j'inscrit une date butoir , j'aimerais ainsi à l'ouverture du workbook qu'il y est un autre fenêtre avertissant qui se situerait dans le coin droit en haut, donc comment dois-je m'y prendre pour ajouter un bout de code
voici ma formule actuelle
Private Sub Workbook_Open()
Dim MaCell As Range, Mess As String
Dim MaCell1 As Range, Mess As String

For Each MaCell In ThisWorkbook.Worksheets("Base").Range("D2😀" & Sheets("Base").Range("D65536").End(xlUp).Row).Cells
If MaCell.Value < Now Then Mess = Mess + (MaCell.Offset(0, -3).Value & " - Date d'échéance le : " & MaCell.Value & vbNewLine)
Next MaCell


If Mess = "" Then Exit Sub
Mess = "Permis EXPIRÉ :" & vbNewLine + Mess
MsgBox Mess
For Each MaCell1 In ThisWorkbook.Worksheets("Base").Range("M2:M" & Sheets("Base").Range("M65536").End(xlUp).Row).Cells
If MaCell1.Value < Now Then Mess = Mess + (MaCell.Offset(0, -3).Value & " - Date d'échéance le : " & MaCell.Value & vbNewLine)
Next MaCell1
If Mess = "" Then Exit Sub
Mess = "Filtrage EXPIRÉ :" & vbNewLine + Mess
MsgBox Mess


End Sub
 
Re : affichage a l'ouverture workbook open

Rebonjour marleauc,

Si je comprends bien, votre souci c'est "en haut à droite".

Alors un USF dans le fichier joint et cette macro dans ThisWorkbook :

Code:
Private Sub Workbook_Open()
'à mettre en fin de cette macro
With UserForm1
  .Left = Application.Width - .Width
  .Show
End With
End Sub
La propriété StartUpPosition de l'USF est sur Manual.

A+
 

Pièces jointes

Re : affichage a l'ouverture workbook open

Re,

Une ligne de plus par précaution :

Code:
Private Sub Workbook_Open()
'à mettre en fin de cette macro
Application.WindowState = xlMaximized
With UserForm1
  .Left = Application.Width - .Width
  .Show
End With
End Sub
Fichier (2).

Edit : bises chère C@thy, merci du compliment 🙂

A+
 

Pièces jointes

Dernière édition:
Re : affichage a l'ouverture workbook open

voici ma formule utilisé pouvez-vous m'indiquer mon erreur..le tout fonctionne mais il affiche tout les noms au lieu du résultat de la cellule M qui correspond a> now
Private Sub CommandButton1_Click()
Dim MaCell As Range, Mess As String
For Each MaCell In ThisWorkbook.Worksheets("Base").Range("M2:M" & Sheets("Base").Range("M65536").End(xlUp).Row).Cells
If MaCell.Value < Now Then Mess = Mess + (MaCell.Offset(0, -12).Value & " - Date d'échéance le : " & MaCell.Value & vbNewLine)
Next MaCell


If Mess = "" Then Exit Sub
Mess = "Permis EXPIRÉ :" & vbNewLine + Mess
MsgBox Mess

FormBase.Show
End Sub
 
Re : affichage a l'ouverture workbook open

Bonjour marleauc,

Les cellules vides en colonne M sont forcément < Now...

Il faut donc les exclure :

Code:
If IsDate(MaCell) Then If MaCell < Now Then _
  Mess = Mess + (MaCell.Offset(0, -12).Value & " -  Date d'échéance le : " & MaCell.Value & vbNewLine)
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
454
Réponses
5
Affichages
910
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
452
Réponses
6
Affichages
737
Réponses
3
Affichages
879
Réponses
12
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…