Création de bouton et passage d'argument [Résolu]

[deuche]

Bonjour,

Je souhaite créer des boutons sur ma pages de calculs et envoyer 2 arguments qui diffèrent selon le bouton appuyé.

Actuellement mes boutons sont des CommandButton.

[jfontaine]

Bonjour,

Je souhaite créer des boutons sur ma pages de calculs et envoyer 2 arguments qui diffèrent selon le bouton appuyé.

Qu'entends tu par arguments ?
Envoyer ou ? Vers une fonction, une autre feuille ?

Peux tu développer ton besoin

[deuche]

En gros je voudrai recevoir directement dans Hist2_Click le nom et le mois (surtout le mois car c'est lui qui varie)

Dans l'état actuel il faut que je développe autant de fonction qui appelle la fonction histo que j'ai de mois.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Hist2_Click()
 
Dim Nom As String
Dim Mois As Integer
 
Sheets("Donnée").Select
Nom = Cells(2, 2)
Mois = Cells(9, 6)
 
Call histo(Nom, Mois)
End Sub
 
Private Sub histo(n, m)
...
End Sub

[jfontaine]

Peut être comme cela
L'utilisateur tape le mois désiré, et on va chercher dans la bonne plage suivant le mois choisi

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Hist2_Click()
 
Dim Nom As String
Dim Mois As Integer
Dim InpMois as integer
 
inpMois = cint(Inputbox ("Taper un mois"))
 
select Case inpMois
   Case 1
          Nom = Sheets("Donnée").Cells(2, 2).Value
          Mois = Sheets("Donnée").Cells(9, 6).Value
   Case 2
       ...
   Case 3
       ...
end select
 
Call histo(Nom, Mois)
 
End Sub
 
Private Sub histo(n as String, m as Integer)
...
End Sub

[deuche]

Merci pour ta réponse, elle m'apporte des éléments nouveaux intérréssant.
Pour autant ce n'est pas ce que je recherche.

J'ai en fait 12 cellules dans lesquels j'ai des montants mensuel.
Lorsqu'on clique dans une cellule on appuie en fait sur un bouton qui déclenche une fonction. Cette fonction je voudrais que cela soit la même mais en modifiant juste les arguments.

[jfontaine]

ou bloques tu?

Dans le code de ta fonction? ou dans son appel dans le bouton?

[deuche]

c'est bien l'appel du bouton qui me bloque, le passage des arguments

[Ormonth]

Envoyé par deuche

Lorsqu'on clique dans une cellule on appuie en fait sur un bouton qui déclenche une fonction.

Tu as mis des boutons sur tes cellules ?

As-tu regardé du côté de l'évènementiel SelectionChange des feuilles, target and C° est fait nativement pour ça

http://silkyroad.developpez.com/VBA/...Feuille/#LII-I

cordialement,

Didier

[jfontaine]

c'est bien l'appel du bouton qui me bloque, le passage des arguments

Peux tu développer

[deuche]

Envoyé par Ormonth

Tu as mis des boutons sur tes cellules ?

Oui, des boutons invisible qui permettent de voir le résultat de la cellules.
Lorsqu'on clique sur le bouton on accède au détail de ce résultat. C'est la raison pour laquelle je ne veux pas developper autant de fonction que j'ai de bouton. (pour le moment je ne peux pas voir ton lien pour cause d'accè restreint)

[Ormonth]

Bonjour,

Code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cet évènement survient lors de la sélection d'une cellule dans la feuille.

Le paramètre Target correspond à la cellule sélectionnée.

La macro suivante vérifie que vous avez sélectionné une seule cellule puis indique si la sélection est contenue dans la plage B5:E20.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Plage As Range
 
    If Target.Cells.Count > 1 Then
        MsgBox "Sélectionnez une seule cellule."
        Exit Sub
    End If
 
 
    Set Plage = Range("B5:E20")
 
    If Application.Intersect(Target, Plage) Is Nothing Then
        MsgBox "Hors cible."
    Else
        MsgBox "Dans la cible."
    End If
End Sub

Donc à partir de l'évènement et d'un filtre sur Target pour identifier si cellules voulues...
PS : le code est placé dans le module de la feuille concernée.


cordialement,

Didier

[deuche]

Merci