Checkbox Bug changement de nom

Version imprimable

05/02/2012, 20h08
jojo86

Checkbox Bug changement de nom

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?
05/02/2012, 20h11
jfontaine

Bonjour,

Citation:

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

Bah non :P

Sans code, pas de réponse:koi:

C'est le code classique en fait...

Code:

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

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

Code:

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:

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

05/02/2012, 21h50
BlueMonkey

Bonsoir,

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

Citation:

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 ?
05/02/2012, 21h57
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:

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

Citation:

Envoyé par BlueMonkey

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...
05/02/2012, 22h18
BlueMonkey

Citation:

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 ?
05/02/2012, 22h45
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...
05/02/2012, 22h59
BlueMonkey
Citation:

comment la déclarer

Pour stocker les Checkbox créés :
Code:

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>)
05/02/2012, 23h14
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!
05/02/2012, 23h26
BlueMonkey

Citation:

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

Citation:

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. ;)