[VBA-E] Aide pour éxécuter mon code en cliquant sur un bouton dans excel.

**pauletta22** · 29/05/2006, 10h02

Re bonjours
Ce coup ci j'aurais besoin de votre aide afin que dés que je clique sur mon bouton mon code s'éxécute.

**Catbull** · 29/05/2006, 10h15

Où se trouve ton bouton? Sur un Userform ou sur une feuille Excel? Les détails sont les bienvenue. A question approximative, réponses approximatives...

**pauletta22** · 29/05/2006, 10h17

ok mon bouton se trouve sur excel

**Catbull** · 29/05/2006, 10h22

Tu as ajouté ce bouton de façon dynamique (par code) ou alors as-tu ajouté ce bouton en utilisant la barre d'outils lors de la phase de design?

**pauletta22** · 29/05/2006, 10h25

Je l'est cree avec la barre d'outils et j'ai modifié le nom avec du code.

**pauletta22** · 29/05/2006, 10h26

Je ne peu pas faire de clique dessus ca ne fait rien

**tro2blabla** · 29/05/2006, 10h25

- clic droit sur ton bouton
- sélectionne 'Affecter une macro'
Il ya la liste de toutes tes macros
-tu sélectionne le nom de ta macro sur celle que tu dois executer lors de ton clic du bouton de ta feuille excel

VOILà
_______________________________________
N'oublies pas

**pauletta22** · 29/05/2006, 11h38

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
Sub users_16_05_06()
 
Dim service As String
Dim Responsable As String
Dim nbligne As Integer
 
Application.ScreenUpdating = False
 
'Workbooks.Add
NomFich = ActiveWorkbook.Name
Workbooks.OpenText Filename:="\\Bre3301\config$\icones\maryse.nourisson\Bureau\Guillaume.mulot\ressources Humaines", _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
        Semicolon:=True
Workbooks.OpenText Filename:="\\Bre3301\config$\icones\maryse.nourisson\Bureau\Guillaume.mulot\qualite cout delais", 
[ce qui est précédemment est répété plusieur fois]
 
Windows("ressources Humaines.txt").Activate
    Sheets("ressources Humaines").Select
    Sheets("ressources Humaines").Copy Before:=Workbooks(NomFich).Sheets(1)
    Workbooks("users_16_05_06.xls").Sheets("ressources Humaines").Activate
    Workbooks("ressources Humaines").Close
Windows("qualite cout delais.txt").Activate
    Sheets("qualite cout delais").Select
    Sheets("qualite cout delais").Copy Before:=Workbooks(NomFich).Sheets(1)
    Workbooks("users_16_05_06.xls").Sheets("qualite cout delais").Activate
    Workbooks("qualite cout delais").Close
Windows("prototypes.txt").Activate
    Sheets("prototypes").Select
    Sheets("prototypes").Copy Before:=Workbooks(NomFich).Sheets(1)
    Workbooks("users_16_05_06.xls").Sheets("prototypes").Activate
    Workbooks("prototypes").Close
[ce qui est précédemment est répété plusieur fois]
 
Worksheets("ressources Humaines").Activate
Rows(1).Font.Bold = True
Range("D1") = "Responsable"
 
nbligne = Range("C65000").End(xlUp).Row
 
For Index = 2 To nbligne
service = Range("C" & Index)
 
Select Case service
Case "Achats Projet", "Achats"
    Responsable = "BNT"
Case "Atelier", "Production"
    Responsable = "PHR"
Case "Bureau Etudes", "Ingéniérie Process", "Prototypes"
    Responsable = "JT"
Case "Chefs de Projets", "Metrologie", "Qualite Cout Délais"
    Responsable = "EV"
Case "Commercial"
    Responsable = "SA"
Case "Logistique"
    Responsable = "CT"
Case "Informatique", "Finances"
    Responsable = "FBE"
Case "Entretien"
    Responsable = "VT"
Case "Direction Qualite"
    Responsable = "JBQ"
Case Else
    Responsable = "ADB"
End Select
 
Range("D" & Index) = Responsable
 
Cells.Columns.AutoFit
 
Next
 
Worksheets("qualite cout delais").Activate
Rows(1).Font.Bold = True
Range("D1") = "Responsable"
 
nbligne = Range("C65000").End(xlUp).Row
 
For Index = 2 To nbligne
service = Range("C" & Index)
 
Select Case service
Case "Achats Projet", "Achats"
    Responsable = "BNT"
Case "Atelier", "Production"
    Responsable = "PHR"
Case "Bureau Etudes", "Ingéniérie Process", "Prototypes"
    Responsable = "JT"
Case "Chefs de Projets", "Metrologie", "Qualite Cout Délais"
    Responsable = "EV"
Case "Commercial"
    Responsable = "SA"
Case "Logistique"
    Responsable = "CT"
Case "Informatique", "Finances"
    Responsable = "FBE"
Case "Entretien"
    Responsable = "VT"
Case "Direction Qualite"
    Responsable = "JBQ"
Case Else
    Responsable = "ADB"
End Select
 
Range("D" & Index) = Responsable
 
Cells.Columns.AutoFit
 
Next
 
' ce qui est précédemment est répété plusieur fois
 
Application.ScreenUpdating = True
 
End Sub

**Catbull** · 29/05/2006, 11h47

Ce code se trouve entre les deux lignes de codes suivantes :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
 
End Sub

**linda15975** · 29/05/2006, 11h48

Tu nous as montré ton code, mais sans le

Code :

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

Sub CommandButton1_Click()

Je me demande donc si tu laisses le

Code :

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

Sub users_16_05_06()

et le

Code :

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

End Sub

à l'intérieur.
Si c'est le cas, il faut que tu les enlèves

**Catbull** · 29/05/2006, 11h50

Si c'est la cas il ne faut pas l'oter mais faire directement appel à la procédure users_16_05_06()

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub CommandButton1_Click()
    Worksheets("Menu").CommandButton1.Caption = "Valider"
    users_16_05_06
End Sub
 
Private Sub users_16_05_06()
    [instructions de users_16_05_06]
End Sub

**AlainTech** · 29/05/2006, 12h13

Et les balises [code], c'est pour les chiens?

Je l'ai ENCORE fais pour toi!

**jmfmarques** · 29/05/2006, 11h48

[Sub users_16_05_06()

**linda15975** · 29/05/2006, 11h50

jmfmarques, je crois que le crochet, c'est les balises code pour pauletta...
[code], normal, elle met son code à la place du mot 'code',

**pauletta22** · 29/05/2006, 11h52

En enlevant les sub user 16_05_06
et le end sub a la fin cela me mets une autre erreur

erreur de compilation
Variable requise. Impossible de l'affecter à cette expression

**linda15975** · 29/05/2006, 11h53

Essaye la solution de Catbull

**pauletta22** · 29/05/2006, 11h58

Avec la solution de catbull cela me met l'erreur

erreur de compilation
Variable requise. Impossible de l'affecter à cette expression

et me surligne le index

[VBA-E] Aide pour éxécuter mon code en cliquant sur un bouton dans excel.

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager