Discussion :

[striky2]

Bonjour,

Pour une appli d'entreprise, je dois faire en sorte que mon programme parcoure tous les boutons contenus dans une feuille et en récupère le "caption". Il faut imaginer que ma feuille contient 100 boutons, et chaque fois que ma boucle détecte un bouton, elle aille faire une procédure sur une autre feuille à partir du nom de ce bouton.

Voici un exemple non fonctionnel de ce que je recherche en gros à faire

Code :

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

1
2
3
4
5
6
 
for each bouton in sheets("machin").forms
if (isbutton(bouton)) then
sheets("machin2").range("truc").value=bouton.caption
end if
next

Merci pour toute aide sur le sujet (sinon je recherche aussi l'architecture globale objet de VBA 6 pour pouvoir trouver tout seul les réponses sur les classes à mettre dans les for each.)

[SfJ5Rpw8]

tout d'abors pourrai-tu SVP "tagger" ton titre (par édition de ton message) ... en rajoutant le tag approprié [VB6] , [VBA-E] ....

n'as tu pas l'aide en ligne VBA Excel ? tu y retrouve l'architecture demandé...

[Vesta]

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub fct2()
i = 1
For Each bouton In Feuil1.OLEObjects
If (bouton.OLEType = 2) Then
    Feuil1.Cells(i, 1) = bouton.Object.Caption
    i = i + 1
End If
Next
End Sub

[striky2]

J'aurais jamais trouvé tout seul... même avec l'aide msdn dont je n'arrive toujours pas à me dépatouille d'ailleurs.

Merci bien et bonne fin de we.

Laurent