Discussion :

[Malkiya]

Bonjour à tous et à toutes,

Je m'appelle Malkiya, nouvelle sur le forum.
Dans le cadre de mes études universitaire (en alternance) je réalise pour la première fois des fichier macro vba.
C'est tout nouveau pour moi et j'adore énormément ce langage de programmation, plus simple que du C#.

Voila, j'ai un fichier excel avec macro. Dans ce fichier j'ai 2 feuilles, une OP et l'autre Temps. Dans la feuille Temps, je répertorie les différents temps d'usinage de pièces.
Sur ma feuille OP je peux choisir 1 ou plusieurs opérations d'usinage.

Fonctionnement:
Si 1 opération "checké" (ex: Brochage) alors La feuille OP me renvoi sa valeur de temps ( Range("D4") selon mon fichier).
Sinon, si plusieurs opérations "checkées" Range("D4") me renvoie la somme des temps correspondant aux opérations sélectionnées(ex: Brochage + Tournage = Range("D4")=42)

Bien sur faire des boucles en IF marchent aussi, mais s'ils y a plusieurs opérations ça devient impossible.

En pièce jointe ce que j'ai déjà réalisé. J'arrive pas à avancer plus que ça.
Quelqu'un pourrait m'apporter son soutien?

Merci d'avance.

Cordialement,
Malkiya.
Classeur1.xlsm

[Invité]

Bonjour,
en soit un checkbox équivau à un if!

Code :

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

total=total +(1.5 * (abs(Check1))

Code :

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

1
2
3
4
5
Private Sub Valide_Click()
For i = 1 To 10
Total = Total + (Val(Me.Controls("CheckBox" & i).Caption) * Abs(Me.Controls("CheckBox" & i)))
Next
End Sub

mais tu peux placer dans le tag de chaque contrôle le montant!

Code :

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

1
2
CheckBox1.caption="Tournage" :CheckBox1.tag=42
Total =Total  + (val(CheckBox1.Tag) * abs(CheckBox1))

CheckBox1=true/false = 0/-1 = abs(0/-1)=0/1 =>42*abs(false)=0 => 42* abs(true)=42


(42*abs(0)) + (55 *abs(-1)) +(10 *abs(0)) =55

[Malkiya]

Salut dysorthographie,

Je teste ton idée, j'y avais un peu penser mais sans trop savoir comment le faire.
Je reviens vers toi.