[Excel vba] Pb affectation macro -> objet

re :

Voilà, la chaine de commande devrait ressembler a ceci :

Sub Test()

    Dim Chaine As String
    Dim N As Long, J As Long
    
    N = 2: J = 5
    
    Chaine = "'SELECTION_TRONCON" & "(" & N & "," & J & ")'"

    MsgBox Chaine
    
End Sub
'

Le nom de la fonction, paramètres inclus doit être d'abord entre simple guillement (quote)
et le tout entre double guillemets.

C'est pourquoi le syntaxe débute ainsi :

Chaine = " ' SEL...


Lupin

Merci Lupin,
Ta solution marche bien avec l'instruction MsgBox mais quand j'essaie d'affecter la chaine à un bouton via .OnAction ça ne marche pas et j'obtiens "Impossible de trouver la macro". J'imagine qu'il faut ajouter des séries de guillemet """" quelque part mais je ne sais pas trop où?

voici le code:

Sub ...

H As Integer
W As Integer

...

.OnAction='"affectemacro" & "(" & H & "," & W &")'"

end sub

Je sais plus trop quoi faire pour y parvenir. Merci de ton aide.

re:

La macro que tu appelle [ affectemacro ] est-elle dans un autre module ?
Cette macro est-elle déclaré en [ Private ] ?

Sinon, il faudrait que tu colle l'instruction complète afin que je puisse la
faire fonctionner. J'ai découvert cette syntaxe dans mon bouquin il y a
quelques années, mais je n'utilisais qu'un seul argument.

Étant donnée qu'une fonction ou routine peuvent avoir plus d'un
argument, il est clair que cela devrait fonctionner.

Lupin

Pour faire bref voilà la logique du code.

J'ai une macro qui effectue différents calculs à partir d'une plage de données (Range) et d'un entier.

Je dois, via un bouton, pouvoir dupliquer le tableau contenant les données et ajouter pour chaque nouvelle occurence un bouton pour pouvoir executer la macro précédent (calculs)


Voici le code en question

La macro calcul

Public Sub compute_delivery(my_cells As Range, market As Integer)

Dim...

Ligne1= Ligne2+1 'formules en réalité plus compliqué en réalité
Ligne2= LIgne3*1/2

...

End Sub

La partie ajout d'un bouton (partie délicate):

Sub Add_button_w_macro(PositionCell As Range, Txt As String, Data_macro As Range)
Const H As Integer = 51
Const W As Integer = 100
'
'
With ActiveSheet.Shapes.AddShape(msoShapeActionButtonCustom, PositionCell.Left + 6, PositionCell.Top + PositionCell.Height + 6, W, H)
With .Fill
.ForeColor.RGB = RGB(37, 64, 97)
.TwoColorGradient msoGradientHorizontal, 1
End With

With .TextFrame
.MarginBottom = 5
.MarginLeft = 5
.MarginRight = 5
.MarginTop = 5
.Characters.Text = Txt
'"Click here to" & Chr(10) & "realize schedule" & Chr(10) & " -MPR- "
.Characters.Font.Color = RGB(0, 0, 0)
.Characters.Font.Bold = True
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
End With
.OnAction = "'compute_delivery " & "(" & """" & Data_macro & """" & ")'" 'marche bien avec un paramètre
.OnAction = "'compute_delivery (""Data_macro"",""1"")'" 'marche pas avec un 2eme
End With
End Sub

Salut,
je crois avoir compris en partie ton problème. J'ai fait un exemple qui pourra peut-être te servir. Il prend 2 minute à réaliser.

1) Dans une feuille excel, dessine 2 rectangles. En haut à gauche, tu aura Rectangle 1, et Rectangle 2 dans la barre de nom à coté de la barre de texte.
2) Dans ta cellule A1, inscrit 1
3) crée la macro suivante :

Sub selectionshape ()

A = Cells(1, 1).value
ActiveSheet.Shapes("Rectangle " & A).Select

End Sub

4) Execute ta macro. Si ta cellule A1 contient la valeur1, ton Rectangle 1 sera selectionné, s'il contient la valeur 2, ton rectangle 2 sera selectionne.

Il ne s'agit que d'une idée, j'espère qu'elle pourra t'aider. Tiens moi au courant

Merci, mais ça ne correspond pas vraiment à ce qu'il me faut.

Il faudrait que je puisse avoir sur le OnAction de mes shape la même macro, et que cette macro soit capable de détecter le nom de la shape qui vient d'être cliquée (avec un truc du genre ActiveShape.Name, mais ça ne marche pas) pour affecter le numéro du tronçon au paramètre N pour ensuite lancer la macro SELECTION_TRONCON(N).

En fait le principal problème, c'est que je ne connais pas la syntaxe qui peut me renvoyer le nom de la shape qui vient d'être cliquée, pour le reste ça va aller tout seul !

Merci d'avance pour vos idées.