Discussion :

[bouams31]

Bonjour à tous,

Voilà ce que je dois arriver à faire:

suivant les cases cocher par l'utilisateur dans le userform, je dois pouvoir renvoyer dans une cellule du tableau un code formé de lettre.

exemple:
si :à la case "femme" est associée la lettre "e"
à la case "homme" est associée la lettre "k"
à la case "jeans" est associée la lettre "m"
à la case "sport" est associée la lettre "p"
et que l'utilisateur coche "femme" et "jeans", je dois renvoyer dans une cellule précise de ma feuille la chaine de caractere "em".

Merci de me transmettre vos idées!

[Daniel.C]

Bonjour,

Pour récupérer le résultat en A1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Me.chkbxFemme = True Then [A1] = "e"
If Me.chkbxHomme = True Then [A1] = "k"
If Me.chkbxJeans = True Then [A1] = [A1] & "m"
If Me.chkbxSports = True Then [A1] = [A1] & "p"

Tu auras vérifié au préalable que la saisie était correcte.

[bouams31]

Merci d'avoir répondu.

Vous m'avez donné une idée. Je vous tiens au courant.

Cordialement.

[gFZT82]

Bonjour,

Tu as intérêt à utiliser des boutons d’option si tu dois faire un choix unique parmi plusieurs options (homme, femme par exemple) et des cases à cocher pour des choix multiples.
Tout dépend de la finalité de ton traitement.
Exemple : peux-tu avoir la combinaison ekmp ?

Cordialement.

[bouams31]

Bonjour,

Oui, je peux avoir la combinaison ekmp. Ici, homme femme ne correspond pas au sexe de l'individu, mais fait partie d'un ensemble de 10 cases à cocher.

j'ai réussi à "exporter" la combinaison correspondant au choix de l'utilisateur (les cases qu'il a cocher) dans une cellule.
Maintenant, je dois chercher une solution qui fasse le chemin inverse :
lorsque l'utilisateur va vouloir modifier une fiche client, il va choisir la fiche, et le contenu des cellules correspondant à la fiche choisi doit remplir les textbox des userform. Pour ca normalement ya pas de prob. MAIS, je ne vois pas comment lui précocher les cases dans le userform lorsque le programme trouvera dans la cellule la combinaison, par ex "ekmp"...
Jai envie de dire au programme "si dans cette cellule, tu trouves cette lettre, coche cette checkbox".

Any suggestion?

[gFZT82]

Tu peux faire cela avec la fonction Mid

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Test()
Dim Chaine As String
    Chaine = "ekmp"
    For i = 1 To Len(Chaine)
        Temp = Mid(Chaine, i, 1)
        Select Case Temp
        Case "e"
            Texte = "femme"
        Case "k"
            Texte = "homme"
        Case "m"
            Texte = "jeans"
        Case "p"
            Texte = "sport"
        End Select
        MsgBox "Je coche la case " & Texte
    Next
End Sub

Cordialement.

[ZebreLoup]

Il y a aussi la fonction InStr qui évite une boucle...

[bouams31]

Merci beaucoup !

A très bientôt pour de nouvelles questions !