appel macro

[dam3117]

Bonjour le forum,
est t'il possible d'appeler dans un module la macro d'un commandbutton d'un userform?

merci
damien

 

[Paritec]

Re : appel macro

bonsoir Dm3117, le forum,
que veux tu dire par appeler la macro d'un commandbutton?
tu veux démarrer la macro que le commandbutton commande?
si c'est pas ça je vais me répéter mais je te l'ai déjà dit ce matin un petit bout de fichier avec ce que tu as et ce que tu veux dans le fichier
a+
papou

EDIT : bonjour Pierrot

 

[Pierrot93]

Re : appel macro

Bonjour Damien

essaye peut être ceci, dans un module standard :

Sub test()
UserForm1.CommandButton1_Click
End Sub

dans le module de l'usf :

Public Sub CommandButton1_Click()
MsgBox "test"
End Sub

bonne soirée
@+

Edition : bonjour Papou

 

[Paritec]

Re : appel macro

bonsoir à tous,
Pierrot moi dans la demande de Dam3117, je n'ai pas compris cela autrement il aurait dit qu'il voulais lancer la macro du bouton enfin moi c'est ce que j'aurais dit!!!
enfin content de te croiser
a+
papou

 

[dam3117]

Re : appel macro

Bonsoir à vous;
effectivement je veux executer la macro du CommandButton1 de mon userform5, a partir d'une macro placé dans mon module7.

cdl
dam3117

 

[Pierrot93]

Re : appel macro

Re

bah... comprends pas trop alors, la macro "test", si tu la places dans ton module 7, lancera l'événement click de ton bouton placé sur l'usf....

 

[Paritec]

Re : appel macro

bonsoir Dam3117 le forum,
bon tu veux vraiment pas mettre ton fichier alors tu adapteras et tu reviendras en disant bah elle marche pas ta macro!!!!!!
comment elle s'appelle ta macro ? est-elle placée dans l'userform5 ou dans un module? que fait-elle ? enfin pour moi sans cela? peut-être Pierrot aura une idée!!
a+
Papou

EDIT Pierrot je suis content tu cherches aussi mais tu comprends pas tout de ces explications !!

 

[jeanpierre]

Re : appel macro

Bonsoir dam3117, papou et Pierrot,

Comprends pas trop non plus.

Dans l'événement clic du bouton commandbutton de l'userform suffit de dire Mamacro ou call Mamacro (remplacer par son nom réel), qu'elle soit dans le module 7 ou ailleurs n'a pas d'importance.

A te lire pour plus au besoin.

Jean-Pierre

 

[dam3117]

Re : appel macro

re

voici
j'ai cela dans mon userform5

Private Sub CommandButton1_Click()

Dim xlig As Long


Workbooks("base peche.xls").Activate
Sheets("CIBLES").Activate
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
xlig = Range("a65536").End(xlUp).Row + 1

Dim c As Worksheet 'déclare la variable C (Cible)

Dim CRang As Range 'déclare la variable CRang
Dim CelC As Range 'déclare les variable CelC
Dim x, a As Long 'déclare la variable x
Set c = Sheets("CIBLES") 'définit la variable O
Set CRang = c.Range("A2:A" & c.Range("A65536").End(xlUp).Row) 'définit la variable CRang

x = 0 'définit la variable x




For Each CelC In CRang 'boucle sur toutes les cellule de la plage ORang

If CelC = Label2 Then 'condition : si la cellule n'est pas vide

a = CelC.Row

Cells(a, 1) = Label2
Cells(a, 2) = Label4
Cells(a, 3) = Label7
Cells(a, 4) = Label10
Cells(a, 5) = Label22
Cells(a, 6) = Label21
Cells(a, 7) = Label31
Cells(a, 8) = Label29
Cells(a, 9) = TextBox4.Value
Cells(a, 10) = Label35
Cells(a, 11) = TextBox6.Value
Cells(a, 12) = Label33
Cells(a, 13) = Label37
Cells(a, 14) = Date




TextBox3 = ""
TextBox2 = ""
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("base peche").Activate
UserForm5.Hide
Unload Me
Exit Sub


Exit For
End If
Next CelC
For Each CelC In CRang 'boucle sur toutes les cellule de la plage ORang

