Comment ajouter un code IF

Salut à tous et bonjour

J’ai besoin de votre aide pour écrire un code de IF

Voilà j’ai un UserForm qui me donne les informations voulu, puis je copier sur la feuille « consultation », mais moi je veux que selon le mois afficher sur « TextBox3_date » il copier dans la feuille correspondante, par exemple le mois janvier il copier sur la feuille janvier et ainsi de suite.

Je vous remercié d’avance pour votre aide.

Bonjour,

Dans le code suivant, le nom de la feuille est déterminé avec la fonction MonthName.

Private Sub Valid_Nouv_Click()
Dim no_ligne As Integer
Dim F As String
    If Trim(Me.TextBox2_nomprenom) = "" Then
        MsgBox "Le NOM & PRENOM sont des données obligatoires"
        Exit Sub
    End If
    F = MonthName(Month(CDate(TextBox3_date)))
    With Sheets(F)
        no_ligne = .Range("D65536").End(xlUp).Row + 1
        'Insertion des valeurs sur la feuille "consultation"
        .Cells(no_ligne, 4) = CDate(TextBox3_date)
        .Cells(no_ligne, 5) = TextBox1_matricule.Value
        .Cells(no_ligne, 6) = TextBox2_nomprenom.Value
    End With
    If Valid_Nouv Then mem = 1
    ' puis effacer les TextBox
    TextBox1_matricule = "":
    TextBox2_nomprenom = ""
    Valid_Nouv = 0: mem = 0
    TextBox1_matricule.SetFocus
End Sub

A+

merci a vous

ça marche bien j vous remercie

bonne nuit