bouton valider Résolu/Fermé

Question

salut,
j'ai un multipage  (page1 et page2) dans userform1 qui contient un commandbutton1(valider)
mon problème est comment utiliser ce commandbutton(valider) pour page1 et page2 en simultanement
  merci

JCB40 · Answer

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

abdellah_tadjine · Answer

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

JCB40 · Answer

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

JCB40 · Answer

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

cs_Le Pivert · Answer

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

Bouton valider

5 réponses

Discussions similaires