Sub ou function non definie ???

[ryo]

salut j essaie de faire tourner actuellemnt une macro qu'un pote a ecrit
sous vba sur son ordi a lui.
je ne sais pas pourquoi mais ca maffiche :
sub ou function non definie ...lorsque je lance la macro..je ne sais pas s'il a fait refernece a un programme qu'il a créer a cote et que jai pas ...merci de maider . voici le code de la macro .


Private Sub CommandButton1_Click()

Sheets('Itération du procédé').Select

Application.ScreenUpdating = False

i = 1
Range('A5:AZ8').Select
Selection.ClearContents
Do
Application.Run 'ATPVBAEN.XLA!Random', Cells(5, 1), 52, 4, 2, , 0, 1
SolvSolve UserFinish:=True
SolvFinish KeepFinal:=1
Range('A58😀58').Select
Selection.Copy
chiffre = 38 + i
cha = 'J' & chiffre
Range(cha).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

If (i < Cells(37, 17)) Then
Range('A5:AZ8').Select
Selection.ClearContents
End If
i = i + 1
Loop While (i <= Cells(37, 17))

Application.ScreenUpdating = True

End Sub


apperemment y a un probleme avec solvsolve et solvfinish ...est ce des methode d'excel ou ils sont en options???

 

[Abel]

Bonjour ryo,

Peut être ne trouve t'il pas 'ATPVBAEN.XLA' dans les macro complémentaires.
As-tu vérifié ?

J'ai trouvé ça aussi (au cas où) : Lien supprimé



Abel.

 

[Dan]

Bonjour,

Je vois que tu as une macro XLA. Peut être que tes instructions après sont justement relatives à ce fichier XLA.

Quel est les noms de tes feuilles et que dois faire ta macro en fait ...

😉