pb checkbox...textbox erreur 424

[bracq]

j fais une boucle pour afficher dans une feuille la valeur d un textbox (condition checkbox is true) mais j ai une erreur 424

If UserForm1.CheckBox9.Value = True Then
Sheets("input").Cells(44, 2).Value = UserForm.TextBox2.Value
Sheets("input").Cells(44, 3).Value = UserForm.TextBox3.Value
Application.Run _
"'energy removed.xls'!Call_Initial_5th_48kmh"
Application.Run _
"'energy removed.xls'!Makro_5th_Dummy_48kmh_Calculation"
End If

 

[@+Thierry]

Salut Bracq, Bonjour le Forum


Huumm juste en voyant ton code, niveau syntax....

=> Sheets("input").Cells(44, 2).Value = UserForm.TextBox2.Value

Ne serait-ce pas plutôt :

=> Sheets("input").Cells(44, 2).Value = UserForm1[/i].TextBox2.Value

(Dans ce cas tu n'as pas besoin de spécifier le UserForm...)
Sheets("input").Cells(44, 2). = TextBox2

Par contre si tu es en mode Non-Modal si il s'agit d'un autre UserForm ouvert, alors oui il faut préciser : UserFormX.TextBox2....

Si le problème persiste malgré cela...
Essaies de remplacer :
Application.Run "'energy removed.xls'!Makro_5th_Dummy_48kmh_Calculation"

Par :
Application.Run "'energy_removed.xls'!Makro_5th_Dummy_48kmh_Calculation"

En prenant soin (of course!!!) de renommer ton fichier "'energy removed.xls" en "energy_removed.xls"... Bien que les espaces et les caractères spéciaux soient acceptés pour nommer des fichiers ou des feuilles, en VBA c'est parfois une source de problèmes....

Bon Travail et bonne semaine à Tous et Toutes
@+Thierry

 

[@+Thierry]

Encore loupé la fin de balise pour le Bold !! (lol)

Mille excuses !!

@+Thierry