XL 2019 Aide à la modification du code vba

[Dadi147]

Bonjour . J'ai essayé de générer ce code, mais malheureusement je n'obtiens pas toujours de message d'erreur

Private Sub ComboBox5_change()
If Me.ComboBox5 = "Facture de Vente" Then
          Me.TextBox1.Value = Application.WorksheetFunction.Max(Sheets(2).Range("A4:A5000")) + 1
          End If
            If Me.ComboBox5 = "Facture de Achats" Then
          Me.TextBox1.Value = Application.WorksheetFunction.Max(Sheets(4).Range("A4:A5000")) + 1
          
             End If
             If Me.ComboBox5 = "Retour Achats" Then
          Me.TextBox1.Value = Application.WorksheetFunction.Max(Sheet1(1).Range("A4:A5000")) + 1
             End If
      If Me.ComboBox5 = "Retour Vente" Then
          Me.TextBox1.Value = Application.WorksheetFunction.Max(Sheets(5).Range("A4:A5000")) + 1
          End If
            

End Sub

 

[Staple1600]

Bonjour Dadi147, le fil

Une petite coquille à corriger, peut-être ?

Me.TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A4:A5000")) + 1

 

[Dadi147]

0

Bonjour Dadi147, le fil

Une petite coquille à corriger, peut-être ?

Me.TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A4:A5000")) + 1

Merci, je suis tellement fatigué que vous ne pouvez pas imaginer