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

**ouskel'n'or** · 29/05/2006, 11h18

Pour qu'Excel sache de quoi tu parles, tu dois désigner la feuille dans laquelle se trouve le bouton.

Private Sub CommandButton1_Click()
Worksheets("NomDeLaFeuilleDeCalcul").CommandButton1.Caption = "Valider"
End Sub

Ensuite, tu as demandé comment lancer une macro depuis ton bouton.

Essaie de ne traiter qu'une question à la fois. Sois précis dans ta question.
Indique bien tout dès le départ.
Tu parles d'abord d'un bouton dans une barre d'outils or il s'avère à te lire qu'il se trouve dans une feuille de calcul.
Comment veux-tu que nous t'aidions ?
Sois précis !

A+

**tro2blabla** · 29/05/2006, 11h19

Envoyé par pauletta22

Code :

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

1
2
3
4
 
Private Sub CommandButton1_Click()
CommandButton1.Caption = "Valider"
End Sub

Cela me met erreur de compilation end sub attendu

ENLEVE TON PRIVATE

Code :

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

1
2
3
     Sub CommandButton1_Click()
CommandButton1.Caption = "Valider"
End Sub

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

Il y a surement autre chose entre les 2, pardi (un end sub, en plus, si celà se trouve !... ou alors le End Sub mal écrit ...)

**ouskel'n'or** · 29/05/2006, 11h21

Envoyé par Tagada

Citation:
pauletta22 a écrit :
Code :

Private Sub CommandButton1_Click()CommandButton1.Caption = "Valider"End Sub

Cela me met erreur de compilation end sub attendu

ENLEVE TON PRIVATE

Code :

Sub CommandButton1_Click()CommandButton1.Caption = "Valider"End Sub

Non ! Ça ne changera rien

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

Meme après le Worksheets("NomDeLaFeuilleDeCalcul").CommandButton1.Caption = "Valider"

il y a toujour le meme problème
qui est

erreur de compilation end sub attendu

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

http://www.developpez.net/forums/sho...2&postcount=24

**ouskel'n'or** · 29/05/2006, 11h26

METS TON CODE COMPLET DE
Private Sub CommandButton1_Click()

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

Non il y a rien de special vu que mon code seul fonctionne c pour cela que je comprend pas

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

Sub CommandButton1_Click()

Worksheets("Menu").CommandButton1.Caption = "Valider"

[et la je met mon code]

End Sub

Or ceci ne fonctionne pas

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

Ton code est confidentiel pour que tu ne veuille pas nous le mettre???

**ouskel'n'or** · 29/05/2006, 11h30

J'ai testé ça qui fonctionne très bien

Code :

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

1
2
3
4
 
Private Sub CommandButton1_Click()
Worksheets("Feuil1").CommandButton1.Caption = "Valider"
End Sub

Ce n'est donc pas ça qui provoque l'erreur !
Montre le code que tu mets APRÉS !
Après, je renonce

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

non mon code n'est pas confidentiel mai il est vraiment long

**tro2blabla** · 29/05/2006, 11h34

Envoyé par pauletta22

non mon code n'est pas confidentiel mai il est vraiment long

C'est pas grave , mets-le
Cela se trouve que ton erreur se trouve dans ton long code

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

Est-ce que, à tout hasard c'est celui du ce message: http://www.developpez.net/forums/sho...d.php?t=152286

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

non mon code n'est pas confidentiel mai il est vraiment long

Plus long que les 3 pages déjà consommées pour rien (en aveugle ?)

**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

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

[Sub users_16_05_06()

**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

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

Macros et VBA Excel

Discussions similaires

Partager

Partager