Discussion :

[stitchbouck]

Bonjour,

J'ai fait une liste déroulante ActiveX reprenant 6 choix.
Chaque choix, sous VBA, est un calcul de densité.

Donc, on inscrit dans une cellule la qté reçue en Kg (cells 9.37), on choisit le pdt dans la liste déroulante, et le calcul se lance, inscrivant le résultat dans une cellule déterminée (cells 10.37).
Et ça fonctionne, mais dès qu'on change la qté reçue, il faut alors changer de choix pour que le calcul se refasse.

Est-il possible de faire en sorte que dès que la cellule de qté reçue est pleine, le calcul se fasse de lui-même pour le choix déjà sélectionné ?
Pour info le code est placé sur la feuille contenant la liste déroulante, pas sur un module.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Private Sub frequence_Change()
Select Case frequence.Value
Case "Choix du produit"
Exit Sub
Case "Javel (1,263)"
Cells(10, 37).Value = Cells(9, 37).Value / 1263
Case "Acide Sulfurique (1,85)"
Cells(10, 37).Value = Cells(9, 37).Value / 1850
Case "Soude (1,52)"
Cells(10, 37).Value = Cells(9, 37).Value / 1520
Case "Sulfate d'Alumine (1,4)"
Cells(10, 37).Value = Cells(9, 37).Value / 1400
Case "Acide Phosphorique (1,6)"
Cells(10, 37).Value = Cells(9, 37).Value / 1600
Case Else
End Select
End Sub

Merci pour le coup de main, et en espérant être compréhensible lol

[Theze]

Bonjour,

Ton code se trouve dans le module de la feuille, il te suffit de rajouter cette procédure événementielle pour que le calcul se fasse aussi quand tu changes la quantité en AK9 :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Application.EnableEvents = False
 
    If Target.Address(0, 0) = "AK9" Then frequence_Change
 
    Application.EnableEvents = True
 
End Sub

[Phil Free]

Bonjour,

je suis pas certain de bien comprendre. Normalement si la valeur d'une cellule change par défaut excel recalcule automatiquement à moins d'avoir changer cette option.
Donc :
As-tu modifié cette option ?
Ou saisis-tu cette nouvelle quantité ?
Dans une cellule il me semble et qui est cells(9,37) oui/non ?

Edit: ah oui ! le choix du pdt il arrive à quel moment ? et comment est-il pris en compte dans le calcul ?

A+

[stitchbouck]

Re !

@ Theze : en effet, cela fonctionne parfaitement, un grand merci !

@Phil Free : bien que le sujet soit clos, je ne vous laisserais pas en suspens
En effet, Excel calcule automatiquement, lorsque c'est une formule il n'y a aucun souci, mais pas quand le calcul nécessite une sélection, manifestement.
J'ai bien l'option calcul auto activée, j'étais allé voir avant de demander de l'aide^^
la nouvelle qté était bien remplie à la place de l'ancienne, toujours sur la même cellule 9.37 (ak9). le problème était qu'en changeant cette qté, la sélection actuelle ne recalculez pas avec ce changement de donnée.

maintenant si

merci pour l'aide !!

[Theze]

Bonjour,

Juste pour préciser sur ce point de calcul automatique !
Le calcul n'est pas fait par une formule dans le classeur mais dans la procédure événementielle du ComboBox de ce fait, Excel ne voit pas cette "formule" :

Code :

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

1
2
3
4
 
Cells(10, 37).Value = Cells(9, 37).Value / 1263
...
...

donc, pour que le calcul se fasse, il faut relancer cette procédure.