ERREUR dans le code

bonjour le forum

je suis toujours en apprentissage dans excel la preuve encore une fois

voila mon soucis pour pas oubliées des anniversaires j'essaye des bouts de code pour mettre des anniversaire en mgbox cela marche si je donne en colonne A exem (a2:a) range a cela fonctionne

et cela fonctionne pas en colonne B ( b2:b)range b

avec tout mes remerciements par avance

9essaie-v1.xlsm (15.35 Ko)

Bonjour,

Tu as modifié ta colonne A en B, pas de souci. Mais tu n'as pas modifié ton offset(0,8), donc ça décale d'une colonne de trop à droite.

Private Sub Workbook_Open()
Dim Cell As Range
For Each Cell In Range("b2:b" & Range("b2").End(xlDown).Row)
DateAnniversaire = CDate(Day(Cell.Offset(0, 7)) & "/" & Month(Cell.Offset(0, 7)) & "/" & Year(Date))
If DateAnniversaire = Date Then
MsgBox "Anniversaire De : " & Cell & vbLf & DateDiff("yyyy", Cell.Offset(0, 7), Date) & " ans"
End If
Next

End Sub

Bonjour à tous,

Une proposition où le choix de la colonne pourrait varier de A à H ...

Private Sub Workbook_Open()
Dim Cell As Range

    With Worksheets("Feuil1")

        For Each Cell In .Range("b2:b" & .Range("b2").End(xlDown).Row)
            Cell.Select
            DateAnniversaire = CDate(Day(.Cells(Cell.Row, "i")) & "/" & Month(.Cells(Cell.Row, "i")) & "/" & Year(Date))
            If DateAnniversaire = Date Then
                MsgBox "Anniversaire De : " & Cell & vbLf & DateDiff("yyyy", .Cells(Cell.Row, "i"), Date) & " ans"
            End If
        Next
    End With
End Sub

ric

merci infiniment je comprend mieux mes erreurs

j'ai mis le code en applications tout est opérationnelle

je progresse grave a vous

amitié

Nickel.
N'hésite pas à clôturer tes posts.

Rechercher des sujets similaires à "erreur code"