Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Création d'un bouton me permettant de rajouter une ligne à ma feuille via une macro.

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Uly21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
U

Uly21

Guest
Voici ma feuille : Regarde la pièce jointe Excel uly.xlsx
Et voici mon code :

Sub btnAjouter_Mbr()

Dim lastRow As Integer

Set Worksheet = Sheets("Feuil1")

lastRow = wrkSheet.Cells(wrkSheet.Rows.Count, "A").End(xlUp).Row

wrkSheet.Cells(lastRow, 1).Value = txtNom.Value
wrkSheet.Cells(lastRow, 2).Value = txtPréom.Value
wrkSheet.Cells(lastRow, 3).Value = txtAdresse.Value
wrkSheet.Cells(lastRow, 4).Value = txtGsm.Value
wrkSheet.Cells(lastRow, 5).Value = txtPositionHiérarchique.Value

If cbxMarié.Value = "VRAI" Then
wrkSheet.Cells(lastRow, 6).Value = True
Else
wrrSheet.Cells(lastRow, 6).Value = False

wkrSheet.Cells(lastRow, 7).Value = txtNumeroduMembredEquipage.Value
wkrSheet.Cells(lastRow, 8).Value = txtN°Equipage.Value

End If

MsgBox ("Membres d'Equipage" & txtNom.Value & " a été ajouté")



txtNom.Value = ""
txtPréom.Value = ""
txtAdresse.Value = ""
txtGsm.Value = ""
txtPositionHiérarchique.Value = ""
cbxMarié.Value = "VRAI"
txtNumeroduMembredEquipage.Value = ""
txtN°Equipage.Value = ""


End Sub



(Ma macro n'est pas présente dans mon fichier car je n'arrive pas à l'enregistrer.)
 

Pièces jointes

Trier par date Trier par votes
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
Microsoft 365 Problème, ma macro change la plage de cellule dans une autre feuille
Réponses
6
Affichages
2 K
akira21
A
Y
  • Question Question
XL 2016 copier une colonne de données dans tous les fichiers d'un répertoire et les coller les unes à la suite des autres dans une feuille excell
Réponses
4
Affichages
2 K
job75
M
  • Question Question
Copie de donnees d'un ClasseurA vers un Classeur B par une macro dans Classeur C
Réponses
13
Affichages
2 K
MartiFab
M
L
  • Question Question
je voudrais faire une copie exacte de ma feuille
Réponses
0
Affichages
973
L.Patrick
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…