Discussion :

[will Igetit]

Bonjour , lors de l'utilisation d'un controle formulaire, lorsque je clique sur le boutton celui ci ne trouve pas la macro, voici le code.

le message est la macro "Book24.xls!calculatu" cannot be found
quelqu'un serait pourquoi?

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
Public Sub calculatu()
 
Static i As Integer
i = 0
 ThisWorkbook.Worksheets(1).Cells(1, 2) = i + 1
 
End Sub
 
Public Sub constructform()
 
Dim feuille As Worksheet, rngp As Range, rngv As Range
Dim zlist As DropDown, compteur As Long, opt As OptionButton
 
Set feuille = ThisWorkbook.Worksheets(1)
Set rngp = feuille.Cells(1, 1)
 
With feuille.Buttons.Add(rngp.Left, rngp.Top, rngp.Width, rngp.Height)
    .Caption = "calcul now"
    .OnAction = "calculatu"
End With
 
 
 
 
 
 
 
End Sub

[pgz]

Bonjour.

2 idées : la procédure est bien placée dans un module standard? Le classeur s'appelle bien Book24.xls?

PGZ

[will Igetit]

effectivement je n'etais pas dans un moduole standart merci ;-)