Insertion donnée selon personne

bonjour

j'ai besoin d'aide pour l' insertion des données selon personne

merci

bonjour

voila un code vba .mais il n'est pas satisfais .... bcp des Error??

vous pouvez corriger les erreurs svp merci

Sub Add_Personne()

Dim ws3 As Worksheet

Dim AddPersonne_1

Dim addPersonne_2

Set ws3 = Feuil3

'Set addPersonne_1 = ws.Range("C65536").End(xlUp).Offset(1, 0)

With ws3

'TPersonne.Activate

If DataEntry.cboNom.Value = Personne_1 Then

MsgBox "le nom du personne qui a participe est . Personne_1"

'ws3.Cells(2, 6).Select

Set AddPersonne_1 = ws3.Range("B65536").End(xlUp).Offset(1, 0)

'ws3.Cells(2, 6).Select

AddPersonne_1.Value = txtDate.Value

AddPersonne_1.Offset(0, 3).Value = DataEntry.txtAmount.Value

AddPersonne_1.Offset(0, 4).Value = DataEntry.cboMois.Value

'End If

ElseIf DataEntry.cboNom.Value = Personne_2 Then

MsgBox "le nom du personne qui a participe est . Personne_2"

Set addPersonne_2 = ws3.Range("F65536").End(xlUp).Offset(1, 0)

'ws3.Cells(6, 6).Select

addPersonne_2.Value = txtDate.Value

addPersonne_2.Offset(0, 7).Value = DataEntry.txtAmount.Value

addPersonne_2.Offset(0, 8).Value = DataEntry.cboMois.Value

End If

End With

End Sub

Bonjour,

ci-jointe proposition

'BONJOUR

'MERCI BIEN

Private Sub cmdAdd_Click()

Dim addme As Range

Dim addPersonne1 As Range

Dim addPersonne2 As Range

Dim addPersonne3 As Range

Dim addPersonne4 As Range

Dim addPersonne5 As Range

If Me.cboCategory.Value = "" Or Me.cboNom.Value = "" Or Me.txtAmount.Value = "" Or Me.txtComment.Value = "" Then

MsgBox "The data is incomplete. Please add neccessary information"

Exit Sub

End If

With [Summary]

Set addme = .Columns(1).EntireColumn.Find("", After:=.Cells(1, 1))

End With

addme.Value = Me.txtDate.Value

addme.Offset(, 1).Value = Me.cboNom.Value

addme.Offset(, 2).Value = Me.cboCategory.Value

addme.Offset(, 3).Value = Me.txtAmount.Value

addme.Offset(, 4).Value = Me.cboMois.Value

addme.Offset(, 5).Value = Me.txtComment.Value

If Me.cboNom.Value = "Personne_1" Then

With [Personne1]

Set addPersonne1 = .Columns(1).EntireColumn.Find("", After:=.Cells(1, 1))

End With

addPersonne1.Value = Me.txtDate.Value

addPersonne1.Offset(, 1).Value = Me.txtAmount.Value

addPersonne1.Offset(, 2).Value = Me.cboMois.Value

ElseIf Me.cboNom.Value = "Personne_2" Then

With [Personne2]

Set addPersonne2 = .Columns(1).EntireColumn.Find("", After:=.Cells(1, 1))

End With

addPersonne2.Value = Me.txtDate.Value

addPersonne2.Offset(, 1).Value = Me.txtAmount.Value

addPersonne2.Offset(, 2).Value = Me.cboMois.Value

ElseIf Me.cboNom.Value = "Personne_3" Then

With [Personne3]

Set addPersonne3 = .Columns(1).EntireColumn.Find("", After:=.Cells(1, 1))

End With

addPersonne3.Value = Me.txtDate.Value

addPersonne3.Offset(, 1).Value = Me.txtAmount.Value

addPersonne3.Offset(, 2).Value = Me.cboMois.Value

ElseIf Me.cboNom.Value = "Personne_4" Then

With [Personne4]

Set addPersonne4 = .Columns(1).EntireColumn.Find("", After:=.Cells(1, 1))

End With

addPersonne4.Value = Me.txtDate.Value

addPersonne4.Offset(, 1).Value = Me.txtAmount.Value

addPersonne4.Offset(, 2).Value = Me.cboMois.Value

ElseIf Me.cboNom.Value = "Personne_5" Then

With [Personne5]

Set addPersonne5 = .Columns(1).EntireColumn.Find("", After:=.Cells(1, 1))

End With

addPersonne5.Value = Me.txtDate.Value

addPersonne5.Offset(, 1).Value = Me.txtAmount.Value

addPersonne5.Offset(, 2).Value = Me.cboMois.Value

End If

Unload Me

UserForms.Add(Userform_name).Show

End Sub