Bonjour,
J'ai un pb avec une msgbox qui ne m'affiche pas toutes les données car elle est limitée en caracteres dc je voudrais la remplacer par une userform avec une scrollbar. Ce qui me permettrais de voir la liste entiere des données.
J'ai créé la userform qui se nomme UserFormAnniv, mais je ne sais pas comment l'inserer a la pace de la msgbox.
Pour resumer je clique sur un bouton pour connaitre les anniversaires des clients du mois qui suivent, et la msgbox apparait avec le nom, prenom et date de naissance des clients. Ci dessous vous trouverez le script.
Merci d'avance pour votre aide.
Private Sub CommandButton2_Click()
Dim Kmonth As Byte
Dim Jmonth As Byte
Dim Anni$
Dim r&
Dim i&
Jmonth = Month(Date)
If Month(Date) = 12 Then
Jmonth = 0
End If
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
J'ai un pb avec une msgbox qui ne m'affiche pas toutes les données car elle est limitée en caracteres dc je voudrais la remplacer par une userform avec une scrollbar. Ce qui me permettrais de voir la liste entiere des données.
J'ai créé la userform qui se nomme UserFormAnniv, mais je ne sais pas comment l'inserer a la pace de la msgbox.
Pour resumer je clique sur un bouton pour connaitre les anniversaires des clients du mois qui suivent, et la msgbox apparait avec le nom, prenom et date de naissance des clients. Ci dessous vous trouverez le script.
Merci d'avance pour votre aide.
Private Sub CommandButton2_Click()
Dim Kmonth As Byte
Dim Jmonth As Byte
Dim Anni$
Dim r&
Dim i&
Jmonth = Month(Date)
If Month(Date) = 12 Then
Jmonth = 0
End If
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