Re : Macro fonctionne sur Vista , pas sur XP EXCEL 2007
Bonsoir surpris et tres heureux d' avoir quelques début de réponse.
En rapport avec les propositionsj'aimerais savoir ce que représente référence manquante ou "missing" ????
Ensuite pour ce qui est de joindre le fichier il dépasse le maximum requis, si je le simplifie , il fonctionne forcement.... je copie ici la macro concerné par le problème:
Private Sub UserForm_Initialize()
Dim cell As Range
NbLigneutilisée = 0
For Each cell In Range("B3:B" & Range("B3").End(xlDown).Row)
DateAnniversaire = CDate(Day(cell.Offset(0, 2)) & "/" & Month(cell.Offset(0, 2)) & "/" & Year(DateTime.Date))
If DateAnniversaire < DateTime.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 < DateTime.Date + 14 And DateAnniversaire - DateTime.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 < DateTime.Date + 14 And DateAnniversaire - DateTime.Date = 0 Then
Me.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
End Sub
Je précise un peu les versions utilisées: EXCEL PROFESSIONEL 2007 SP2 ( Fournis pour les enseignants ) fonctionne sur VISTA EDITION FAMILIALE PREMIUM SP 2
mais beug sur un pc avec XP.
Merci en attendant.
Salutations.