[VBA-E] top et left de cellules ...

Version imprimable

Voir 40 message(s) de cette discussion en une page

Code:

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 ... ???

31/01/2006, 16h50
bidou

en évitant de mettre la valeur Left dans la variable ButTop puis en évitant de passer deux fois le même paramètre :mouarf:
31/01/2006, 16h54
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 ...
31/01/2006, 16h57
bidou

yo ma grenouille. Content aussi de te revoir :wink:
31/01/2006, 17h02
SpaceFrog

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

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

accessoirement comment modifier le caption du bouton ?
31/01/2006, 17h31
bidou

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

Code:

bouton.Object.Caption = "toto"

doit le faire
31/01/2006, 17h38
SpaceFrog

:cry: non il n'en veut pas ...
du

Code:

bouton .object.caption

...
31/01/2006, 17h40
bidou

quelle version d'excel ???

enleve le Select et rajoute un Set ...:

Code:

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

:wink:

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

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

Citation:

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

merci a vous

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

Code:

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+

31/01/2006, 19h24
ogenki

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

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

Code:

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")

31/01/2006, 19h47
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+
31/01/2006, 19h51
ouskel'n'or
Code:

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()
31/01/2006, 19h56
ogenki

Citation:

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

il va avoir un parametre lol

Citation:

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 ?
31/01/2006, 20h00
ouskel'n'or

Citation:

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... :lol:

A+

PS - Tu n'as pas répondu :

Citation:

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...

:?:
31/01/2006, 20h03
ThierryAIM
Citation:

Envoyé par ogenki

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:

1 2 3 Private Sub CommandButton1_Click() Call MaMaccro End Sub
ca devrait le faire, non ?

Code:

1 2 3 Private Sub CommandButton1_Click() Application.Run "'ClasseurContenantLaMacro.xls'!findWorddocs " End Sub
a l'air de marché merci a vous :D je laisse a sf le soin de fermé se post

Ogenki

31/01/2006, 20h09
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 :lol:

Voir 40 message(s) de cette discussion en une page