Bouton valider [Résolu/Fermé]

Signaler
Messages postés
188
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
17 juin 2020
-
Messages postés
6831
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 juillet 2020
-
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

5 réponses

Messages postés
1988
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
9 juillet 2020
317
Bonjour
Quel est le code actuel de ton bouton valider?
Cordialement
Messages postés
188
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
17 juin 2020
5
desolé, pas en simulatanement mais respective
c'est a dire quand j clicque sir page1 de mon multipage le veux que le bouton valider agit sur page1 et quand je clique sur page2 du multipage je veux que le meme bouton valider agit sur page2. merci pour votre aide
Messages postés
188
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
17 juin 2020
5
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
Messages postés
1988
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
9 juillet 2020
317
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
Messages postés
1988
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
9 juillet 2020
317
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
Messages postés
188
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
17 juin 2020
5
merci; mais mois je souhaite utiliser un seul bouton pour les deux feuil (1 et 2)
Messages postés
6831
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 juillet 2020
532
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