executer script vba automatiquement

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:

---

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

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

alors tu dis

Citation:

---

Envoyé par fernandezalain

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

Citation:

---

je l'ai fait d'une facon avec

Code:

---

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

Citation:

---

j'espere avoir ete clair?**merci

---

ben non c'est pas clair:mouarf:

:mouarf::mouarf: 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 !!:pastaper::pastaper:

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 ;)

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, …

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

Code:

---

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

---

Citation:

---

Envoyé par unparia

Bonjour

Code:

---

1 2	Case Is <= 7.62: .Range("K1").Value = 1 Case Is > 7.62: .Range("K1").Value = 2

---

c'est-y pas adorable, cela ?
Ben ... Tu as peut-être raison -->> aucune discrimination n'est de mise en cette période de fêtes :lol:

---

c ti mieux ainsi???

Code:

---

1 2 3 4 5 6

Select Case .Range("E37").Value   Case Is <= 7.62: .Range("K1").Value = 1 Case Else: .Range("K1").Value = 2 'Case Is = "": .Range("K1").Value = 3 End Select

---

Non .. Laisse (j'avais vu un 1 là où il y avait un 2
J'ai supprimé mon message.

re
bonjour
je l'aurais ecrit comme ca

Code:

---

1 2 3 4 5

Private Sub Worksheet_Activate() With Worksheets("Identification").Range("E37") .Parent.Range("K1").Value = Switch(.Value = "0", 0, .Value = "", 3, .Value <= 7.62, 1, .Value > 7.62, 2) End With End Sub

---

Citation:

---

Envoyé par patricktoulon

re
bonjour
je l'aurais ecrit comme ca

Code:

---

1 2 3 4 5

Private Sub Worksheet_Activate() With Worksheets("Identification").Range("E37") .Parent.Range("K1").Value = Switch(.Value = "0", 0, .Value = "", 3, .Value <= 7.62, 1, .Value > 7.62, 2) End With End Sub

---

---

yes trop cool
je ne connaissais pas .Parent et je vais chercher
c'est sur que la facon d'ecrire est plus pro mais ca va venir:mrgreen::mrgreen::mrgreen:
merci

re

Code:

---

1 2 3 4 5

Private Sub Worksheet_Activate() With Worksheets("Identification").Range("E37") .Parent.Range("K1").Value = Switch(.Value = "0", 0, .Value = "", 3, .Value <= 7.62, 1, .Value > 7.62, 2) End With End Sub

---

le .parent c'est parce que je suis dans un with cellule(E37) et que je veux alimenter la (K1) de la meme feuille