Discussion :

[fikou]

Bonjour,
J'ai des contrôles active X dans une feuille (pas de form) boutons, checkbox et une liste de choix
Je les initialise dans "ThisWorkBook"

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
Private Sub Workbook_activate()
    Dim wksChoixFact As Worksheet
    Dim cboSociete As MSForms.ComboBox
 
    Set wksChoixFact = Worksheets("Créationfacture")
    wksChoixFact.Activate
    ActiveWindow.DisplayGridlines = False
    wksChoixFact.Range("A1:D23").Interior.Color = RGB(255, 255, 160)
    ' Déclarer explicitement les combobox
    Set cboSociete = wksChoixFact.OLEObjects("cboSociete").Object
 
    ' Remplis la liste de choix société
    With cboSociete
        .Clear
        .List = Worksheets("Société").Range("C2:C24").Value
        .ListIndex = 0
    End With
    ''Init CheckBox
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "Chk") > 0 Then
            c.Object.Enabled = True
            c.Object = False
            c.Object.BackColor = RGB(255, 255, 160)
        End If
    Next
End Sub

Cela fonctionne sauf si j'ai un autre classeur ouvert. lors de la fermeture de ce dernier cela plante sur cette ligne

Code :

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

If InStr(1, c.Name, "Chk") > 0 Then

Cela ne le fait pas tout le temps et difficile à reproduire.

Est-il judicieux d'initialiser une feuille dans ThisWorkBook, si non comment initialise la feuille en question

Merci d'avance je reste dispo
FikoU

[Tête de chat]

Bonjour,

Sans doute la faute à

Code :

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

For Each c In ActiveSheet.OLEObjects

L'autre classeur quand il s'est ouvert est devenu l'ActiveWorkbook et la feuille affichée l'ActiveSheet

Tu devrais utiliser comme au-dessus :

Code :

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

For Each c In wksChoixFact.OLEObjects

[fikou]

Merci pour ta réponse
Grrr j'ai pas mis le bon code car avant de poster j'ai changé en

Code :

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

For Each c In wksChoixFact.OLEObjects

et cela n'a rien changé.

Initialisé une feuille dans le ThisWorkBook est il juste ?

FikoU

[Tête de chat]

Re,

idem dans

Code :

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

Set wksChoixFact = Worksheets("Créationfacture")

WorkSheets est relatif à ActiveWorkBook
Si pour ton malheur le classeur ouvert contient aussi une feuille "Créationfacture" tu n'auras pas d'erreur mais tu n'auras pas sélectionné la bonne feuille

Essaye avec

Code :

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

Set wksChoixFact = ThisWorkBook.Worksheets("Créationfacture")

[fikou]

Merc je vais tester tout ça
@+FikoU