Discussion :

[jeanmanu]

Bonjour
je ne suis pas développeur et ma question va peut être vous sembler bête...

j'ai 5 feuilles.
Dans mes 5 feuilles, j'ai 5 boutons dont le code est identique :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim FEUILLE As String
FEUILLE = ActiveSheet.Name
UserForm1.ComboBox1.Value = Sheets(FEUILLE).Range("K3").Value 'REGION
UserForm1.ComboBox7.Value = Sheets(FEUILLE).Range("K4").Value 'SUB-REGION
(...)
UserForm1.Show
End Sub

Y a t il un moyen pour avoir une seule procédure pour mes 5 boutons?
merci d'avance

[casefayere]

Bonjour,
à mon avis oui en mettant ton code dans un module (ex : que tu appelle test) et en appelant ce code avec ton bouton (call test) et en spécifiant avant call test > feuille = activesheet.name

[jeanmanu]

bonjour
j'ai essayé mais il me dit "l'indice n'appartient pas à la sélection"

[casefayere]

A quelle ligne ? parce moi j'ai été vite pour te répondre et peut-être trop imprécis

[jeanmanu]

ok, j'ai mis

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim FEUILLE As String
FEUILLE = ActiveSheet.Name
UserForm1.ComboBox1.Value = Sheets(FEUILLE).Range("K3").Value 'REGION
UserForm1.ComboBox7.Value = Sheets(FEUILLE).Range("K4").Value 'SUB-REGION
(...)
UserForm1.Show
End Sub

puis dans private, un call test
cela marche

par contre, j'avais mis avant un application.run("ma_procedure"), et là, cela ne marchait pas. Pourquoi?

[casefayere]

Si ça marche comme ça, c'est bien mais pour

par contre, j'avais mis avant un application.run("ma_procedure"), et là, cela ne marchait pas. Pourquoi?

Je ne saurais te répondre

[fring]

Bonjour,

Code :

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

Application.Run ("MaMacro")

fonctionne au même titre que

Code :

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

Call MaMacro

ou tout simplement

Code :

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

MaMacro 'Call étant facultatif dans ce cas

Application.Run est principalement utilisé pour appeler une procédure située dans un autre classeur