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