compiler une commande

salut
alors déjà tu déclares ta commande dans un module standard
soit c'est une procédure(1) soit c'est une fonction(2)
(1) se déclare de la manière suivante
Sub Mamacro (variables d'entrées de ta procédure)
'tes lignes de commande
end sub
(2) itou :
function MaFonction (variables d'entrées de ta fonction) as ... (type
de donnée renvoyé)
'tes calculs
End function

--> L'utilisation d'une procédure ou d'une fonction na strictement
rien à voir !!!

ensuite : tout simplement

Private Sub CommandButton100_Click()
Sheets("20").Select
Mamacro (variables d'entrée)
'ou: variable = MaFonction (variables d'entrée)

End Sub

voili voila
Céline

Bonjour

J'ai une commande qui comporte une dizaine de ligne et que je doit rép été
sur chaque bouton dans un userform.
comment écrit-on une fonction que l'on peut rapeler sous vba.

Private Sub CommandButton100_Click()
Sheets("20").Select
[fonction à rapeler]
End Sub

Merci d'avance

Céline avait soumis l'idée :

(2) itou :
function MaFonction (variables d'entrées de ta fonction) as ... (type
de donnée renvoyé)
'tes calculs
*MaFonction = resultat*

End function

Un tout petit oubli :')

--
JLuc

merci céline c un super gain de temp
cool !!

salut
alors déjà tu déclares ta commande dans un module standard
soit c'est une procédure(1) soit c'est une fonction(2)
(1) se déclare de la manière suivante
Sub Mamacro (variables d'entrées de ta procédure)
'tes lignes de commande
end sub
(2) itou :
function MaFonction (variables d'entrées de ta fonction) as ... (type
de donnée renvoyé)
'tes calculs
End function

--> L'utilisation d'une procédure ou d'une fonction na strictement
rien à voir !!!

ensuite : tout simplement

Private Sub CommandButton100_Click()
Sheets("20").Select
Mamacro (variables d'entrée)
'ou: variable = MaFonction (variables d'entrée)

End Sub

voili voila
Céline

Bonjour

J'ai une commande qui comporte une dizaine de ligne et que je doit répété
sur chaque bouton dans un userform.
comment écrit-on une fonction que l'on peut rapeler sous vba.

Private Sub CommandButton100_Click()
Sheets("20").Select
[fonction à rapeler]
End Sub

Merci d'avance

Céline avait soumis l'idée :

(2) itou :
function MaFonction (variables d'entrées de ta fonction) as ... (type
de donnée renvoyé)
'tes calculs
*MaFonction = resultat*

End function

Un tout petit oubli :')

--> qui aurait couté cher en temps à chercher l'erreur... :p

--
JLuc

Céline avait soumis l'idée :

--> qui aurait couté cher en temps à chercher l'erreur... :p

qui aurai couté en temps à trouver l'erreur, chère... lol

--
JLuc

! ! ! GASP ! !

Céline avait soumis l'idée :

--> qui aurait couté cher en temps à chercher l'erreur... :p

qui aurai couté en temps à trouver l'erreur, chère... lol

--
JLuc

Bonjour

J'ai mis dans le module 1
Function Mafonction()
If Application.UserName = "utilisateur1" Then
Range("D4").Select
ElseIf Application.UserName = " utilisateur2" Then
Range("G4").Select
Else
Sheets("feuil1").Select
End If
End Function

et dans le code de userform :
Private Sub CommandButton88_Click()
Sheets("feuil17").Select
variable = Mafonction()
End Sub

et sa fonctionne trés bien merci céline !!!!!

! ! ! GASP ! !

Céline avait soumis l'idée :

--> qui aurait couté cher en temps à chercher l'erreur... :p

qui aurai couté en temps à trouver l'erreur, chère... lol

--
JLuc

*Bonjour Angelus*,
Dans ton cas, une fonction ne sert à rien 8-o
Une fonction, comme son nom l'indique sert à renvoyer un résultat. Dans
ton cas tu aurais du mettre ton code dans une procédure voir dans la
procedure : Private Sub CommandButton88_Click().
Bon, c'est vrai, çà marche quand même B-) mais si tu commence comme çà,
tu ne sauras pas quand utiliser une procédure et quand utiliser une
fonction :'(

Bonjour

J'ai mis dans le module 1
Function Mafonction()
If Application.UserName = "utilisateur1" Then
Range("D4").Select
ElseIf Application.UserName = " utilisateur2" Then
Range("G4").Select
Else
Sheets("feuil1").Select
End If
End Function

et dans le code de userform :
Private Sub CommandButton88_Click()
Sheets("feuil17").Select
variable = Mafonction()
End Sub

et sa fonctionne trés bien merci céline !!!!!

! ! ! GASP ! !

Céline avait soumis l'idée :

--> qui aurait couté cher en temps à chercher l'erreur... :p

qui aurai couté en temps à trouver l'erreur, chère... lol

--
JLuc

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

*ReBonjour Angelus*,
Exuse moi, je viens de relire la question initiale. Il te fallais juste
une procédure :oÞ

Bonjour

J'ai mis dans le module 1
Function Mafonction()
If Application.UserName = "utilisateur1" Then
Range("D4").Select
ElseIf Application.UserName = " utilisateur2" Then
Range("G4").Select
Else
Sheets("feuil1").Select
End If
End Function

et dans le code de userform :
Private Sub CommandButton88_Click()
Sheets("feuil17").Select
variable = Mafonction()
End Sub

et sa fonctionne trés bien merci céline !!!!!

! ! ! GASP ! !

Céline avait soumis l'idée :

--> qui aurait couté cher en temps à chercher l'erreur... :p

qui aurai couté en temps à trouver l'erreur, chère... lol

--
JLuc

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O