VBA sur Excel 2016

salut mes amis

j'ai criée 3 commande mais la premiere ne fonctionne pas et je sais pas pourquoi !!!!!!

Private sub commandbutton1_click()

Dim dcc as long

Dim abc as worksheet

Set abc = worksheet(“sheet1”)

Dcc = sheets(“sheets”).range(“a” & rows.count).end(xlup).row

With abc

.cells(dcc+1,1).value=me.textbox1.text

.cells(dcc+1,2).value=me.textbox2.text

.cells(dcc+1,3).value=me.textbox3.text

.cells(dcc+1,4).value=me.textbox4.text

.cells(dcc+1,5).value=me.textbox5.text

.cells(dcc+1,6).value=me.textbox6.text

.cells(dcc+1,7).value=me.combobox1.text

.cells(dcc+1,8).value=me.combobox2.text

Me.textbox1.value=””

Me.textbox2.value=””

Me.textbox3.value=””

Me.textbox4.value=””

Me.textbox5.value=””

Me.textbox6.value=””

Me.combobox1.value=””

Me.combobox2.value=””

End with

End sub

(code to Reset Button)

Private sub commandbutton2_click()

Unload userform1

Userform1.show

End sub

(code to Exit Button)

Private sub commandbutton3_click()

Unload userform1

End sub

Bonjour,

pour commencer ?

Dim dcc as long
Dim abc as worksheet
Set abc = worksheet(“sheet1”)
Dcc = abc.range(“a” & rows.count).end(xlup).row

voici le fichier

et perdant

bonjour,

Ton fichier corrigé.

A+

bonsoir

le fichier fonctionne correctement ,et je suis très heureux de ton travail

merciiiiiiiiiiiiiiiiiii beaucoup