Discussion :

[Novice_vba]

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

[electrons]

Bonsoir,

Ta demande n'est pas très claire :

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

[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

[Theze]

Bonjour,

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

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
 
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 :

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
 
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é.

[Novice_vba]

Merci beaucoup !

Je vais regarder ça