Discussion :

[BEBER1212]

Bonjour,

J'ai trouvé ce code dans les FAQ de ce site. Je voudrais savoir si quelqu'un pouvait m'expliquer en partie ce code. Je décroche aux paramètres pour a création de la macro : lamacro = ...
Est ce que ça renvoie vers une macro définie ailleurs ?

Merci.

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
 
Sub AjoutCommandButton_Feuille()
    Dim Ws As Worksheet
    Dim Obj As OLEObject
    Dim laMacro As String
    Dim x As Integer
 
    'Ajout feuille
    Set Ws = Sheets.Add
 
    'Ajout CommandButton dans la feuille
    Set Obj = Ws.OLEObjects.Add("Forms.CommandButton.1")
    With Obj
        .Left = 50 'position horizontale
        .Top = 50 'position verticale
        .Width = 140 'largeur
        .Height = 30 'hauteur
        .Object.BackColor = RGB(235, 235, 200) 'Couleur de fond
        .Object.Caption = "Supprimer données feuille"
    End With
 
    'Paramètres pour la création de la macro:
    '(suppression contenu cellules)
    laMacro = "Sub CommandButton1_Click()" & vbCrLf
    laMacro = laMacro & "Cells.Clear" & vbCrLf
    laMacro = laMacro & "End Sub"
 
    With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        x = .CountOfLines + 1
        .InsertLines x, laMacro
    End With
End Sub

[Pierre Fauconnier]

Bonsoir

Toute la macro Sub AjoutCommandButton_Feuille() sert à ajouter un bouton sur une feuille et à lui affecter une macro qui n'existe pas, et qui doit par conséquent être construite.

si on devait affecter le code du bouton à la main, on insérerait le code suivant dans le module de la feuille active

Code :

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

1
2
3
Sub CommandButton1_Click()
Cells.Clear
End Sub

C'est cette action que la macro Sub AjoutCommandButton_Feuille() prend en charge à partir de la ligne

Code :

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

    laMacro = "Sub CommandButton1_Click()" & vbCrLf

La variable LaMacro reçoit la chaine de caractère qui compose le code de la macro événementielle qui sera déclenchée sur le clic du nouveau bouton.

Lorsque la variable LaMacro contient le code complet, on insère ce code dans le module de la feuille active.


Pour que cela fonctionne, il faut que la confiance soit accordée au code VBA (voir la sécurité des macros selon la version d'Excel utilisée)


Ok?

[BEBER1212]

Merci pour ces explications, qui me mènent à d'autres questions

C'est cette action que la macro Sub AjoutCommandButton_Feuille() prend en charge à partir de la ligne

Code :

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

    laMacro = "Sub CommandButton1_Click()" & vbCrLf

La variable LaMacro reçoit la chaine de caractère qui compose le code de la macro événementielle qui sera déclenchée sur le clic du nouveau bouton.

Donc si je veux ouvrir un onglet caché, je devrais remplacer :

Code :

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

1
2
3
  laMacro = "Sub CommandButton1_Click()" & vbCrLf
    laMacro = laMacro & "Cells.Clear" & vbCrLf
    laMacro = laMacro & "End Sub"

par :

Code :

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

1
2
3
4
  laMacro = "Sub CommandButton1_Click()" & vbCrLf
    laMacro = laMacro & "Sheets("Modification").Visible=1" & vbCrLf
    laMacro = laMacro & "Sheets("Modification").Activate" & vbCrLf
    laMacro = laMacro & "End Sub"

???

Lorsque la variable LaMacro contient le code complet, on insère ce code dans le module de la feuille active.

Est ce que c'est réalisé avec le dernier With ?

Merci

[Pierre Fauconnier]

...

Code :

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

1
2
3
4
  laMacro = "Sub CommandButton1_Click()" & vbCrLf
    laMacro = laMacro & "Sheets("Modification").Visible=1" & vbCrLf
    laMacro = laMacro & "Sheets("Modification").Activate" & vbCrLf
    laMacro = laMacro & "End Sub"

???

Lorsque les guillemets font partie de la chaine en tant que caractères, il faut les doubler

Code :

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

laMacro = laMacro & "Sheets(""Modification"").Visible=1" & vbCrLf

...
Est ce que c'est réalisé avec le dernier With ?

Merci

Oui

[BEBER1212]

Merci pour votre réponse.

Je me suis en effet rendu compte qu'il fallait doubler les guillemets.
Par contre le code se met dans la page "modification" au lieu de la page dans laquelle le bouton se crée. Je ne comprends pas pourquoi. Mon code ci-dessous, avez vous une explication ?

Merci.

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
Private Sub Chercher_Click()
Dim laMacro As String
Dim x As Integer
 
 
Application.ScreenUpdating = False
On Error Resume Next
 
' Affiche l'onglet correspondant au nom de l'invité
Sheets(Range("B19").Value).Visible = 1
 
' Message d'erreur si pas d'invité avec ce nom
If Err <> 0 Then
   MsgBox "Pas d'invité avec ce nom dans la liste. Faites une autre recherche. Attention à l'orthographe et aux accents.", , "Message Erreur"
 
' Si pas d'erreur afficher l'onglet
Else: Sheets(Range("B19").Value).Activate
 
' Dans l'onglet de l'invité
With ActiveSheet
' Création d'un bouton
.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=183.75, Top:=119.25, Width:=169.5, _
Height:=79.5).Select
' Changer le nom d bouton
.OLEObjects("CommandButton1").Object.Caption = "Modifier"
End With
 
' Avec le clic du bouton
laMacro = "Sub CommandButton1_Click()" & vbCrLf
' Rendre visible la Feuil9
laMacro = laMacro & "Feuil9.Visible=1" & vbCrLf
' Activer la Feuil9
laMacro = laMacro & "Feuil9.Activate" & vbCrLf
laMacro = laMacro & "End Sub"
 
' ???
With ThisWorkbook.VBProject.VBE.CodePanes(1).CodeModule
x = .CountOfLines + 1
.InsertLines x, laMacro
End With
 
Application.ScreenUpdating = True
End If
End Sub

[Pierre Fauconnier]

Je n'ai pas testé, mais je dirais qu'il faut remplacer

Code :

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

With ThisWorkbook.VBProject.VBE.CodePanes(1).CodeModule

par

Code :

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

With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule