si celon le lancement

[crysiol]

Bonjour,

Comment faire en sorte pour que, selon le bouton qui lance un userform, son code change (étant donné qu'il change très peu et que sinon je devrais faire énormements d'userform presque identiques).

Merci à vous.

 

[pascal21]

Re : si celon le lancement

bonsoir
pas sure d'avoir tout compris
tu as un userform et tu veux le lancer avec plusieurs boutons?
tu as plusieurs userform et tu veux les lancer avec plusieurs boutons?
pourrais-tu être plus précis et éventuellement nous fournir un ptit brouillon
que l'on puisse t'aider sans jouer au devin (tout au moins en ce qui me concerne) lol!!!!
à te lire

 

[jeanpierre]

Re : si celon le lancement

Bonsoir crysiol,

Pas clair...

Déjà :

"Comment faire en sorte pour que, selon le bouton qui lance un userform, son code change",

ensuite : "(étant donné qu'il change très peu et que sinon je devrais faire énormements d'userform presque identiques)."

Précisions obligatoires....

Car, là, c'est le flou absolu... brouillard par une tempête de neige...

Merci d'apporter quelques précisions utiles, voir avec un fichier joint de ce que tu as et à côté de ce que tu souhaites......

Bonne soirée en attendant un minimum d'infos...

Jean-Pierre

 

[pascal21]

Re : si celon le lancement

bonsoir jeanpierre
pas de chance tu vas dans 2 fils et il te faut jouer au devin pour aider lol

 

[crysiol]

Re : si celon le lancement

Voila l'exemple:Regarde la pièce jointe exemple.xlsm

Lorsque j'ouvre l'userform avec le bouton 1, le choix de la listbox s'affiche en a1. Ce que je voudrais, c'est que lorsque je l'ouvre avec le bouton deux, le choix s'affiche en b1. Ce qui fait que la cellule qui affiche le choix change avec le bouton qui le lance.

En espérent avoir été plus clair.

 

[kjin]

Re : si celon le lancement

Bonsoir,
J'avais compris la question mais j'attendais le fichier...en xls
2007 c'est la porte à coté
A+
kjin

 

[jeanpierre]

Re : si celon le lancement

Re, Bonsoir ou re kjin, Pascal,

Crysiol, déjà renseigne ton Pseudo avec ta version d'Excel... cela peut aider.... Merci...

Ensuite, même pour ceux comme moi qui peuvent ouvrir, ton fichier n'est pas reconnu...

Si kjin a compris ta question, moi pas et sans fichier c'est pire...

A te lire.

Jean-Pierre

 

[Cousinhub]

Re : si celon le lancement

Bonsoir,

dans un code standard, tu mets ceci :

Public Col As Byte
Sub start()
Col = Val(Right(Application.Caller, 1))
UserForm1.Show
End Sub

et dans le code de ton usf, tu mets ceci :

Private Sub ListBox1_Click()
Sheets("Feuil1").Cells(1, Col) = ListBox1.Value
End Sub

Edit : ton fichier exemple, avec ce code :

 

[pascal21]

Re : si celon le lancement

re
si même avec le fichier, vous avez compris ce qu'il veut ;chapeau!!!!!
il y a bien deux boutons qui lance le même usf avec le même code qui écrit dans A1
des précisions svp