Discussion :

[bilou_12]

Bonjour,

J'ai 5 checkbox et je souhaiterai lancer différentes macros si les checkbox correspondantes sont cochées!

J'ai regardé le tuto de silkyRoad sur ce site mais j'ai quand même

l'erreur 424 objet requis

lorsque j'exécute le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Application.Run "Report.xls!Feuil4.CheckBox1_Click"
    If CheckBox1.Value = True Then
        Application.Run "Report.xls!ImportData.ImportData"
    End If
 
    Application.Run "Report.xls!Feuil4.CheckBox2_Click"
    If CheckBox2.Caption = True Then
        Application.Run "Report.xls!GetNumber"
        Application.Run "Report.xls!GetDate"
    End If

A noter que j'ai aussi dans la feuille où se trouvent les différentes checkbox les codes suivants qui je pense est inutile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub CheckBox1_Click()
 
    Select Case CheckBox1.Value
        Case True: CheckBox1.Value = "Vrai"
        Case False: CheckBox1.Value = "Faux"
    End Select
 
End Sub

Quelqu'un pourrait me filer un coup de main?

Merci d'avance!

[jfontaine]

Bonjour,

La ligne ci dessous permet d'exécuter le code de l'évenement Click de la checkbox1. il ne faut pas supprimer la procèdure de la feuille "Feuil4"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Run "Report.xls!Feuil4.CheckBox1_Click"

Par contre, quelle ligne génère l'erreur?
As tu dans ton code les procèdures suivantes => GetNumber et GetDate ?

[bilou_12]

C'est bon!

En fait j'ai modifié mon code de la manière suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    If Feuil4.CheckBoxImport.Value = True Then
        Application.Run "Report.xls!ImportData.ImportData"
    End If
 
    If Feuil4.CheckBoxTraitement.Value = True Then
        Application.Run "Report.xls!GetNumber"
        Application.Run "Report.xls!GetDate"
    End If

car je cherchais savoir si la checkbox était cochée ou non! Pas à la renommer, ce à quoi sert la fonction caption!

[ZebreLoup]

Juste par curiosité, pourquoi ces "Application.Run" partout ? Ca ne marchait pas en faisant tout simplement ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If Feuil4.CheckBoxImport.Value = True Then
    ImportData
End If
 
If Feuil4.CheckBoxTraitement.Value = True Then
    GetNumber
    GetDate
End If