Discussion :

[SpaceFrog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim butTop, butLeft, Bouton
 
For i = 1 To 50 Step 25
Range("D" & i).Select
butTop = Range("D" & i).Top
butTop = Range("D" & i).Left
butHeight = Range("D" & i).Height
butWidth = Range("D" & i).Width
 
 
 
 
  Bouton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=butTop, Top:=butTop, Width:=butWidth, Height _
        :=butHeight * 2).Select
 
 Next

il me colle tous les boutons au même endroit ...
le top retourne la position par rapport au haut de l'écran ?
commant lui faire décaller les boutons ... ???

[bidou]

en évitant de mettre la valeur Left dans la variable ButTop puis en évitant de passer deux fois le même paramètre

[SpaceFrog]

WArf
la méga honte ...

un de mes premiers posts entant que modérateur ... et tout ça pour me vautrer lamentablement ...

à ma décharge 3 ans sans pratiquer VB mais bon là ça ne relève même pas de VB ....


au passage coucou bidou ...
ça faisait un bail ...

[bidou]

yo ma grenouille. Content aussi de te revoir

[SpaceFrog]

bon cette bourde monumentale étant oubliée ...

comment attribuer au click de chacun de ses bouton un appel à une fonction avec paramètre ?


accessoirement comment modifier le caption du bouton ?

[bidou]

Pour attribuer des évènements il va falloir jouer avec WithEvents, pour changer le caption

Code :

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

bouton.Object.Caption = "toto"

doit le faire

[SpaceFrog]

non il n'en veut pas ...
du

Code :

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

bouton .object.caption

...

[bidou]

quelle version d'excel ???

[SfJ5Rpw8]

enleve le Select et rajoute un Set ...:

Code :

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

1
2
3
4
5
 
  set Bouton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=butTop, Top:=butTop, Width:=butWidth, Height _
        :=butHeight * 2)
Bouton.Object.Caption = "D" & i

[ogenki]

je reprend se post que spacefrog a crée pour m'aidé pour vous dire que le

Code :

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

1
2
3
4
5
 
Set Bouton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=butLeft, Top:=butTop, Width:=butWidth, Height _
        :=butHeight * 2)
        Bouton.Object.Caption = "nom du bouton"

marche tres bien

sinon pas d'information sur

comment attribuer au click de chacun de ses bouton un appel à une fonction avec paramètre ?

merci a vous

[ouskel'n'or]

Comme je ne comprends pas le problème, je vais répondre

Code :

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

1
2
3
4
5
6
7
8
Private Sub BoutonMessage_Click()
    r = AfficherMessage("Quelle est la question ?")
    msgbox "La réponse est " & r
End Sub
 
Private Function AfficherMessage(Msg)
    AfficherMessage = inputbox(msg,"")
End Function

Tu dis

A+

[ogenki]

j'ai une fonction dans un module et je veu savoir commen y faire appel par un clic sur se fameu bouton...

[ogenki]

je suis pas tres bon en vba mais je veu pas un evenement mais pouvoir
associer sa

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function findWorddocs()
Private Sub Workbook_Open()
Dim fs, f, f1, fc, t, docfiles, Nomdoc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\Documents and Settings\avaysse\Mes documents\")
Set fc = f.Files
For Each f1 In fc
 Nomdoc = f1.Name
 tabfiles = Split(Nomdoc, ".")
    If (docfiles(UBound(docfiles)) = "doc") Then
        t = t & f1.Name & ";"
    End If
Next

a mon bouton ( se code est dans un module alors que mon bouton est dans "thisworkbook")

[ouskel'n'or]

A première vue, dans findWorddocs tu n'as pas de paramètre
A deuxième vue, findWorddocs ne retourne rien et pour une fonction, c'est pas bien.
Enfin, pour qu'un bouton placé dans une feuille de calcul (si c'est bien ça), le code de ton bouton doit être dans la feuille de code de ta FEUILLE de calcul.

Tu dis si c'est ce que tu veux

A+

[ouskel'n'or]

Code :

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

1
2
3
Private Sub CommandButton1_Click()
Application.Run "'ClasseurContenantLaMacro.xls'!findWorddocs "
End Sub

En supposant que findWorddocs soit une SUB, non une fonction
Tu dis

Edit
Pour accéder à la feuille de code, tu te mets en mode Création dans la feuille, Deux clics sur le bouton et tu as ton Sub CommandButton1_Click()

[ogenki]

A première vue, dans findWorddocs tu n'as pas de paramètre

il va avoir un parametre lol

A deuxième vue, findWorddocs ne retourne rien et pour une fonction, c'est pas bien.

il renvera quelquechose..je n'est pas fini d'ecrire ma fonction mais cela empeche t'il de onfiguré mon bouton pour qu'il l'apelle ?

[ouskel'n'or]

mais cela empeche t'il de onfiguré mon bouton pour qu'il l'apelle ?

Non ! Si tu fais bien tout ce que tu as dit...

A+

PS - Tu n'as pas répondu :

Enfin, pour qu'un bouton placé dans une feuille de calcul (si c'est bien ça), le code de ton bouton doit être dans la feuille de code de ta FEUILLE de calcul.
Tu dis si c'est ce que tu veux...

:

[ThierryAIM]

j'ai une fonction dans un module et je veu savoir commen y faire appel par un clic sur se fameu bouton...

revenons à nos moutons

Code :

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

1
2
3
Private Sub CommandButton1_Click()
    Call MaMaccro
End Sub

ca devrait le faire, non ?

[ogenki]

Code :

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

1
2
3
Private Sub CommandButton1_Click() 
Application.Run "'ClasseurContenantLaMacro.xls'!findWorddocs " 
End Sub

a l'air de marché merci a vous je laisse a sf le soin de fermé se post

Ogenki

[ThierryAIM]

j'avoue que j'ai pas encore compris le rapport entre le début et la fin du post, m'enfin, si tout le monde est content