If CelC <> Label2 Then 'condition : si la cellule est vide



Cells(xlig, 1) = Label2
Cells(xlig, 2) = Label4
Cells(xlig, 3) = Label7
Cells(xlig, 4) = Label10
Cells(xlig, 5) = Label22
Cells(xlig, 6) = Label21
Cells(xlig, 7) = Label31
Cells(xlig, 8) = Label29
Cells(xlig, 9) = TextBox4.Value
Cells(xlig, 10) = Label35
Cells(xlig, 11) = TextBox6.Value
Cells(xlig, 12) = Label33
Cells(xlig, 13) = Label37
Cells(xlig, 14) = Date


TextBox3 = ""
TextBox2 = ""


Exit For
End If
Next CelC 'prochaine cellule de la plage ORang

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("base peche").Activate
UserForm5.Hide
Unload Me
End Sub

et je voudrai l'activer à dans mon module7.

cdl damien

 

[dam3117]

Re : appel macro

re

voici
j'ai cela dans mon userform5

Private Sub CommandButton1_Click()

Dim xlig As Long


Workbooks("base peche.xls").Activate
Sheets("CIBLES").Activate
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
xlig = Range("a65536").End(xlUp).Row + 1

Dim c As Worksheet 'déclare la variable C (Cible)

Dim CRang As Range 'déclare la variable CRang
Dim CelC As Range 'déclare les variable CelC
Dim x, a As Long 'déclare la variable x
Set c = Sheets("CIBLES") 'définit la variable O
Set CRang = c.Range("A2:A" & c.Range("A65536").End(xlUp).Row) 'définit la variable CRang

x = 0 'définit la variable x




For Each CelC In CRang 'boucle sur toutes les cellule de la plage ORang

If CelC = Label2 Then 'condition : si la cellule n'est pas vide

a = CelC.Row

Cells(a, 1) = Label2
Cells(a, 2) = Label4
Cells(a, 3) = Label7
Cells(a, 4) = Label10
Cells(a, 5) = Label22
Cells(a, 6) = Label21
Cells(a, 7) = Label31
Cells(a, 8) = Label29
Cells(a, 9) = TextBox4.Value
Cells(a, 10) = Label35
Cells(a, 11) = TextBox6.Value
Cells(a, 12) = Label33
Cells(a, 13) = Label37
Cells(a, 14) = Date




TextBox3 = ""
TextBox2 = ""
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("base peche").Activate
UserForm5.Hide
Unload Me
Exit Sub


Exit For
End If
Next CelC
For Each CelC In CRang 'boucle sur toutes les cellule de la plage ORang

If CelC <> Label2 Then 'condition : si la cellule est vide



Cells(xlig, 1) = Label2
Cells(xlig, 2) = Label4
Cells(xlig, 3) = Label7
Cells(xlig, 4) = Label10
Cells(xlig, 5) = Label22
Cells(xlig, 6) = Label21
Cells(xlig, 7) = Label31
Cells(xlig, 8) = Label29
Cells(xlig, 9) = TextBox4.Value
Cells(xlig, 10) = Label35
Cells(xlig, 11) = TextBox6.Value
Cells(xlig, 12) = Label33
Cells(xlig, 13) = Label37
Cells(xlig, 14) = Date


TextBox3 = ""
TextBox2 = ""


Exit For
End If
Next CelC 'prochaine cellule de la plage ORang

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("base peche").Activate
UserForm5.Hide
Unload Me
End Sub

et je voudrai l'activer à partir de mon module7.

cdl damien

 

[Paritec]

Re : appel macro

Bonjour Dam3117 le forum,
essayes de mettre ta macro dans un module de la nommer et de remplacer
ta macro dans l'user par le nom de ta macro
ensuite dans le module 7 tu appelles la macro que tu as nommée
a+
papou

PS : tu ne fais pas l'effort de mettre un exemple alors tu te contenteras d'explications.

 

[Pierrot93]

Re : appel macro

Bonjour Dam, Papou, Jean-Pierre

Je confirme mon post d'hier à 19h41, par contre modifie la "sub" de l'événement "click" de "private" en "public".

bonne journée
@+

 

[dam3117]

Re : appel macro

merci pierrot
bonne soirée
damien