Bonjour à tous, salut CCpapy,
J'ai du recréé mon compte suite au petit pb technique, et dc j'ai perdu mes messages précédents.
Alors CCpapy tu me filais de l'aide (très précieuse) sur la création d'un fichier client. Et là je bloquais sur le fonctionnement d'un bouton qui me servait a connaitre les anniversaires des clients 1 mois à l'avance.
Le bouton fonctionne sur la feuille "Clients" mais s'il est sur la feuille "accueil" il ne fonctionne pas. Peux tu m'aider sur ce pb ?
voici le code utilisé :
Private Sub CommandButton2_Click()
Dim Kmonth As Byte
Dim Jmonth As Byte
Dim Anni$
Dim r&
Dim i&
Jmonth = Month(Date)
With Sheets("Client")
r = .Cells(3, 1).CurrentRegion.Count
For i = 3 To r
Kmonth = Month(CDate(.Cells(i, 8)))
If Kmonth = Jmonth + 1 Then
Anni = Anni & vbCrLf & CStr(Cells(i, 1)) & " " & CStr(Cells(i, 2)) & " --> le " & CStr(Cells(i, 8))
End If
Next i
End With
MsgBox Anni, vbInformation, "Anniversaires clients le mois prochain : "
End Sub
merci bcp et bonne journée à tous
J'ai du recréé mon compte suite au petit pb technique, et dc j'ai perdu mes messages précédents.
Alors CCpapy tu me filais de l'aide (très précieuse) sur la création d'un fichier client. Et là je bloquais sur le fonctionnement d'un bouton qui me servait a connaitre les anniversaires des clients 1 mois à l'avance.
Le bouton fonctionne sur la feuille "Clients" mais s'il est sur la feuille "accueil" il ne fonctionne pas. Peux tu m'aider sur ce pb ?
voici le code utilisé :
Private Sub CommandButton2_Click()
Dim Kmonth As Byte
Dim Jmonth As Byte
Dim Anni$
Dim r&
Dim i&
Jmonth = Month(Date)
With Sheets("Client")
r = .Cells(3, 1).CurrentRegion.Count
For i = 3 To r
Kmonth = Month(CDate(.Cells(i, 8)))
If Kmonth = Jmonth + 1 Then
Anni = Anni & vbCrLf & CStr(Cells(i, 1)) & " " & CStr(Cells(i, 2)) & " --> le " & CStr(Cells(i, 8))
End If
Next i
End With
MsgBox Anni, vbInformation, "Anniversaires clients le mois prochain : "
End Sub
merci bcp et bonne journée à tous