Bouton valider [Résolu]

Messages postés
162
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
3 octobre 2019
- - Dernière réponse : cs_Le Pivert
Messages postés
6278
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 octobre 2019
- 20 juin 2019 à 15:15
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
Afficher la suite 

5 réponses

Messages postés
1125
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
17 octobre 2019
138
0
Merci
Bonjour
Quel est le code actuel de ton bouton valider?
Cordialement
abdellah_tadjine
Messages postés
162
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
3 octobre 2019
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
Commenter la réponse de JCB40
Messages postés
162
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
3 octobre 2019
5
0
Merci
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
Commenter la réponse de abdellah_tadjine
Messages postés
1125
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
17 octobre 2019
138
0
Merci
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
Commenter la réponse de JCB40
Messages postés
1125
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
17 octobre 2019
138
0
Merci
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
abdellah_tadjine
Messages postés
162
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
3 octobre 2019
5 -
merci; mais mois je souhaite utiliser un seul bouton pour les deux feuil (1 et 2)
Commenter la réponse de JCB40
Messages postés
6278
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 octobre 2019
399
0
Merci
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


Commenter la réponse de cs_Le Pivert