XL 2016 MSG box à l'ouverture avec condition de date

fanfan38

XLDnaute Barbatruc

• 17 Mars 2022

• #2

Bonjour
Ci joint ma solution

A+ François

 

Pièces jointes

• xxxxxx_Suivi cours.xlsm

  27.3 KB · Affichages: 12

Vote positif 0 Vote négatif

U

Utilisateur_X

XLDnaute Occasionnel

• 17 Mars 2022

• #3

Bonjour

Désolé pour la réponse tardive mais j'ai bug sur cette ligne

For i = 4 To Range("G" & Rows.Count).End(xlUp).Row

Le message d'erreur est : la méthode "ROW' de l'objet '_Global' a échoué

Je suis loin de trouver la solution !

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 17 Mars 2022

• #4

Perso j'ai pas d'erreur
est ce une version mac? (perso excel windows 2019)
l'erreur l'as tu sur le fichier que j'avais joint?
la ligne citée est une boucle qui part de la ligne 4 jusqu'à la dernière ligne de la colonne G
A essayer:

VB:

Private Sub Workbook_Open()
  Dim i As Long, nb As Integer, dl As Long
  UserForm1.ListBox1.Clear
  nb = 0
  dl = Range("G" & Rows.Count).End(xlUp).Row
  For i = 4 To dl
    If Range("L" & i) >= Date Then
       UserForm1.ListBox1.AddItem i
       UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 1) = Range("L" & i).Value
       UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 2) = Range("M" & i).Value
       nb = nb + 1
    End If
  Next
  If nb > 0 Then UserForm1.Show
End Sub

A+ François

 

Vote positif 0 Vote négatif

U

Utilisateur_X

XLDnaute Occasionnel

• 17 Mars 2022

• #5

Non j'ai pas une version MAC et l'erreur étais uniquement à l'ouverture du fichier; Quand je relancer la macro ça marchais correctement.

Je viens d'essayer le nouveau code et ça marche parfaitement à l'ouverture du fichier. Je n'ai pas de Bug

La Userform doit uniquement afficher les date échu (Date dans colonne L inférieur à la date d'aujourd'hui) : J'ai essayer de changer

If Range("L" & i) >= Date Then par If Range("L" & i) <= Date Then

Mais la userforme m'affichais plusieur ligne

Merci énormément

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 17 Mars 2022

• #6

Relie ton premier post

Le but pour le moment c'est d'arriver à avoir un message box qui s'affiche à l'ouverture du fichier si la date dans la colonne échéance est supérieur ou égale à aujourd'hui (N1)

Cliquez pour agrandir...

A+ François

 

Vote positif 0 Vote négatif

U

Utilisateur_X

XLDnaute Occasionnel

• 17 Mars 2022

• #7

Ah je suis vraiment désolé c'est inferieur . Si la date des cours est inférieur à aujourd'hui je le relance mais sinon son cours est encore valable.

Désolé encore une fois

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 17 Mars 2022

• #8

Il suffit de changer

VB:

    If Range("L" & i) < Date Then

A+ François

 

Vote positif 0 Vote négatif

U

Utilisateur_X

XLDnaute Occasionnel

• 17 Mars 2022

• #9

C'est ce que j'ai fait mais la colonne ligne sur la userform n'affiche plusieurs ligne

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 17 Mars 2022

• #10

Essaie ça

VB:

    If Range("L" & i) < Date And Range("L" & i) <> "" And Range("L" & i) <> 0 Then

A+ François

 

Vote positif 0 Vote négatif

Solution

U

Utilisateur_X

XLDnaute Occasionnel

• 17 Mars 2022

• #11

ça marche parfaitement

Merci énormément pour votre temps et votre efforts

J'essayerais dans un autre temps d'améliorer mon fichier pour pouvoir envoyer un mail à une liste de personne contenant toutes les information de la USERFORM

Merci encore une fois pour tous

 

Vote positif 0 Vote négatif