Extraire les valeures d'un Textbox vers des cases à cocher

[ascal44]

Bonjour , je voudrais extraire des valeures d'un textbox pour les mettre dans des cases à cocher.
Une fois les cases cochées remettre leurs valeures à leurs emplacement dans un tableau.

Je joint un fichier

Merci pour votre aide sur ce sujet compliqué

 

[Bebere]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

bonjor ascal
une 1ère réponse,avec module de classe,coché inscrit,décoché efface
bien entré les données dans la textbox(ex: A1 B1 C1 D1)etc
à bientôt

 

[Bebere]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

oups, le fichier

 

[ascal44]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

Bonjour Bebere beau travail pour le premier jet :

Mais pourquoi quand je coche les textboxs les valeures ne vont se placer dans leurs cellules respectives ? ( A3 en ligne 1 du tableau)

Et aussi je voudrais seulement faire disparaitre les valeures cochées dans le Textbox1.

Pourriez vous me commenter les codes afin que puisse l'adapter ? ( Mon tableau se trouve en BA2:BD16 )

 

[Bebere]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

bonjour Ascal
sorry
dans le module de classe tu remplaces L = Mid(ButtonGroup.Name, 9)
L = Mid(ButtonGroup.Caption, 2)

je regarde pour la suite

à bientôt

 

[Bebere]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

bonjour Ascal
une version plus complète
à bientôt

 

[ascal44]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

Bonjour Beberre ,

votre fichier correspond à mon attente.
Il ne me reste plus qu'à l'adapter sur mon classeur.

Merci beaucoup

 

[ascal44]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

Re bonjour ,
j'ai essayé d'appliquer vite fait les codes.
Je tombe sur une erreur de compilation en pièce jointe.

Comment résoudre cette erreur ?

 

[Bebere]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

Ascal
regarde dans la feuille userform si tu as
Option Explicit'oblige à déclarer les variables
Dim Buttons() As New Classe1'tableau qui contient les checkbox
dans module de classe qui doit s'appeler Classe1
Public WithEvents ButtonGroup As MSForms.CheckBox

Private Sub CommandButton1_Click() 'bebere
Dim I, Obj, L As String, g, s, d, h, e, a, b, C, dd
If TextBox1 = "" Then Exit Sub
'tu ajoutes cette ligne,tu peux entrer des minuscules
TextBox1 = UCase(TextBox1)
à bientôt

 

[ascal44]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

Bonjour , les délarations sont bien présentes.
Mais sauf pour :

Option Explicit

Dim Buttons() As New Classe1

Private Sub CommandButton1_Click()
    Dim I, Obj, L As String, g, s, d, h, e, a, b, C, dd
      
    If TextBox1 = "" Then Exit Sub
    Chaine = TextBox1
    Tbl = Split(TextBox1, " ")
    TblEnleve = Tbl
    For I = 0 To UBound(TblEnleve)
        TblEnleve(I) = ""
    Next I
    For I = 0 To UBound(Tbl)
        L = Left(Tbl(I), 1)
        Select Case L
        Case "A"
            a = a + 1
            Set Obj = Me.Controls.Add("forms.CheckBox.1")
            d = 40    'widht
            h = 20    'height
            s = 50 + h * a    'top
            g = 30    'left

        Case "B"
            b = b + 1
            Set Obj = Me.Controls.Add("forms.CheckBox.1")
            d = 40    'widht
            h = 20    'height
            s = 50 + h * b    'top
            g = 30 + d    'left

        Case "C"
            C = C + 1
            Set Obj = Me.Controls.Add("forms.CheckBox.1")
            d = 40    'widht
            h = 20    'height
            s = 50 + h * C    'top
            g = 30 + d * 2    'left
        Case "D"
            dd = dd + 1
            Set Obj = Me.Controls.Add("forms.CheckBox.1")
            d = 40    'widht
            h = 20    'height
            s = 50 + h * dd    'top
            g = 30 + d * 3    'left

        End Select

        With Obj
            .Caption = Tbl(I)
            .Left = g: .Top = s: .Width = d: .Height = h
        End With

        VBA.UserForms.Add (Me.Name)
    Next

    IniCheckbox

End Sub

J'avais mis :

Dim chaine as String

Lorsque je clic sur le bouton les Checkbox n'apparraissent pas

 

[Bebere]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

hello Ascal
quelle version as-tu d'excel
à bientôt

 

[ascal44]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

Bonjour Beberre ,
j'ai Excel 2003

 

[Bebere]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

bonjour Ascal
j'ai aussi 2003
je viens d'essayer, pas de problème
tu peux supprimer Chaine = TextBox1
'tu ajoutes cette ligne,tu peux entrer des minuscules
TextBox1 = UCase(TextBox1)

met ton fichier

à bientôt

 

[ascal44]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

Bonsoir Beberre ,
aprés un dur week end j'ai réussi à adapter votre travail.
Juste une question comment puis je faire disparaitre les Checkboxs pour refaire une autre sélection après :

Private Sub TextBox1_Change()



End Sub

 

[Bebere]

Re : Extraire les valeures d'un Textbox vers des cases à cocher

bonjour Ascal
tu crées un bouton,attention supprime les objets créés dynamiquement
Private Sub CommandButton3_Click() 'supprime checkbox
Dim ctrl As Control

For Each ctrl In Me.Controls
If TypeName(ctrl) = "CheckBox" Then
Me.Controls.Remove ctrl.Name
End If
Next

End Sub
à bientôt