Bouton valider

Bonjour,

voir ceci:

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-J

mettre un Label1 sur page 1 et un Label2 sur page2 et ce code dans le CommandButton1:

Option Explicit
Private Sub CommandButton1_Click()
If Me.MultiPage1.SelectedItem.Index = 0 Then
Label1.Caption = "Page1"
MsgBox "La page 1 est active"
Else
Label2.Caption = "Page2"
MsgBox "La page 2 est active"
End If
End Sub

Pour le bouton1
Private Sub CommandButton1_Click()
Sheets("Feuil1").Activate 'mettre le bon nom de la feuille
Dim derligne As Integer
If MsgBox("Confirmez-vous l'Ajout des Données?", vbYesNo, "confirmation") = vbYes Then

derligne = Sheets("liste").Range("A254256").End(xlUp).Row + 1

Cells(derligne, 1) = TextBox1.Value
Cells(derligne, 2) = TextBox2.Value
End If
End Sub

et pour le bouton2 tu remplaces Sheets("Feuil1").Activate

par Sheets("Feuil2").Activate 'mettre le bon nom de la feuille

Bonjour
Code à tester

Private Sub CommandButton1_Click()
Sheets("Feuil1").Activate 'mettre le bon nom de la feuille
Sheets("Feuil2").Activate 'mettre le bon nom de la feuille
Dim derligne As Integer
If MsgBox("Confirmez-vous l'Ajout des Données?", vbYesNo, "confirmation") = vbYes Then

derligne = Sheets("liste").Range("A254256").End(xlUp).Row + 1

Cells(derligne, 1) = TextBox1.Value
Cells(derligne, 2) = TextBox2.Value
End If
End Sub

Private Sub CommandButton1_Click()

Dim derligne As Integer
If MsgBox("Confirmez-vous l'Ajout des Données?", vbYesNo, "confirmation") = vbYes Then

derligne = Sheets("liste").Range("A254256").End(xlUp).Row + 1

Cells(derligne, 1) = TextBox1.Value
Cells(derligne, 2) = TextBox2.Value
End If
End Sub

Bonjour
Quel est le code actuel de ton bouton valider?
Cordialement