Condition Strict

[Cyberedj]

Bonjour, je patoge sur cette lignetree et je desespere de trouver la solution qui doit etre surement simple.
ce code permet d afficher dans une listbox; le nom et le prenom ainsi que la date anniversaire d une personne
Tout fonctionne , mais j aimerais ajouter une condition, tel que "SI " il ne trouve pas date aniversaire , il marque dans la listbox " Il n y a pas d anniversaire avant 14 jours"
Dons pour resumer si toutes les conditions sont nuls , alors afficher uniquement ce texte.
voila le code

Private Sub UserForm_Initialize()


Dim cell As Range
NbLigneUtilisée = 0
For Each cell In Range("B4:B" & Range("B4").End(xlDown).Row)

DateAnniversaire = CDate(Day(cell.Offset(0, 162)) & "/" & Month(cell.Offset(0, 162)) & "/" & Year(DateTime.Date))

If DateAnniversaire < Date + 14 And DateAnniversaire - Date > 1 Then
Me.ListBox1.AddItem
Me.ListBox1.List(NbLigneUtilisée, 0) = cell & " " & cell.Offset(0, 1) & " a son anniversaire dans " & CLng(DateAnniversaire) - CLng(Date) & " jours" & " le " & DateAnniversaire
NbLigneUtilisée = NbLigneUtilisée + 1

ElseIf DateAnniversaire < Date + 14 And DateAnniversaire - Date > 0 Then
Me.ListBox1.AddItem
Me.ListBox1.List(NbLigneUtilisée, 0) = cell & " " & cell.Offset(0, 1) & " a son anniversaire dans " & CLng(DateAnniversaire) - CLng(Date) & " jour" & " le " & DateAnniversaire
NbLigneUtilisée = NbLigneUtilisée + 1

ElseIf DateAnniversaire < Date + 14 And DateAnniversaire - Date = 0 Then
ListBox1.AddItem
Me.ListBox1.List(NbLigneUtilisée, 0) = cell & " " & cell.Offset(0, 1) & " a son annniversaire aujourd'hui" & " le " & DateAnniversaire
NbLigneUtilisée = NbLigneUtilisée + 1
End If
Next

 

[JNP]

Re : Condition Strict

Bonjour Cyberedj ,
A tester après le Next

If Me.ListBox1.Count = 0 Then Me.ListBox1.AddItem "Il n y a pas d'anniversaire avant 14 jours"

Bon dimanche

 

[Cyberedj]

Re : Condition Strict

merci pour cette réponse , mais il ne m accepte pas le "count"....

 

[ROGER2327]

Re : Condition Strict

Bonjour à tous

Ceci, peut-être :

If NbLigneUtilisée = 0 Then
  Me.ListBox1.AddItem
  Me.ListBox1.List(0, 0) = "Il n y a pas d'anniversaire avant 14 jours."
End If

ROGER2327
#4964

Jeudi 26 Gueules 138 (L'Amour absolu, deliquium, ST)
2 Ventôse An CCXIX
2011-W07-7T09:54:27Z

 

[Cyberedj]

Re : Condition Strict

Merci Roger j'ai testé et ça a l'air de fonctionner Je penseque c est résolu pour moi

Merci a tous , je poursuis mon projet.

Pas de bouton Résolu ????

 

[JNP]

Re : Condition Strict

Re ,

merci pour cette réponse , mais il ne m accepte pas le "count"....

Oui, ça doit être

Me.ListBox1.ListCount

...
Pour le résolu, il suffit de modifier le titre de la discussion en mettant le résolu ...
Bon dimanche

 

[Cyberedj]

Re : RESOLU

Post resolu merci