création dynamique checkbox caption plage feuille cachée

**Xiombarg2911** · 05/05/2008, 10h27

Bonjour,

En utilisant le code trouvé à cet endroit et qui permet de créer dynamiquement des checkbox, j'essaye de faire en sorte que la propriété Caption des Checkbox soit crée en fonction d'une liste situé dans une Feuille cachée nommée "Classes", en colonne A, dans une plage nommée "Classes".

Avec le code suivant j'obtient une erreur 'Mémoire insufisante'

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
Private Sub CommandButton1_Click()
Dim Obj As Control
Dim Cl As Classe1
Dim i As Integer
Dim Plage As Range
 
Set Collect = New Collection
 
'MsgBox Feuil1.Cells("A" & Rows.Count).Row.Value
 
'While Feuil1.Cells("A" & Rows.Count).End(xlUp).Row.Value <> 0
 
    For i = 1 To 3 'boucle pour la création des CheckBox
    Set Obj = Me.Controls.Add("forms.Checkbox.1")
        With Obj
            .Name = "moncheckbox" & i
            For Each Plage In Feuil1.Range("Classes")
            .Object.Caption = Cells.Value
            .Left = 140
            .Top = 30 * i + 10
            .Width = 50
            .Height = 20
            Next
        End With

Je n'arrive pas à lui dire que le caption = chaque valeur dans telle colonne.

Merci de votre aide

**zyhack** · 05/05/2008, 10h45

Bonjour

Je ne comprends pas pourquoi tu boucles dans ta plage pour renseigner la valeur caption de ton checkBox vu qu’il ne peut en prendre qu’une.

Si tu ranges tes valeurs dans le même ordre que la création de tes checkBox
checkBox1.caption = col 1 de ta plage
checkBox2.caption = col 2 de ta plage

Tu peux utiliser ceci

Code :

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

1
2
3
4
5
6
7
8
9
 
        With Obj
            .Name = "moncheckbox" & i
            .Object.Caption = Worksheets("Classes").Range("Classes").Cells(i, 1).Value
            .Left = 140
            .Top = 30 * i + 10
            .Width = 50
            .Height = 20
        End With

**Xiombarg2911** · 05/05/2008, 11h48

Envoyé par zyhack

Je ne comprends pas pourquoi tu boucles dans ta plage pour renseigner la valeur caption de ton checkBox vu qu’il ne peut en prendre qu’une.

Pour etre franc je ne comprend pas non plus hehe, toujours mon problème de sélection de plage / range etc

en tout cas ça marche et c'est tout simple merci zyhack

Peut etre vite fait tu peux essayer de m'expliquer l'interet de déclarer le range en variable comme dans :

Code :

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

Dim plage As Range

Du coup moi je fais l'association variable = boucle et je m'emmême les pinceaux

**patbou** · 05/05/2008, 12h08

bonjour,

En utilisant le code trouvé à cet endroit et qui permet de créer dynamiquement des checkbox, j'essaye de faire en sorte que la propriété Caption des Checkbox soit crée en fonction d'une liste situé dans une Feuille cachée nommée "Classes", en colonne A, dans une plage nommée "Classes".

ta liste si elle est crée en colonne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For i = 1 To 3 'boucle pour la création des CheckBox
    Set Obj = Me.Controls.Add("forms.Checkbox.1")
        With Obj
            .Name = "moncheckbox" & i            
            .Object.Caption = worksheets("classe").Cells(i,1).Value            
            .Left = 140
            .Top = 30 * i + 10
            .Width = 50
            .Height = 20
            Next
        End With

**zyhack** · 05/05/2008, 12h41

Envoyé par Xiombarg2911

Peut etre vite fait tu peux essayer de m'expliquer l'interet de déclarer le range en variable comme dans :

Code :

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

Dim plage As Range

Du coup moi je fais l'association variable = boucle et je m'emmême les pinceaux

Dans ton cas cette variable est inutile car tu ne l’utilises pas.

Sinon comme tu l’as dit toi-même cette déclaration est utile quand tu boucles dans une plage de cellule

Code :

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

1
2
3
4
5
 
