Discussion :

[fernandezalain]

bonsoir a tous et joyeuses fetes
ma requete est la suivante

j'ai une feuille qui est le recapitulatif d'une 1ere feuille de saisie sauf que dans cette feuille2 il y a un champ qui est calculé des que 3 cellules sont alimentées.
comment faire pour que le calcul se
fasse automatiquement??
je l'ai fait d'une facon avec

Code :

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

 Private Sub Worksheet_Change(ByVal Target As Range)

et ca marche si je teste une cellule controlée par cette macro
Mais comme c'est une feuille de recap je n'ai pas a toucher aucune cellule!!!*

j'espere avoir ete clair?**merci

[patricktoulon]

re
puré y en qui ont abusé sur lr rhum dans le lait de poule

alors tu dis

j'ai une feuille qui est le recapitulatif d'une 1ere feuille de saisie sauf que dans cette feuille2 il y a un champ qui est calculé des que 3 cellules sont alimentées.
comment faire pour que le calcul se
fasse automatiquement??

et apres

je l'ai fait d'une facon avec

Code :

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

 Private Sub Worksheet_Change(ByVal Target As Range)

et ca marche si je teste une cellule controlée par cette macro
Mais comme c'est une feuille de recap je n'ai pas a toucher aucune cellule!!!*

et apres

j'espere avoir ete clair?**merci

ben non c'est pas clair

[fernandezalain]

je comprends que tu n'ai pas compris !!!!!

bon en gros
un calcul doit de faire dans une cellule d'une feuille qui recupere ses données d'une premiere feuille de saisie!!
ce calcul doit se faire en auto des que la feuille a été alimenté par sa source

yes or no !!

[patricktoulon]

OK donc le change doit s'opérer meme si c'est des formule qui font le calcul

dans le change tu precise le/target address qui sont concernés tout simplement
je ne vois pas ou est le soucis

[Marc-L]

Bonjour,

en attendant une présentation enfin digne de ce nom (cf règles du forum),
je pense qu'un code est inutile, juste via le B-A-BA d'Excel : une formule de calculs …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[fernandezalain]

bonjour
finalement j'ai fait ainsi mais je vais le simplifier
merci

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
18
Private Sub Worksheet_Activate()
'MsgBox Val("$e$37")
With Worksheets("Identification")
 .Range("E37").Select
 If Val("$E$37") = "0" Then
 Exit Sub
 End If
 
 
Select Case .Range("E37").Value
 
            Case Is <= 7.62: .Range("K1").Value = 1
            Case Is > 7.62: .Range("K1").Value = 2
            Case Is = "": .Range("K1").Value = 3
End Select
 
End With
End Sub