Problème avec fonction If then else

Bonjour,

Je suis débutant en excel VBA et je cherche à faire une fonction assez simple dans le principe.

Le fichier est assez simple étant débutant: j'ai une feuille par mois ces feuilles sont toutes identiques.

J'ai crée un userform dans lequel une macro me permet de connaitre le dernier numéros d'incident d'une colonne cependant lorsque la colonne est vide il me renvoi l'intituler de la colonne. Ce que je souhaiterais c'est que cette macro recherche dans le mois précédent le dernier numéros de la colonne incident.

Par excemple:

Lorsque je tape fevrier dans ms text box je voudrais que s'il n'y a pas d'incident déclaré il me renvoi le dernier incident ouvert de janvier.

Je vous met mon code je n'ai travaille que sur le mois de fevrier pour le moment

Private Sub CommandButton1_Click()

search1 = Sheets("janvier").Range("D65536").End(xlUp).Value
search2 = Sheets("fevrier").Range("D65536").End(xlUp).Value
search3 = Sheets("mars").Range("D65536").End(xlUp).Value
search4 = Sheets("avril").Range("D65536").End(xlUp).Value
search5 = Sheets("mai").Range("D65536").End(xlUp).Value
search6 = Sheets("juin").Range("D65536").End(xlUp).Value
search7 = Sheets("juillet").Range("D65536").End(xlUp).Value
search8 = Sheets("aout").Range("D65536").End(xlUp).Value
search9 = Sheets("septembre").Range("D65536").End(xlUp).Value
search10 = Sheets("octobre").Range("D65536").End(xlUp).Value
search11 = Sheets("novembre").Range("D65536").End(xlUp).Value
search12 = Sheets("décembre").Range("D65536").End(xlUp).Value
i = "N° d'incident"
'********************************************************************************************

If Txtmois.Value = "janvier" Then 'vérification de la valeur de la texte box Mois d'ouverture
TbderQR.Value = search1 'récupère la dernière valeur de la colonne D(N°Incident)
End If
If Txtmois.Value = "fevrier" Then
    If search2 = i Then
    TbderQR.Value = search1
Else: TbderQR.Value = search2
End If
End If
If Txtmois.Value = "mars" Then
search3 = i
TbderQR.Value = search2
End If
If Txtmois.Value = "avril" Then
search4 = i
TbderQR.Value = search3
End If
If Txtmois.Value = "mai" Then
search5 = i
TbderQR.Value = search4
End If
If Txtmois.Value = "juin" Then
search6 = i
TbderQR.Value = search5
End If
If Txtmois.Value = "juillet" Then
search7 = i
TbderQR.Value = search6
End If
If Txtmois.Value = "aout" Then
search8 = i
TbderQR.Value = search7
End If
If Txtmois.Value = "septembre" Then
search9 = i
TbderQR.Value = search8
End If
If Txtmois.Value = "octobre" Then
search10 = i
TbderQR.Value = search9
End If
If Txtmois.Value = "novembre" Then
search11 = i
TbderQR.Value = search10
End If
If Txtmois.Value = "decembre" Then
search12 = i
TbderQR.Value = search11
End If

End Sub

en espérant que vous pourrez m'aider

pour info Txtmois me permet de determiner le mois de recherche et d'incrémentation

TbderQR me donne le dernier numéros d'incident

Je viens de rajouter le fichier

la procédure est simple il faute cliquer sur déclaration incident, un userform s'ouvre en haut à droite remplir le mois et ca donne le dernier numéros d'incident

Cordialement

Bonjour

Pour une réponse pertinente, joins un fichier représentatif de ton fichier réel

Bonne journée

fichier ajouté merci

Bonjour

Un test à essayer

c'est nikel

j'ai beaucoup de mal à faire des codes de ce genre

je ne fais que comment les macros

merci beaucoup