Dim C As Range
  For Each C In Range("ma_plage")
    C.Value = "toto"
  Next

Si ta plage change en plus petite, plus grande ou complètement différente ton code restera bon. Contrairement à celui-ci ou tu devra modifier ton code pour lui indiquer ou ecrire.

Code :

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

1
2
3
4
5
 
Dim i As Integer
  For i = 1 To 20
    Cells(i, 1).Value = "toto"
  Next

**Xiombarg2911** · 05/05/2008, 17h12

ok je capte un peu mieux. Quand on débute c'est pas facile de voir loin lors de l'écriture du code et de se dire que là on va boucler ou là un simple compteur suffit.

Sinon dans mon projet j'en suis à l'aspect publipostage. Alors j'ai fait une recherche sur le forum et je trouve plein de posts sur le publipostage de Word, Access et Excel, mais pas la solution de ce problème :
Avec l'enregistreur de macro sous Word j'ai eu ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set wrdApp = CreateObject("Word.Application")
        Set wrdDoc = wrdApp.Documents.Open("C:\Documents and Settings\Administrateur\Bureau\modèleetiquette.doc")
    wrdApp.Visible = True
    'wrdDoc.Select
    ActiveDocument.MailMerge.OpenDataSource Name:="C:\Documents and Settings\Administrateur\Bureau\Anciens élus.xlsm" ', SQLStatement:="SELECT * FROM `Feuil3$`"
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
             .FirstRecord = wdDefaultFirstRecord
             .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With

code assez indigeste pour dire de réaliser un publipostage d'excel vers word.
A la ligne

Code :

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

ActiveDocument.MailMerge.OpenDataSource Name:="C:\Documents and Settings\Administrateur\Bureau\Anciens élus.xlsm" ', SQLStatement:="SELECT * FROM `Feuil3$`"

j'obtient une erreur "Commande non disponible, Aucun document n'est ouvert"

Pourtant mon doc excel est sauvegardé et ouvert, et mon doc Word s'ouvre bien, et lors de l'enregistrement de la macro tout c'est bien passé. Il ne fait pas le publipostage vers un autre document word

**zyhack** · 06/05/2008, 08h10

Aie Excel et Word ce n’est pas trop ma tasse de thé mai en regardant un peu je vois que tu définis la variable wrdDoc et ensuite tu utilise ActiveDocument.

As-tu essayé en remplaçant ActiveDocument par wrdDoc ? (en vert dans le code)

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
  Set wrdApp = CreateObject("Word.Application")
  Set wrdDoc = wrdApp.Documents.Open("C:\Documents and Settings\Administrateur\Bureau\modèleetiquette.doc")
  wrdApp.Visible = True
    'wrdDoc.Select
  ActiveDocument.MailMerge.OpenDataSource Name:="C:\Documents and Settings\Administrateur\Bureau\Anciens élus.xlsm" ', SQLStatement:="SELECT * FROM `Feuil3$`"
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
             .FirstRecord = wdDefaultFirstRecord
             .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With

Sinon s’il y a une âme charitable pour jeter un petit coup d’œil.

**Xiombarg2911** · 06/05/2008, 10h11

Bon alors pour finir ce matin j'arrive au boulot, j'essaye et ça marche >_<
oooook.
Franchement je ne sais pas ce qui a changé entre temps mais bon.

Et hier soir chez moi j'ai repris le code en essayant de couper dedans ce qui me paraissait inutile et en m'inspirant du code des personnes qui m'ont aidé ici et voici ce que ça donne :

Code :

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

1
2
3
4
5
6
7
8
9
Dim wdApp As Word.Application
Set wdApp = New Word.Application
With wdApp
.Visible = True
.Documents.Open "C:\Documents and Settings\Administrateur\Bureau\modèleetiquette.doc"
.ActiveDocument.MailMerge.OpenDataSource Name:="C:\Documents and Settings\Administrateur\Bureau\Anciens élus(2).xlsm", sQLStatement:="SELECT * FROM [Feuil3$]"
.ActiveDocument.MailMerge.Destination = wdSendToNewDocument
.ActiveDocument.MailMerge.Execute
End With