bonsoir tout le monde.
un petit iatus que je ne m'explique pas. si quelqu'un sait, je suis preneur.
j'utilise plusieur controle togglebutton. je les utilse sous cette forme pour rechercher leur valeur qui me sert de condition
cela marche tres bien, et ce qui est important en l'occurence, leur valeur est déclarée en public.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 for i = 1 to 7 Select Case Controls("ToggleButton" & i).Value Case False ' calcul a la piece If IsNumeric(Controls("nbheure" & i)) And Not Controls("horaire" & i).Value = "" Then _ Controls("prixparheure" & i) = Round(tarifforfaits(Controls("horaire" & i).ListIndex + 1, 1) * Controls("nbheure" & i), 2) Case True 'calcul en cas de cout par production If IsNumeric(Controls("nbheure" & i)) And Not Controls("horaire" & i).Value = "" And IsNumeric(nbpiece) Then _ .... next i
par contre, dans une autre macro du meme uservorm, je souhaite écrire leur valeur (pour mémoire) dans une cellule.
j'tilise le meme principe
et la , au lieu d'obtenir la valeur false ou true, je n'obtien que 0 a chaque fois. du coup, je ne sais pas quoi faire, pour conserver la mémoire de position de ces bouton. si un esprit bienveillant pouvait me trouver une réponse, merci a lui
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 For i = 16 To 22 Cells(n, i + 14) = Controls("ToggleButton" & i - 15).Value Next i
Partager