XL 2013 Simplifier calculs de textbox (résolu)

[Cougar]

Joyeux Noel le forum,

J'ai plusieurs textbox qui me servent à ajouter des données. Dans d'autres je fais un calcul automatique (formule).

Est-il possible de simplifier la façon de faire les calculs pour tous les textbox et dois-je les faire manuellement comme dans le fichier joint. Je n'ai fait qu'une partie.

Merci

 

[ChTi160]

Re
OUPPPPSSSS , Le fil est Clos
mais je poste le fichier la ou j'en étais et je passe à autre chose Lol
Bonne fin de Soirée
Amicalement
Jean marie

 

[ChTi160]

Bonjour
Bonjour Le Fil(Bebere) ,Le Forum
Question : Pour pas mourir idiot Lol
pourquoi n'y a t'il pas pour les noms Remy 1 Remy 2 par ex
Comme : AVE et Tetra 3-4-8
Jour|Soir|Nuit|24 hres
mais
Nuit 24H |Jour 24H |vide|24 hres
Autre question :
à quoi correspond ?
Ex : If ComboBox2 = "Jour" Then
ActiveCell.Offset(6, 2) = TextBox5.Value / 100
ActiveCell.Offset(8, 2) = TextBox10.Value / 100
etc 6, 10 , 14 , 18 , 22
tu me diras , si c'est Clos Lol t'embête pas Lol
Bonne Journée
Amicalement
Jean marie

 

[Bebere]

bonjour
Jean Marie,pour ma part ce n'est pas du tout fonctionnel
et il y a moyen de simplifier

 

[ChTi160]

Bonjour Bebere
Oui , mais encore faudrait il savoir comment ça doit fonctionner ! Lol
je vais attendre , mais je pense que l'on ne reverra plus "Cougar" !
je ne sais pas comment le fichier peut être utilisé sous ça forme actuelle ????? Lol
mais bon !
Bonne Journée
Amicalement
Jean marie

 

[Cougar]

Bonjour à vous tous,
Désolé pour le retard, vacances oblige.
Question : Pour pas mourir idiot Lol
pourquoi n'y a t'il pas pour les noms Remy 1 Remy 2 par ex
Comme : AVE et Tetra 3-4-8
Jour|Soir|Nuit|24 hres
mais
Nuit 24H |Jour 24H |vide|24 hres
Ceci correspond aux noms des équipes. Nuit24, Jour 24h sont l'appellation pour les quarts de fin de semaine (travaille 12 heures donc vendredi Nuit, Samedi Jour et Nuit, Dimanche Jour), Jour, Soir, Nuit sont des quarts de 8h qui débutent le dimanche à 23h30. Voir la différence entre le Samedi et le Lundi.

Ex : If ComboBox2 = "Jour" Then
ActiveCell.Offset(6, 2) = TextBox5.Value / 100
ActiveCell.Offset(8, 2) = TextBox10.Value / 100
etc 6, 10 , 14 , 18 , 22

C'est pour le transfert des données du Userform dans le tableau. J'inclus le fichier.

Merci