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
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