Nouvelle fonction string

Version imprimable

07/06/2012, 10h41
bouams31

Nouvelle fonction string

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!

Bonjour,

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

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.

07/06/2012, 11h28
bouams31

Merci d'avoir répondu.

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

Cordialement.
07/06/2012, 11h33
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.
07/06/2012, 14h26
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? :)

Tu peux faire cela avec la fonction Mid

Code:

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.

07/06/2012, 15h32
ZebreLoup

Il y a aussi la fonction InStr qui évite une boucle...
07/06/2012, 16h10
bouams31

Merci beaucoup !
:)
A très bientôt pour de nouvelles questions !