Bonsoir
Voilà déjà de quoi retrouver ta feuille en fonction du mois entré
Private Sub CommandButton1_Click()
Dim Ws As Worksheet, m As String
If TextBox1 = "" Or ComboBox1 = "" Or ComboBox2 = "" Or TextBox1 = "jj/mm" Then
MsgBox ("toutes les informations ne sont pas remplies")
Else
m = Trim(Right(TextBox1, 4))
If m = "févr" Then
m = "fevr"
ElseIf m = "août" Then
m = "aout"
ElseIf m = "déc" Then
m = "dec"
End If
m = UCase(m)
For Each Ws In ThisWorkbook.Worksheets 'récupère le nom de ta feuille
If Ws.Name Like m & "*" Then
MaFeuille = Ws.Name
MsgBox MaFeuille
Exit For
End If
Next Ws
If TextBox1 = "dd Janv" Then
TextBox1 = Sheets("JANVIER")
Else
If Sheets("JANVIER").Range("B6") = "" Then
Sheets("JANVIER").Range("B6") = TextBox1
Else
dlt = Sheets("JANVIER").Range("b143").End(xlUp).Row + 1
Sheets("JANVIER").Range("b" & dlt) = TextBox1
End If
End If
End If
End Sub
Après pour remplir, cela paraît la galère car apparemment pas toujours les mêmes colonnes selon les mois et je n'ai pas trop eu le temps d'approfondir
Janvier date col B ref pièce col C, pour les autres mois apparemment A et B
Puis plein de tableaux...où mettre les données
Serai occupée ces jours-ci , donc on verra...
Bon courage dans ce grand chantier
Bonne nuit