XL 2010 Enregistrement donné case à cocher dans un Userform

_Thierry

XLDnaute Barbatruc

Repose en paix

• 23 Mai 2020

• #2

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

 

Pièces jointes

• XLD_LosPlainas_Exemple_CheckBox_OptionButton_USF.xlsm

  19.4 KB · Affichages: 16

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 23 Mai 2020

• #3

LosPlainas à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• XLD_LosPlainas_Exemple_CheckBox_OptionButton_USF_v01.xlsm

  28.9 KB · Affichages: 10

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 23 Mai 2020

• #4

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 !

 

Vote positif 0 Vote négatif

L

LosPlainas

XLDnaute Nouveau

• 23 Mai 2020

• #5

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

 

Vote positif 0 Vote négatif

L

LosPlainas

XLDnaute Nouveau

• 24 Mai 2020

• #6

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.

 

Vote positif 0 Vote négatif

L

LosPlainas

XLDnaute Nouveau

• 24 Mai 2020

• #7

@_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?

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 24 Mai 2020

• #8

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

 

Pièces jointes

• XLD_LosPlainas_Exemple_CheckBox_OptionButton_USF_v02.xlsm

  23.2 KB · Affichages: 21

Vote positif 0 Vote négatif

L

LosPlainas

XLDnaute Nouveau

• 24 Mai 2020

• #9

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Mai 2020

• #10

bonsoir
en passant vite fait

VB:

 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

 

Vote positif 0 Vote négatif

L

LosPlainas

XLDnaute Nouveau

• 24 Mai 2020

• #11

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Mai 2020

• #12

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

 

Vote positif 0 Vote négatif

L

LosPlainas

XLDnaute Nouveau

• 24 Mai 2020

• #13

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.

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 24 Mai 2020

• #14

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Mai 2020

• #15

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é

 

Vote positif 0 Vote négatif