Discussion :

[cbredeche]

bonjour

j 'ai crée un userform ,pour ce qui est des menu liste déroulante pas de souci a l'affectation de la rowsource mais des lors que je valide il y a une erreur.

je voudrais que chaque choix dans ma frame 1 et frame 5 option 1-2-3 ou 4 se multiplier et le résultat dans état "textresuetat"

exemple :pour mesure état équipement 1*3*4=12

et aussi toute les textbox aille cherché les données dans la "donné équipement " sauf la date amdec

dès lors que je valide cela incrémente dans le "tableau recap" les lignes a la suite.

je vous joints le fichier via le lien

http://www.cjoint.com/c/FKpivEK1Mlw

merci pour tous
je vous joins le fichier

[cbredeche]

bonjour
j ai progresser dans sur mes problèmes a la validation des données dans mon userform

mais la je ne comprend passur les optionbuttons
chaque valeur est copier dans un texte box mais il ne s'affiche que dans le premier text box."etat phisique"

de plus je n'arrive pas a faire la multiplication des 3 textbox et que le résultat s'affiche dans état
bien sur idem pour frame 5


et aussi toute les textbox aillent cherché les donnése dans la feuille 1 "donne équipement " via le choix de l’équipement "COMEQUI"

dès lors que je valide cela incrémente dans le tableau recap les lignes a la suite cela marche mais ce incrémente pas un numéro d'ordre "id"

merci pour tous

je vous joins le fichier


http://www.cjoint.com/c/FKpoTwNs3gw

[geogeo70]

bonsoir,

en regardant votre code, je pense que la cascade de if...then... ne peut repondre à votre problème. Je vous propose de traiter les optionbuttons par leur procédure événementielle _change ce qui permet de définir le textbox correspondant sans calcul particulier :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub OptionButton1_Change()
 
Dim i As Integer
i = 0
Do Until Frame2.Controls(i).Value
    i = i + 1
Loop
Frame2.Controls("textbox1").Value = i + 1
 
End Sub

J'ai répété ce code pour chaque bouton et ça fonctionne. (bien sûr en changeant les index...)
Mon fichier :
fiche.xlsm

cordialement
geogeo

[cbredeche]

merci beaucoup