Bouton valider
Résolu
abdellah_tadjine
Messages postés
191
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Bouton valider
- Bouton reinitialisation pc - Guide
- Diagnostic bouton photo - Accueil - Outils
- Bouton on/off comment savoir ✓ - Forum Matériel & Système
- Symbole arrêt marche - Forum Word
- Réinitialiser chromecast sans bouton - Guide
5 réponses
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
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
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
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:
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
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