export valeurs checkbox vers tableau sans doublons

[misteryann]

Bonjour au forum.

j'ai cherché un peu partout, mais aucune réponse ne convient à ce que je souhaite.

Je voudrais transférer les valeurs de checkbox vers un tableau sans doublons.

Dans la version finale les 20 checkbox auront des valeurs différentes en fonction de cellules et le tableau sera (un peu) plus grand.

Merci d'avance pour votre aide.
Bonne journée.

 

[Dranreb]

Re : export valeurs checkbox vers tableau sans doublons

Bonjour.

Je voudrais transférer les valeurs de checkbox vers un tableau sans doublons.

Le reste de vos explication tendrait à montrer que vous voudriez plutôt transférer les Caption de ceux qui sont cochés, non ?

 

[misteryann]

Re : export valeurs checkbox vers tableau sans doublons

Bonjour Bernard🙂
Oui c'est tout à fait ça.

 

[Dranreb]

Re : export valeurs checkbox vers tableau sans doublons

Comme ça ?

Option Explicit
Dim C&
Private Sub CommandButton2_Click()
Dim N&, Chk As MSForms.CheckBox, L&, Ts(1 To 12, 1 To 1)
For N = 1 To 12
   Set Chk = Me("CheckBox" & N)
   If Chk.Value Then L = L + 1: Ts(L, 1) = Chk.Caption: Chk.Value = False
   Next N
C = C + 1: Feuil2.Cells(1, C).Resize(12) = Ts
End Sub

 

[misteryann]

Re : export valeurs checkbox vers tableau sans doublons

Merci.
Mais rien ne se passe.
J'ai renommé "Feuil2" en sheets ("Liste"), mais rien.

Cordialement

 

[Dranreb]

Re : export valeurs checkbox vers tableau sans doublons

Chez moi si, il se passe qu'à chaque clic sur le bouton Suivant (il n'y avait pas de procédure pour le bouton Valider) les Caption des CheckBox coché sont empilés dans une colonne de la feuille "Liste" puis décochés.

 

[misteryann]

Re : export valeurs checkbox vers tableau sans doublons

je renvoie le classeur modifié.
rien ne se passe pour moi...

 

[Dranreb]

Re : export valeurs checkbox vers tableau sans doublons

Ben évidemment puisque vous avez laissé (DEVANT en plus !) les instructions qui remettent à 0 les CheckBox

 

[misteryann]

Re : export valeurs checkbox vers tableau sans doublons

Merci.
Désolé pour mon ignorance 🙂

J'ai testé mais il reste un soucis: je coche toutes les checkbox, validation: ok pas de soucis
je coche d'autres checkbox, validation et là les valeurs de la colonne A sont remplacées.

 

[Dranreb]

Re : export valeurs checkbox vers tableau sans doublons

Avec le bouton Suivant il il les met dans une nouvelle colonne chaque fois. Mais bien sûr au ré-affichage du Userform il recommence tout à 0.

 

[misteryann]

Re : export valeurs checkbox vers tableau sans doublons

Ok bien compris.
Un problème subsiste: celui des doublons.
Je sais que j'en demande beaucoup mais le but est d'éviter aussi les doublons: si A (ou B etc.) est présent dans une colonne, il s'agit d'éviter de le remettre dans une nouvelle colonne.

Merci pour votre patience

 

[Dranreb]

Re : export valeurs checkbox vers tableau sans doublons

Mettez derrière Chk.Value = False: Chk.Enabled = False

 

[misteryann]

Re : export valeurs checkbox vers tableau sans doublons

Puis je vous envoyer le classeur original pour voir le soucis?

 

[Dranreb]

Re : export valeurs checkbox vers tableau sans doublons

Pourquoi ? Rendre inutilisables les CheckBox qui on été cochés dans les colonnes précédentes n'empêche-t-il pas les doublons ?

 

[misteryann]

Re : export valeurs checkbox vers tableau sans doublons

Si, sauf que ces checkbox doivent - être réutilisables.
En fait, c'est un bouquin de recette qui affiche dans une Userform la recette dans une textbox et les ingrédients dans les checkbox.
Vous l'avez donc compris: je clique sur les checkbox qui incrémentent la liste des courses.

Sauf que dans la liste, je ne souhaite pas voir deux fois les mêmes ingrédients.

Peut-être qu'une page temporaire dans laquelle se mettraient tout les ingrédients et un bouton "Editer la liste" faisant le tri des doublons dans cette page feraient l'affaire.
J'y ai pensé, mais pas assez calé (loin de là) en VBA.

Merci d'avance