Bouton valider
Résolu/Fermé
abdellah_tadjine
Messages postés
191
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
5 janvier 2022
-
11 juin 2019 à 12:12
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 20 juin 2019 à 15:15
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 20 juin 2019 à 15:15
A voir également:
- Bouton valider
- Réinitialiser chromecast sans bouton - Guide
- Hard reset samsung sans bouton home - Guide
- Bug bouton volume xiaomi - Forum Xiaomi
- Bouton d'alimentation - Guide
- Bouton home pc ✓ - Forum PC portable
5 réponses
JCB40
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
14 avril 2024
461
11 juin 2019 à 13:31
11 juin 2019 à 13:31
Bonjour
Quel est le code actuel de ton bouton valider?
Cordialement
Quel est le code actuel de ton bouton valider?
Cordialement
abdellah_tadjine
Messages postés
191
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
5 janvier 2022
6
11 juin 2019 à 21:06
11 juin 2019 à 21:06
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
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
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
14 avril 2024
461
12 juin 2019 à 14:17
12 juin 2019 à 14:17
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
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
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
14 avril 2024
461
12 juin 2019 à 17:28
12 juin 2019 à 17:28
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
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
191
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
5 janvier 2022
6
20 juin 2019 à 12:35
20 juin 2019 à 12:35
merci; mais mois je souhaite utiliser un seul bouton pour les deux feuil (1 et 2)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié le 20 juin 2019 à 15:16
Modifié le 20 juin 2019 à 15:16
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:
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
12 juin 2019 à 17:21
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