je souhaite parcourir l'ensembles des controles (et sous controles)
d'une barre de menu "barSAP" que je cr=E9 par VBA.Voici le code que
j'utilise :
For Each ctl In Application.CommandBars("barSAP").Controls
titre =3D CStr(ctl.Caption)
If ctl.Controls.Count > 0 Then
For Each sctl In ctl.Controls
MsgBox ctl.Caption
Next sctl
End If
Next ctl
la 3=E8me ligne me renvoit une erreur ...
Je ne comprends pas pourquoi ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLuc
AMHA, dans ta boucle, ctl est en fait UN control. Je ne pense pas que tu puisse utiliser la propriete .Count
Pascal16 avait soumis l'idée :
Bonjour
je souhaite parcourir l'ensembles des controles (et sous controles) d'une barre de menu "barSAP" que je cré par VBA.Voici le code que j'utilise :
For Each ctl In Application.CommandBars("barSAP").Controls titre = CStr(ctl.Caption) If ctl.Controls.Count > 0 Then For Each sctl In ctl.Controls MsgBox ctl.Caption Next sctl End If Next ctl
la 3ème ligne me renvoit une erreur ... Je ne comprends pas pourquoi ?
Qui peut m'aider ?
D'avance merci.
Pascal
-- JLuc
AMHA, dans ta boucle, ctl est en fait UN control. Je ne pense pas que
tu puisse utiliser la propriete .Count
Pascal16 avait soumis l'idée :
Bonjour
je souhaite parcourir l'ensembles des controles (et sous controles)
d'une barre de menu "barSAP" que je cré par VBA.Voici le code que
j'utilise :
For Each ctl In Application.CommandBars("barSAP").Controls
titre = CStr(ctl.Caption)
If ctl.Controls.Count > 0 Then
For Each sctl In ctl.Controls
MsgBox ctl.Caption
Next sctl
End If
Next ctl
la 3ème ligne me renvoit une erreur ...
Je ne comprends pas pourquoi ?
AMHA, dans ta boucle, ctl est en fait UN control. Je ne pense pas que tu puisse utiliser la propriete .Count
Pascal16 avait soumis l'idée :
Bonjour
je souhaite parcourir l'ensembles des controles (et sous controles) d'une barre de menu "barSAP" que je cré par VBA.Voici le code que j'utilise :
For Each ctl In Application.CommandBars("barSAP").Controls titre = CStr(ctl.Caption) If ctl.Controls.Count > 0 Then For Each sctl In ctl.Controls MsgBox ctl.Caption Next sctl End If Next ctl
la 3ème ligne me renvoit une erreur ... Je ne comprends pas pourquoi ?
Qui peut m'aider ?
D'avance merci.
Pascal
-- JLuc
Pascal16
ctl est un control mais j'utilise ctl.controls, donc j'applique count à la collection de controles de ctl ... non ?
ctl est un control mais j'utilise ctl.controls, donc j'applique count
à la collection de controles de ctl ... non ?
ctl est un control mais j'utilise ctl.controls, donc j'applique count à la collection de controles de ctl ... non ?
JLuc
Pascal16 avait soumis l'idée :
ctl est un control mais j'utilise ctl.controls, donc j'applique count à la collection de controles de ctl ... non ?
Peut etre qu'il faut tester si ton control possede d'autres controles avant. Si oui, faire ton test sur .Count 8-o Mais là, je ne peut pas t'en dire plus JLuc
-- JLuc
Pascal16 avait soumis l'idée :
ctl est un control mais j'utilise ctl.controls, donc j'applique count
à la collection de controles de ctl ... non ?
Peut etre qu'il faut tester si ton control possede d'autres controles
avant. Si oui, faire ton test sur .Count 8-o
Mais là, je ne peut pas t'en dire plus
JLuc
ctl est un control mais j'utilise ctl.controls, donc j'applique count à la collection de controles de ctl ... non ?
Peut etre qu'il faut tester si ton control possede d'autres controles avant. Si oui, faire ton test sur .Count 8-o Mais là, je ne peut pas t'en dire plus JLuc
