Calcul automatique

Re : Calcul automatique

bonsoir

un ti fichiers exemple bien epure mais avec tout les codes

serait le bien venu pour que l on t aide

ps si tu a mis des mots de passes sur le fichier vire les on gagnera du temps

a+🙂

Re : Calcul automatique

Bonsoir Spin, Yojema

tu peux utiliser le code ci dessous :


Bonne soirée
@+

Re : Calcul automatique

Désolé yojema, je ne peux pas joindre le fichier, même une partie du fichier : beaucoup trop gros. Si je veux envoyer juste un bout, trop de boulot pour l'adapter. Mais je copie tout de même ci dessous les codes correcpondants.

Pierrot93, ça ne marche pas mieux. J'avais déjà essayé cette solution.
En fait, je pense que la fonction est lancée en même temps que la procédure. Et excel se comporte comme si la fonction devenait prioritaire devant la procédure qui n'est plus prise en compte.
Pour reprendre ton code, si je supprime la fonction, le mode de calcul passe en manuel sans pb. Si je laisse la fonction, le mode de calcul n'est pas changé


Codes

Procédure:
Public Sub Worksheet_Change(ByVal Target As Range)
' Macro de nettoyage des infos tribs lors d'un changement de type SLTE
' Laurence BISSON-BUET - Août 06
' Modifiée par Antoine OLIVIERO - Sept 06

On Error GoTo Out
If ProcIndice = 1 Then GoTo Out

If (Not Intersect(Target, Range("D😀")) Is Nothing) And Target.Row > 12 And InStr(1, ActiveCell.Value, "SLTE", 1) <> 0 Then
IndiceProtSheet = 1
If ActiveSheet.ProtectContents = True Then IndiceProtSheet = 0
ActiveSheet.Unprotect
ActiveCell.Offset(0, 1).Select
ActiveCell.ClearContents
If IndiceProtSheet = 0 Then ActiveSheet.Protect
End If

Out:

End Sub




fonction:

Function NbSpare(FITS, DaysRepair, ConfidenceLevel)

Const TempsFIT = 10 ^ 9
Dim lambdat As Variant
Dim n As Integer
Dim X As Integer

lambdat = (24 * FITS * DaysRepair) / TempsFIT

If FITS = 0 Then
NbSpare = 0

Else
If lambdat < 0.001 Then
NbSpare = 1
Else
n = 0
Do While Excel.WorksheetFunction.Poisson(n, lambdat, True) < ConfidenceLevel
n = n + 1
Loop
'
If n = 0 Then
NbSpare = 1
Else
NbSpare = n
End If
End If
End If

Out:

End Function

Re : Calcul automatique

Bonjour Spin, Yojema

je sais pas quoi te dire, et sans fichier pour exécution pas à pas, dur dur. Peut être une piste, en arretant les proc évènementielles


mais sans aucune garantie.

bon courage et bonne journée
@+

Re : Calcul automatique

Problème résolu en utilisant la procédure sous Worksheet_Calculate() plutôt que Worksheet_Change()

Bonne journée à tous

Spin

Re : Calcul automatique

Bonjour,

J'ai exactement le meme probleme que Spin.

Mais la fonction worksheet_calculate ne m'aide pas beaucoup car elle ne dit pas quelle cellule ont été modifiée. Et je ne veux pas refaire le calcul sur l'ensemble de la feuille.

Des idées ?

Je veux bien vous envoyer mon fichier, mais comment ?

Merci pour votre aide

Re : Calcul automatique

Des idées ?

Est-ce qu'il manque des explications ?

Re : Calcul automatique

Bonjour H des steppes

comprends pas trop ton problème, tu dis que c'est le même que spin, hors celui ci avait été résolu...

Si c'est pour calculer une cellule ou une plage de cellule essaye avec le code ci dessous :


Sinon mets peut être ton fichier en pièce jointe, avec le code utilisé.

Bonne journée
@+

Re : Calcul automatique

Apres plusieurs recherche, je tombe sur un truc bizzare. Voila le code.

Alors si on selectionne le contenu de la cellule avec la validation, ca ne marche pas. si on tape le meme contenu, ca marche....

Une idée ?