je m'enbrouille please , help me

Question

Salut @ tous,

j'ai créer un tableau4 qui contient des n° de dents, les 18;28;38;48 sont les dents de sagesse.

Je souhaite insérer dans un label ex:
La dent de sagesse 18 est non visible. (au singulier)
le probléme est au pluriel du genre :

Les dents de sagesses 18 , 28 , 38 sont non visibles. (au pluriel)

voici mon code source et si vous avez une idée pour améliorer se serai super sympa...

' plan_traitement

plog$ = ""
3077 plog$ = " Extractions : " + W$ + Chr$(13)
3080 If AO > 0 Then plog$ = plog$ + " Pose barre palatine. " + Chr$(13)
3085 If AL > 0 Then plog$ = plog$ + " Retard extraction prémolaire " + Chr$(13)
fgh$ = AT
3087 If AT > 6 Then plog$ = plog$ + " Revoir le plan trop de CL III !!!" + Chr$(13)
3090 If AT > 0 Then plog$ = plog$ + " Préparation d'encrage " + fgh + " mois" + Chr$(13)3095 If AN > 0 Then fgh (AN * 6): plog$ plog$ + " Port du headgear " + fgh + " mois" + Chr$(13)
3097 If AI = 0 Then GoTo 31053100 If APE < 0 And APE AG Then plog$ plog$ + " Ancrage major" + Chr$(13)3105 If APE AD Then plog$ plog$ + " Ancrage régular" + Chr$(13)
3110 BS = (-AX + ASE - AE - AO - AL - AN) / 2 'Qui est AS
dfg$ = BS
3120 If AW < 0 Then plog$ = plog$ + " Espace à sauver : " + dfg + "mm. par cote" + Chr$(13)

' dents de sagesse ******************************************************************************************** If Module1.tableau4(18) False Then V18 "18" Else V18 = "" If Module1.tableau4(28) False Then V28 "28" Else V28 = "" If Module1.tableau4(38) False Then V38 "38" Else V38 = "" If Module1.tableau4(48) False Then V48 "48" Else V48 = ""

sing1$ = "La dent de sagesse "
sing2$ = "est non visible."
pluriel1$ = "Les dents de sagesse "
pluriel2$ = "Sont non visibles. "

' je me casse la t^te pour trouver un moyen de détecter si il y a une seule ou plusieures dents, puis insérer les variables sing1 , pluriel1.

rlog$ = pluriel1 + V18 + " " + V28 + " " + V38 + " " + V48 + pluriel2

plog$ = plog$ + Chr$(13) + Chr$(13) + rlog$

plan_traitement.label_caract.Caption = plog$

'***************** Fin du caracteristique du traitement *****************
Merci d'avance pour votre aide @+ ALEX001

Pendant ce temps je vais essayer de trouver la soluce a ce probléme. :blush)

eltaris · Answer

Apparemment il suffit de faire ceci :


dim compteur as integer
dim message as string 
compteur = 0 
If Module1.tableau4(18) = False Then 
    V18 = "18" 
    compteur = compteur+ 1 
Else 
    V18 = ""
end if

'... pareil avec 28, 38 et 48

if compteur > 1 then
    message = sing1$ & V18 & " " & V28 & " " & V38 & " " V48 & sing2$
else
    message = pluriel1$ & V18 & " " & V28 & " " & V38 & " " V48 & pluriel2$
end if



voilà,  :clown)

Je m'enbrouille please , help me

1 réponse