Bonjour,
je viens vers ce forum car j'ai un problème dont je ne connais absolument pas l'origine.
j'ai rempli un code et je ne comprends pas pourquoi excel me dit qu'il y a une erreur de compilation et qu'il attend une variable ou une fonction.
Voici le code:
Private Sub CommandButton3_Click() => c'est là ou le déboggeur me dit qu'il y a une erreur de compilation et qu'il attend soit une variable soit une fonction.
'dans la feuille Facture AER, Décaler la valleur de la cellule H28 dans la cellule H 29, et pareil avec H35 dans H36
Sheets("Facture AER").Select
Range("H28").Select
Selection.Copy
Range("H29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=9
Range("H35").Select
Application.CutCopyMode = False
Selection.Copy
Range("H36").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Inscrire dans La feuille index les nouvelles valeurs des index
Sheets("Index").Select
Range("B5").Select
Activecell.Value = UserForm1!TextBox1 * 1
Activecell.Offset(1, 0).Select
Activecell.Value = UserForm1!TextBox2 * 1
Activecell.Offset(1, 0).Select
Activecell.Value = UserForm1!TextBox3 * 1
Range("B10").Select
Activecell.Value = UserForm1!TextBox4 * 1
Activecell.Offset(1, 0).Select
Activecell.Value = UserForm1!TextBox5 * 1
Activecell.Offset(1, 0).Select
Activecell.Value = UserForm1!TextBox6 * 1
UserForm1.Hide
Si quelqu'un a une idée...
Merci beaucoup!
je viens vers ce forum car j'ai un problème dont je ne connais absolument pas l'origine.
j'ai rempli un code et je ne comprends pas pourquoi excel me dit qu'il y a une erreur de compilation et qu'il attend une variable ou une fonction.
Voici le code:
Private Sub CommandButton3_Click() => c'est là ou le déboggeur me dit qu'il y a une erreur de compilation et qu'il attend soit une variable soit une fonction.
'dans la feuille Facture AER, Décaler la valleur de la cellule H28 dans la cellule H 29, et pareil avec H35 dans H36
Sheets("Facture AER").Select
Range("H28").Select
Selection.Copy
Range("H29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=9
Range("H35").Select
Application.CutCopyMode = False
Selection.Copy
Range("H36").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Inscrire dans La feuille index les nouvelles valeurs des index
Sheets("Index").Select
Range("B5").Select
Activecell.Value = UserForm1!TextBox1 * 1
Activecell.Offset(1, 0).Select
Activecell.Value = UserForm1!TextBox2 * 1
Activecell.Offset(1, 0).Select
Activecell.Value = UserForm1!TextBox3 * 1
Range("B10").Select
Activecell.Value = UserForm1!TextBox4 * 1
Activecell.Offset(1, 0).Select
Activecell.Value = UserForm1!TextBox5 * 1
Activecell.Offset(1, 0).Select
Activecell.Value = UserForm1!TextBox6 * 1
UserForm1.Hide
Si quelqu'un a une idée...
Merci beaucoup!