Déclaration de variable (type)

Version imprimable

Je ne suis pas vraiment un débutant (plutôt un autodidacte qui commence à se débrouiller sous VBA) mais ma question est digne d'un débutant. Mais bon il n'y a pas de question idiote, hein ?:mouarf:

Voilà j'ai un bouton de type toggle sur ma feuille et je voudrais récupérer sa valeur dans une fonction pour le faire changer de couleur. Mais j'ignore comment je dois le déclarer dans ma fonction :
en admettant que ce bouton se nomme "BOB" (ceci est un exemple minimaliste mais je crée des boutons par macro ainsi que leur code associé d'où lutilité de la fonction)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub BOB_Click() 'changement de couleur du bouton s'il est ou pas enfoncé Dim Nom_btn as ???? Nom_btn = "BOB" FN_Btnclic Nom_btn End Sub Public Function FN_Btnclic(ByVal Nam As ?????) If Nam.Value = True Then Nam.BackColor = RGB(255, 0, 0) Else Nam.BackColor = RGB(0, 255, 0) End If End Function
Du coup je ne sais pas comment je dois déclarer mes variable Nom_btn et Nam (string, OLEObject ????)
Merci d'avance pour votre aide

24/10/2017, 22h37
unparia

Bonjour

Citation:

Mais bon il n'y a pas de question idiote, hein ?

Il n'y en a en effet pas. Il y a par contre des titres qui ne sont pas intelligents (et ne correspondent pas non plus aux règles de ce forum).
Le tien, par exemple, ne résume pas la difficulté rencontrée.
J'attendrai donc personnellement que tu le modifies
24/10/2017, 22h46
Vincent32

Citation:

Envoyé par unparia

Il y a par contre des titres qui ne sont pas intelligents (et ne correspondent pas non plus aux règles de ce forum).
Le tien, par exemple, ne résume pas la difficulté rencontrée.

Ouch c'est dur !

:oops:

désolé pour ce manque de clarté et ce non respect des règles.

(En tout cas je tiens à préciser, s'il était utile, que je ne méprise nullement les débutants et que je respecte entre autres TOUS les utilisateurs et contributeurs de ce forum. Je suis moi même très loin d'un niveau technique correct).
24/10/2017, 23h04
unparia
Citation:

mais je crée des boutons par macro

Montre ce code de création dynamique.
Mais avant d'aller plus loin : il te faut prendre conscience d'un fait qui n'est pas, justement, à la portée d'un débutant.
Si tu veux qu'un contrôle créé dynamiquement réponde à des procédures évènementielles, il te faut créer une classe pour en gérer les évènements. Ce que tu nous dis de ton niveau actuel et le bout de code que tu montres dans ton premier message me laissent assez dubitatif quant à un "solution" autre qu'un copier/coller pur et simple de ce qui te serait communiqué.
Es-tu vraiment certain de ne pas avoir à commencer par des choses moins complexes ?

EDIT : un contrôle activex est passé en paramètre comme le montre cet exemple :
Code:

1 2 3 4 5 6 7 Private Sub CommandButton3_Click() toto CommandButton1 End Sub Private Sub toto(CT As msforms.CommandButton) CT.BackColor = vbRed End Sub
Mais s'il est créé dynamiquement (ce que tu dis avoir fait) la première même des deux procédures ne saurait exister autrement que par ce que je t'ai dit plus haut.
Ton premier problème n'est pas celui du passage d'un contrôle en paramètre d'une procédure mais d'affecter des procédures évènementielles au contrôle créé dynamiquement

J'en profite pour t'inviter à apprendre ce qu'est une FONCTION (qui est une procédure retournant une valeur). Ta "fonction" devrait être une simple routine (une "Sub") et est abusive.

Merci de ce retour.

Alors voici ma création de bouton dynamique : (c'est une fonction :oops: appelée dans une sub )

Code:

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
 
Sub bibi()
    Dim lig As Integer, k As Integer
    Dim Bool As Boolean
    Dim Obj As OLEObject
    Dim WB As Workbook
    Set WB = ThisWorkbook
    k = 7
    For lig = 1 To Feuil1.Range("A1").End(xlDown).Row Step 1
        If lig > k And Feuil1.Range("C" & lig) <> "" Then
            For Each Obj In Feuil1.OLEObjects
                If Obj.Name = "Check_" & lig Then Bool = True
            Next Obj
            If Bool = False Then FN_Crcbx lig, WB
        End If
    Next lig
    Set WB = Nothing
End Sub
 
Public Function FN_Crcbx(ByVal z As Integer, ByVal WKB As Workbook)
    Dim X As Integer
    WKB.Activate
    Set Obj = Feuil1.OLEObjects.Add("Forms.ToggleButton.1")
    Obj.Height = Feuil1.Range("A" & z).Height
    Obj.Width = Obj.Height
    Obj.Left = Feuil1.Range("B" & z).Left - Obj.Width
    Obj.Top = Feuil1.Range("A" & z).Top
    Obj.Object.BackColor = RGB(0, 255, 0)
    Obj.Object.Caption = ""
    Obj.Name = "Check_" & z
    Set Obj = Nothing
    With WKB.VBProject.VBComponents("Feuil1").CodeModule
        X = .CountOfLines
        .InsertLines X + 1, "Sub Check_" & z & "_Click()"
        .InsertLines X + 2, vbTab & "Dim WB As Workbook"
        .InsertLines X + 3, vbTab & "Set WB = ThisWorkbook"
        .InsertLines X + 4, vbTab & "Nom = ""Check_" & z & """"
        .InsertLines X + 5, vbTab & "FN_Btnclic Nom"
        .InsertLines X + 6, vbTab & "Feuil1.Select"
        .InsertLines X + 7, vbTab & "Set WB = Nothing"
        .InsertLines X + 8, "End Sub"
        .InsertLines X + 9, ""
    End With
End Function

Alors j'ai une alternative (je la trouve moins classe mais certainement plus adaptée vu la réponse apportée):

Code:

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
 
Public Function FN_Crcbx(ByVal z As Integer, ByVal WKB As Workbook)
    Dim X As Integer
    WKB.Activate
    Set Obj = Feuil1.OLEObjects.Add("Forms.ToggleButton.1")
    Obj.Height = Feuil1.Range("A" & z).Height
    Obj.Width = Obj.Height
    Obj.Left = Feuil1.Range("B" & z).Left - Obj.Width
    Obj.Top = Feuil1.Range("A" & z).Top
    Obj.Object.BackColor = RGB(0, 255, 0)
    Obj.Object.Caption = ""
    Obj.Name = "Check_" & z
    Set Obj = Nothing
    With WKB.VBProject.VBComponents("Feuil1").CodeModule
        X = .CountOfLines
        .InsertLines X + 1, "Sub Check_" & z & "_Click()"
        .InsertLines X + 2, vbTab & "Dim WB As Workbook"
        .InsertLines X + 3, vbTab & "Set WB = ThisWorkbook"
        .InsertLines X + 4, vbTab & "If Check_" & z & ".Value = True Then"
        .InsertLines X + 5, vbTab & vbTab & "Check_" & z & ".BackColor = RGB(255, 0, 0)"
        .InsertLines X + 6, vbTab & "Else"
        .InsertLines X + 7, vbTab & vbTab & "Check_" & z & ".BackColor = RGB(0, 255, 0)"
        .InsertLines X + 8, vbTab & "End If"
        .InsertLines X + 9, vbTab & "Feuil1.Select"
        .InsertLines X + 10, vbTab & "Set WB = Nothing"
        .InsertLines X + 11, "End Sub"
        .InsertLines X + 12, ""
    End With
End Function

25/10/2017, 09h00
unparia

Citation:

Alors j'ai une alternative (je la trouve moins classe mais certainement plus adaptée vu la réponse apportée):

La question que tu devrais te poser devrait plutôt être relative au nombre (qui risque d'être important) des boutons que tu vas ainsi créer sur ta feuille.
Bonjour l'occupation en mémoire, les lourdeurs, la gestion des suppressions éventuelles de lignes, etc, etc ...
Il est probable (presque certain) qu'une durée plus longue de réflexion devrait te conduire à une conception plus adéquate. Mais c'est là un autre aspect.
Amitiés
25/10/2017, 09h00
Vincent32

Citation:

une FONCTION (qui est une procédure retournant une valeur)

Je te remercie pour cette définition, du coup je me rends compte dans mon code que j'ai un peu abusé (j'ai mis plusieurs fonctions alors que des sub auraient probablement suffit ... :ange::marteau:)
25/10/2017, 09h04
Vincent32

le nombre de boutons ainsi crée ne devrait excéder la dizaine par ailleurs la suppression de ligne est verrouillée par un verrouillage de la feuille.