Discussion :

[kesimon63]

Re-bonjour à tous !
Vous auriez raison de dire que j'abuse moi même je le trouve.
Hélas je débute et on m'a collé un gros truc sur le dos.
Ma macro à ce stade transfert des feuilles et des macros d'un fichier1 à un fichier2.
Dans ces feuilles transferées des fois il y a des boutons associées à des macros transferées elles aussi.
Comment faire pour sonder s'il y a des boutons dans les feuilles et modifier la macro à laquelle elles font référence (étant donné qu'elle changent de place il les perds il faut donc leur redonner le bon chemin)?
Un grand merci pour l'aide que vous m'apporterez.

[tedo01]

Re-Bonjour :-)

La collection pour accéder aux objets d'une feuille est Shapes. Les objets peuvent être de différents types, mais si tu n'as que des boutons c'est plus simple.
Par exemple, pour savoir si une feuille "Feuil1" en contient, il suffit de tester Sheets("Feuil1").Shapes.Count.

Je ne sais pas avec quelle méthode tu copie tes feuilles, mais le lien entre le bouton et la macro se fait dans le nom des procédures évènementielles.
Par exemple, avec un bouton nommé Command1, l'évènement Click déclenche la procédure Command1_Click.
Si tu arrives à redonner les mêmes noms aux boutons copiés (en modifiant Workbook("Destination").Sheets("Feuil1").Shapes(x).Name avec Workbook("Source").Sheets("Feuil1").Shapes(x).Name), le code fonctionnera correctement dans la feuille destination. Sinon, tu dois renommer les procédures selon les nouveaux noms de boutons.

Voilà, j'espère que ce n'est pas trop confus

[kesimon63]

Excellent merci beaucoup pour ta réponse.

Il me reste une petite question.
Quelqu'un connait-il la fonction pour récupérer le chemin de la macro affectée au bouton et le modifier.
Je suppose que c'est un Shapes.????, ou bien Shape.???? je n'ai pas compris la différence entre les deux, mais je n'ai pas trouvé laquelle.

J'ai tenté cela. Hélas ca ne fonctionne pas. Il ne trouve pas l'ancien chemin de la macro.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
If (ActiveSheet.Shapes.Count > 0) Then
                    'Pour chaque bouton dans le classeur xls
                    For Each bouton In ActiveSheet.Shapes
                    nom_macro = bouton.OnAction
                    MsgBox (nom_macro)
                    If (nom_macro <> "") Then
                    nom_macro = Mid(nom_macro, InStrRev(nom_macro, "!") + 1)
                    nom_macro = ThisWorkbook.FullName & "!" & nom_macro
                    bouton.OnAction = nom_macro
                    End If
                    Next bouton
End If

[tedo01]

Bonjour,

Tout dépend du type bouton
Si le bouton est de type formulaire, bouton.Type = 8 (msoFormControl) alors il s'agit d'un bouton pour lequel on attribue une macro et c'est la propriété OnAction qui contient son nom.
Si le bouton est de type ActiveX, bouton.Type = 12 (msoOLEControlObject) alors il n'y a pas de macro attribuée, la propriété OnAction est vide et c'est la procédure bouton_Click qui s'exécute toujours lorsqu'on clique dessus.


Le type Shapes désigne la collection de tous les objets sur une feuille. On connait leur nombre par Shapes.Count, et on en désigne un en particulier par Shapes(n) pour le nième objet ou Shapes("toto") pour l'objet qui s'appelle "toto".
Le type Shape désigne un seul objet. Exemple :

Code :

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

1
2
Dim objTest as Shapes
Set objTest = ActiveSheet.Shapes(2)

Voilà, bonne continuation

[kesimon63]

Ok !
Les boutons contenus dans mes feuilles sont des boutons créés via l'outil dessin rectangle auquel via clic droit a été affecté une macro.

oh oh !
Bouton type 4
Ca doit pas être très conventionnel la manière donc a été créé ce bouton
Que faire dans ce cas là ?

[tedo01]

Re-bonjour,
Je ne sais pas comment sont tes boutons, moi quand je fais la même manip, j'ai un type 1...

Est-ce que tu peux mettre ton fichier en pièce jointe ?