XL 2010 Enregistrement donné case à cocher dans un Userform

[LosPlainas]

Bonjour,
Novice en VBA, je souhaiterais savoir comment faire dans le paramétrage de mon Userform pour qu'il exporte les caption des case à cocher sélectionner dans une feuille excel après avoir renseigné son nom et cliquer sur un bouton.
Je sais que j'en demande beaucoup mais j'ai vraiment du mal tout seul...
Merci

 

[_Thierry]

Bonjour @LosPlainas , le Forum

Un petit exemple de base pour débuter. Je pense que tu comprendras vite.
J'ai mis aussi deux OptionButtons pour que tu cernes la différence.

Bien à toi, à vous
@+Thierry

 

[_Thierry]

sélectionner dans une feuille excel après avoir renseigné son nom

Re j'avais mal lu cetté étape, voici une version v01 qui va "jouer" avec les feuilles...
(Taper le nom de feuille dans une TextBox est trop aléatoire et on doit géréer les erreurs si le user tape n'importe quoi)

Bonne découverte
@+Thierry

 

[_Thierry]

Re je constate une erreur avec les copiéscollés,

Remplacer cette partie :

With ThisWorkbook.Worksheets(ListBox1.Value)
.Range("B1") = Me.TextBox1
.Range("B2") = Me.CheckBox1
.Range("B3") = Me.CheckBox1
.Range("B4") = Me.CheckBox1
.Range("B5") = Me.OptionButton1
.Range("B6") = Me.OptionButton2
End With

@+Thierry

PS c'est pour voir si tu suis ! 😉

 

[LosPlainas]

Je suis mais je n'ai pas le pc entre les mains, je vous tiens au courant dès que je peux utiliser tout ça. En tout cas, merci pour la réactivité.😉😉

 

[LosPlainas]

Merci beaucoup Thierry.
Je vais déjà essayer de travailler sur ce que tu m'a envoyer, je confirme que tu avais bien compris ma demande au 1er essai.
Je reviens vers vous vraiment si je galère.

 

[LosPlainas]

@_Thierry,
Est ce qu'il est possible d'enregistrer les valeurs des case à cocher dans 1 seule cellule (séparation par virgule ou autre pour séparer le texte) et aussi que lorsqu'on fait une nouvelle saisi que ça n'écrase pas l'enseigne mais plutôt que ça bascule sur une autre feuille?

 

[_Thierry]

Bonjour @LosPlainas , le Forum

Voici une autre mini-démo qui prend en compte tes problématiques du post #7.
Je laisse au choix, deux buttons, soit d'ajouter une ligne, soit d'ajouter une feuille...

Bonne découverte
Bon dimanche
@+Thierry

 

[LosPlainas]

OH grand maitre @_Thierry
Qu'est ce que j'aimerai maitriser ça comme vous!!
😀
Je n'arrive pas à changer les valeurs récupérés.
Je voudrais récupérer ce qu'il y a dans Caption (ou name...) si elles sont cochés et rien quand elles sont décochées...
Je suis exigeant mais j'espère être à la hauteur du défi relevé..
Bonne soirée

 

[patricktoulon]

bonsoir
en passant vite fait

 With WS
        .Range("A" & L) = Me.TextBox1
        .Range("B" & L) = Me.CheckBox1
        .Range("B" & L) = Application.Rept(Me.CheckBox1.Caption, Abs(CheckBox1.Value)) & _
                       Application.Rept("," & Me.CheckBox2.Caption, Abs(CheckBox1.Value)) & _
                       Application.Rept("," & Me.CheckBox3.Caption, Abs(CheckBox1.Value))
    End With

 

[LosPlainas]

Merci @patricktoulon
mais dans 1 de mes userform j'ai jusqu’à 74 checkbox...
je pense que ça va être long à taper ça??

 

[patricktoulon]

re

exemple
dim texte$
for i= 1 to 74
texte=texte & Application.Rept(Me.controls("CheckBox" & i) .Caption, Abs(me.controls("CheckBox"& i).Value))
next
.Range("B" & L) = texte

espérons que ta cellule "B"(L) soit assez grande 😉

 

[LosPlainas]

Je t'explique vite fait, c'est pour faire l'inventaire de véhicule, les case à cocher sont sélectionnées uniquement si l'objet est manquant, et dans ce type de véhicule, il vaut mieux qu'ils ne manque pas grand chose donc la taille de B est largement suffisante.

 

[_Thierry]

Bonsoir @ tous

Bloody Hell, je n'ai jamais vu cette Function Rept de toute ma vie de bidouilleur Excel/VBA... Et même si j'étais tombé dessus jamais je n'en aurai tiré une utilité quelconque !

Et de là à l'utiliser de cette manière, chapeau Patrick !!!
Il n'y a pas que LosPlainas qui apprend des trucs ici 😉

Bien à toi, à vous
@+Thierry

 

[patricktoulon]

re
bonsoir thierry

oui ça m’évite de faire des if else et le ABS du boolean qui me donne soit 0 soit 1 ben t'a compris, et j’inclue bien sur la virgule dans le repeat(1 ou 0) afin de ne pas avoir de virgule+vide successif
d'ailleurs je l'ai oublié
texte=texte & Application.Rept(Me.controls("CheckBox" & i) .Caption &",", ABS.......
en gros c'est une méthode que j'emploie beaucoup pour réduire de ligne répétitives

assez simple comme concept 😉

y parait que c'est avec ce genre de cabriole que l'on reconnais ma signature 😛😛😛
je vous montrerais bien comment je fait exactement la même chose avec les mêmes outils mais sans boucle

mais bon très occupé sur la finalisation du prOject ribbonUI Qui a très grandement avancé 😉