probleme macro

[loca]

bonjour, je suis en train de créer une macro dans excel. Je suis assez nul, mais j'en ai besoin très rapidement, je suis en BTS blanc la semaine prochaine. ma macro ne marche pas, j'ai inserer 2 inputbox, qui marchent, mais se répètent, sans fin. Commen dois-je la corriger,?
MERCI par avance de votre aide!!!!

Sub MACRO1()
'
Dim GP As Single
Dim GM As Single
Dim GP1 As Single
Dim GM1 As Single
Dim PourcentageGMdansGP As Single
Dim PourcentageGPdansGM As Single

PourcentageGMdansGP = 0.1
PourcentageGPdansGM = 0.2

GP1 = InputBox("veuillez saisir le montant de GP avant répartition")
GM1 = InputBox("veuillez saisir le montant de GM avant répartition")
GP = GP1 + PourcentageGMdansGP * (GM1 + PourcentageGPdansGM * GP1)
GM = GM1 + PourcentageGPdansGM * GP
GM = Worksheets("Tableau des charges indirectes").Range("F5").Value
GP = Worksheets("Tableau des charges indirectes").Range("D4").Value



' MACRO1 Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
Sheets("Tableau des charges indirectes").Select
Application.Run "APS4!MACRO1"
Application.Goto Reference:="MACRO1"
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
ChDir "C:\Documents and Settings\Administrateur\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrateur\Bureau\APS4.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Sheets("Tableau des charges indirectes").Select
End Sub

 

[Efgé]

Re : probleme macro

Bonjour loca et bienvenue sur le forum,
Je ne sait pas si cela peut vous être utile mais voici ce que je voi dans votre macro:
La "ballade" ci-dessous ne sert à rien :

Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Application.WindowState = xlMinimized
Application.WindowState = xlNormal

Si vous mettez des chemins en 'dur" dans votre macro il faut être certain qu'ils existerons sur tous les postes ou le classeur sera utiliser:

ChDir "C:\Documents and Settings\Administrateur\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrateur\Bureau\APS4.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Pour la répétition de vos inputbox, il semble que vous y retourniez sans cesse:

Application.Run "APS4!MACRO1"
Application.Goto Reference:="MACRO1"

Sans un fichier exemple( moins de 48;8 Ko), difficile d'en dire autre chose.
Bon courage 🙂
Cordialement

 

[loca]

Re : probleme macro

merci pour votre aide,
en faite tous ces truc là, c l'ordi qui les a mi tou seul :


MACRO1 Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
Sheets("Tableau des charges indirectes").Select
Application.Run "APS4!MACRO1"
Application.Goto Reference:="MACRO1"
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
ChDir "C:\Documents and Settings\Administrateur\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrateur\Bureau\APS4.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Sheets("Tableau des charges indirectes").Select
End Sub

je comprend rien, enfin g supprimer "la ballade", mais ça marche tjs pas

 

[Efgé]

Re : probleme macro

Re
Il est surprenant que "c l'ordi qui les a mi tou seul " 🙄, surtout l'utilisation d"une box...🙄

Maintenant il est nécessaire que vous explicitiez votre bresoin :
La macro est censée faire quoi ?
Vous utiliser une inputbox sans utiliser la saisie effectuée... ?
Pour l'instant je ne comprend pas... ...voir rien.
Mettez des explications dans le fichier avec une simulation du résultat attendu.
Cordialement