Private Sub UserForm_Click()
With Feuil1.[B2:C2].Offset(CDate(ComboBox2.Text) - Feuil1.[A2].Value) _
.Resize(CDate(ComboBox3.Text) - CDate(ComboBox2.Text) + 1)
.Columns(1).Value = TextBox1.Text: .Columns(2).Value = ComboBox1.Text
End With
End Sub
@mohaamri :
Pour le dire un peu plus avec les formes et comme cela est précisé dans la charte :
Il est important de respecter quelques conditions de forme sur le forum.
Les titres en majuscules sont proscrits et ils doivent être le plus explicite possible.
Ta question doit être aussi la plus explicite possible avec une mise en forme simple (pas de gras sur tout le message).
Se contenter de dire "Bonjour" (ça c'est très bien ;-) ) et demander aux membres d'ouvrir un fichier pour comprendre ta demande n'est pas suffisant et comme tu as pu le voir, certains membres le vivent très mal car c'est une pratique vu comme étant irrespectueuse des membres répondeurs du site.
Tout le monde ne le vois pas ainsi mais afin d'éviter les malaises, merci de respecter ces pratiques.
Merci d'avance de respecter nos usages et de lire la charte à nouveau si tu as des doutes :