Code vba pour créer des éléments de formulaires

Version imprimable

18/02/2014, 17h08
Novice_vba

Code vba pour créer des éléments de formulaires

Bonjour,

Je voudrais créer un code vba où, en fonction d'un nombre d'éléments variable à chaque fois que la macro se lancera, il apparaisse autant de cases à cocher pour chaque ligne de mon tableau excel sur la colonne A.
Ceci permettra notamment à l'utilisateur de cocher certaines de ces cases, puis de réappuyer sur un autre bouton pour faire continuer la macro.

Pour autant, je ne sais pas du tout comment faire. Je sais coder la seconde partie, où le code vba réagit en fonction des cases à cocher, mais je ne sais même pas s'il est possible de faire en sorte que le code vba crée des éléments de formulaire.

Est-ce au moins faisable ?
Si non, une autre possibilité serait de demander à l'utilisateur d'écrire par exemple ok sur la colonne A du tableau pour chaque ligne qu'il veut sélectionner, mais c'est bien moins élégant et simple d'utilisation.

Je vous remercie,
Novice_vba
18/02/2014, 18h57
electrons

Bonsoir,

Ta demande n'est pas très claire :

Citation:

il apparaisse autant de cases à cocher pour chaque ligne de mon tableau excel sur la colonne A.

et la suite pas beaucoup plus même si une idée lointaine est apparue.
Si tu exécutes ta macro une fois, il est toujours possible de l'exécuter une 2ième fois et une 3ième et ....
Tu peux pratiquement tout faire en programmation....
Pourrais-tu expliquer plus en détails ton problème et ce que tu veux réellement faire?

citation :

Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions.
Confucius:(
19/02/2014, 16h22
Novice_vba

Bonjour electrons,

L'utilisateur devra cliquer sur un bouton pour lancer la première macro. Mon premier code va faire apparaitre un certain nombre de lignes sur un tableau excel.

J'aimerais que l'utilisateur puisse ensuite sélectionner les lignes qui l'intéressent dans le fichier excel, en les cochant.

Ceci permettra de lancer une seconde macro qui va traiter les lignes préalablement sélectionnées par l'utilisateur.

Est-ce plus clair ?

Merci,
Novice_vba

Bonjour,

Une piste.
Pour la création des cases à cocher :

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
 
Private Sub Case_a_Cocher()
 
    Dim Chk As OLEObject
    Dim Plage As Range
    Dim I As Integer
 
    With ActiveSheet 'en colonne A
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
 
    'crée les cases à cocher
    For I = 1 To Plage.Count
 
        Set Chk = ActiveSheet.OLEObjects.Add("Forms.CheckBox.1")
 
        With Chk
 
            .Name = "Chk" & I
            'à la dimension de la cellule en cours
            .Left = Plage(I).Left
            .Top = Plage(I).Top
            .Width = Plage(I).Width
            .Height = Plage(I).Height
            .Object.Caption = Plage(I)
 
        End With
 
 
    Next I
 
End Sub

pour récupérer l'adresse de la case à cocher correspondant à la cellule sur laquelle elle se trouve :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Choix()
 
    Dim Chk As OLEObject
 
    For Each Chk In ActiveSheet.OLEObjects
 
        If TypeName(Chk.Object) = "CheckBox" Then
 
            If Chk.Object.Value = True Then
 
                MsgBox Chk.TopLeftCell.Address(0, 0)
 
            End If
 
        End If
 
    Next
 
End Sub

Hervé.

20/02/2014, 09h00
Novice_vba

Merci beaucoup !

Je vais regarder ça