Discussion :

[jojo86]

Bonsoir,
Je créer sur une Feuille excel, des checkbox de manière dynamique.

Les ajout de ligne et donc de checkbox sont fait par un Userform.
Je voudrais pouvoir supprimer une ligne par userform.

J'ai fait une macro qui fonctionne mais de manière aléatoire... Lorsqu'on supprime une ligne, un code s'occupe de renommer les checkbox qui sont placés en dessous de la ligne supprimée.

Parfois, j'ai quelques checkbox qui ne sont pas renommés, vous avez une idées?

[jfontaine]

Bonjour,

Parfois, j'ai quelques checkbox qui ne sont pas renommés, vous avez une idées?

Bah non

Sans code, pas de réponse

[jojo86]

C'est le code classique en fait...

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
 
Sub test(LineHaut as integer, NomCheck As String)
Dim Objet2 As OLEObject
        Set Objet2 = ActiveSheet.OLEObjects.Add("Forms.CheckBox.1")
        With Objet2
            .Top = Cells(LineHaut, 1).Top + 0.75
            .Left = Cells(LineHaut, 1).Left + 2
            .Name = NomCheck
            .Width = 298
            .Height = HteurCheck '- 3
            .PrintObject = False
            .Object.Caption = Cells(LineHaut, 1)
            .Object.Font.Bold = True
            .Object.Font.Size = 12
            .Object.BackStyle = 0
            .Object.Value = "False"
        End With
End Sub

...Sauf que ce code Lancé 20 fois de suite ne marche pas à chaque fois... Parfois en propriété Name j'ai "Checkbox1" au lieu d'avoir le nom...

[jfontaine]

je viens d'essayer ton code avec une modif sur la hauteur de l'objet

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
Sub test(LineHaut As Integer, NomCheck As String)
Dim Objet2 As OLEObject
        Set Objet2 = ActiveSheet.OLEObjects.Add("Forms.CheckBox.1")
        With Objet2
            .Top = Cells(LineHaut, 1).Top + 0.75
            .Left = Cells(LineHaut, 1).Left + 2
            .Name = NomCheck
            .Width = 298
            .Height = 20
            .PrintObject = False
            .Object.Caption = NomCheck 'Cells(LineHaut, 1)
            .Object.Font.Bold = True
            .Object.Font.Size = 12
            .Object.BackStyle = 0
            .Object.Value = "False"
        End With
End Sub

lancé avec cette boucle, et pas de problème, le nom est ok sur 50 lignes

Code :

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

1
2
3
4
5
6
 
Dim i As Integer
 
For i = 1 To 50
    test i, "chk" & i
Next

[BlueMonkey]

Bonsoir,

Je ne pense pas que le problème soit dans l'insertion de bouton seul.

Lorsqu'on supprime une ligne, un code s'occupe de renommer les checkbox qui sont placés en dessous de la ligne supprimée.

Je pense que le problème est lié à la suppression, puis à la réutilisation du nom.

Est-ce que tu peux vérifier que le nouveau nom que tu veux donner en ligne 8, de Sub test() est bien disponible ?

[jojo86]

En vérité, mon code est beaucoup plus complexe qu'une simple boucle...

Mais je suis sur des noms que j'envois à la procedure.
Je test les valeurs avec debug.Print, je contrôle tout ce que j'envois et après la macro, je controle les noms des checkbox et il y en a qui ne portent pas le bon nom...

J'ai peut être une solution alternative... Très tordue, mais est-il possible d'executer une macro que l'on vient juste de créer dynamiquement? par exemple (purement à titre d'exemple) :

Code :

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

1
2
3
4
Sub test()
CreationMacro("NomMacro")
Call NomMacro
End Sub

Merci !

Je pense que le problème est lié à la suppression, puis à la réutilisation du nom.

Est-ce que tu peux vérifier que le nouveau nom que tu veux donner en ligne 8, de Sub test() est bien disponible ?

Oui il est forcement disponible, puisqu'en cas de doublons, je renomme un checkbox en NOM_OLD...

[BlueMonkey]

Oui il est forcement disponible, puisqu'en cas de doublons, je renomme un checkbox en NOM_OLD

Le symptôme d'avoir un checkbox avec le nom par défaut (CheckBox1) semble indiqué qu'un changement de nom n'a pas fonctionné.
Une des causes probables est que le nom existe déjà.
Utiliser un autre nom unique NOM_OLD (indépendamment du fait que ça ne figure pas dans le code exemple) ne permet pas d'exclure
que ce second nom également existe déjà.

Plutôt que de renommer les boutons, ou de créer du code dynamiquement, pourquoi ne pas utiliser tout simplement un tableau de CheckBox
avec pour indice le numéro de ligne ?

[jojo86]

Quand tu parles de tableau, tu penses à une variable tableau?
Sinon, mes check porte déjà l'indice de la ligne... exemple : "Line3" ou "Line12"

Je ne sais plus comment faire...
Pour le tableau de checkBox, merci de me dire si tu penses à une variable tableau. Si oui comment la déclarer? (Dim Tableau() As...)
Sachant que le nombre de ligne est totalement dynamique...

[BlueMonkey]

comment la déclarer

Pour stocker les Checkbox créés :

Code :

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

1
2
    Dim CheckBoxs(10) As Object
    Set CheckBoxs(<index>) =    ActiveSheet.OLEObjects.Add("Forms.CheckBox.1")

Pour savoir s'il est coché ou non :
CheckBoxs(<index>).Value True/False

Pour redimensionner dynamiquement le tableau sans perte de contenu
ReDim Preserve CheckBoxs(<nouvelle taille>)

[jojo86]

Bien vu pour le redim PRESERVE j'etais sur qu'il fallait perdre toutes les données lors du redimensionnement.

Par contre, pour remplir mon tableau je suis obligé de le remplir de 0 a 9 ( si je reprend ton exemple...) ou bien je peux plager 9 valeur avec n'importe quel indice???
Car ma feuille sur laquelle sont crées les checkboxs, peux contenir des lignes vides...

Merci!

[BlueMonkey]

pour remplir mon tableau je suis obligé de le remplir de 0 a 9 ( si je reprend ton exemple...) ou bien je peux plager 9 valeur avec n'importe quel indice???

Comme n'importe quel tableau, les indices vont de 0 à UBound(tableau).
voir FAQ sur les tableaux

Car ma feuille sur laquelle sont crées les checkboxs, peux contenir des lignes vides...

Rien ne t'oblige à affecter un CheckBox à chaque indice de ton tableau.