Bouton valider
Résolu
abdellah_tadjine
Messages postés
203
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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
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
5 réponses
-
Bonjour
Quel est le code actuel de ton bouton valider?
Cordialement -
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
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 -
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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
