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

[Uly21]

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.)

 

[gilbert_RGI]

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

bonjour
pour enregistrer un fichier avec macro il faut que l'extension soit .xlsm

 

[Uly21]

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

J'ai fait ce que vous m'avez conseillé et j'obtiens cela mtnt

 

[Uly21]

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

Je vous envoie mon fichier avec ma macro inclu dedans: Regarde la pièce jointe Excel uly.xlsm

 

[gilbert_RGI]

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

la feuil1 n'est pas nommée feuil1 mais membre d'équipage à modifier dans le code

 

[Uly21]

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

J'ai changé feuil1 par membres d'équipage et j'obtiens ceci maintenant

 

[Uly21]

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

Jean Marcel je t'ai envoyé mon fichier dans mon second message mais apparemment tu ne l'as pas vu,je te le renvoie alors Regarde la pièce jointe Excel uly.xlsm

 

[Uly21]

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

Pardon,mais qu'est ce qu'un userform ? Je suis débutant désolé

 

[Uly21]

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

Personne pour m'aider ?

 

[Uly21]

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

Oui voilà,c'est ça que j'essaie de faire !!! Comment je crée cette UserForm alors ?

 

[Uly21]

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

J'ai trouvé mes codes sur un ancien travail;

 

[Uly21]

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

Je veux bien le faire moi même si vous me dites comment procéder ?

 

[Uly21]

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

Oui je vais essayer et je vous recontacte si j'ai encore des soucis.
Merci beaucoup

 

[Uly21]

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

Merci beaucoup !