Fonction Excel : ne fonctionne pas

Bonjour à tous,
J'ai une fonction excel essaia() qui doit me retourner Oui et dans une autre cellule elle doit me mettre N

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Function essaia() As String ' Recuperation du code motif et verification si Vide Stock ' ' codemotif = "Vide stock" ' ' Verification que le code motif est un vide stock ' i = 2 ' If codemotif = "Vide stock" Then ' Selection.Locked = False Selection.FormulaHidden = False 'on est dans le cas d'un vide stock essaia = "Oui" ' AQ2 contient N Range("AQ2").Select Selection.Copy Range("N2").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Locked = True Selection.FormulaHidden = False Else essaia = "N" ' Range("N" + Trim$(Str$(i))).Select Selection.Locked = False [Selection.FormulaHidden = False End If ' ' End Function

---

Puis à ma cellule N2 j'ai O et à ma cellule Z j'ai
=essaia()

J'obtient bien comme resultat dans Z Oui, mais N2 reste à O

Pouvez vous me donner un coup de pousse.
Merci

J'ai rien compris a ce que tu voulais faire avec ta fonction :? j'ai du mal a comprendre ce qu'elle fait :?

Ma fonction (ici simplifier) doit me permettre d'affecter à une cellule d'appel la valeur O, et à une autre cellule elle doit mettre la valeur N (cellule N2).
Au début je sélectionne la cellule N2 et je mettais la valeur N, mais ca ne marchait pas. Donc pour contourner le pb, j'utilise les fonctions copier, coller.

Mais le résultat n'est toujours pas bon.
Dans ma cellule A2 j'ai =Essaia() et dans ma cellule N2 j'ai O
lorsque ma fonction est lancée, j'obtiens bien un O dans A2, mais j'ai toujours un O en N2, alors que je devrais avoir un N.

J'espere que cette explication est plus clair.
:koi:

Bonjour,
J'avoue que je n'ai pas tout saisi mais un test IF ne suffirait-il pas à résoudre ton problème ?

Je ne suis pas sûr de tout comprendre non plus.

Au lieu de faire un copier-coller, utilises plutôt une simple affectation:

Code:

---

Range("N2").Value = Range("AQ2").Value

---

Bonjour,

Désolée j'étais sur un autre sujet, mais je suis revenue.

J'ai essayé

Code:

---

Range("N2").Value = Range("AQ2").Value

---

et il me renvoie #VALEUR!.

Et evidemment, je pourrai utiliser un si, mais j'ai plusieur conditions.
Donc j'ai été obligé de faire une fonction. Je vais essayer d'expliquer un peu plus clair.
J'ai une feuille tableau Excel.
Lorsque ma colonne Inject passe à O ma collonne PAD passe à O, et la colonne Injection VS = N et doit etre verrouillé.
Donc pour essayer de faire ceci, j'ai ecrit dans la colonne PAD

Code:

---

=SI(A="N";essaia();"N")

---

Ma fonction essaia() doit faire
mettre PAD à O, donc elle renvoie O, et mettre injection VS à N. Et c'est là le pb, car ma fonction est appelée d'une cellule, elle renvoie pour cette cellule O et elle veut modifier en même temps une autre cellule.

Voilà, j'espere que j'ai été un peu plus clair.

:arf:

Toute autre approche:
Tu peux utiliser la méthode Worksheet_Change qui est appelée si une cellule a été modifiée.
Dans son corps, tu testes si la plage modifiée est dans ta colonne Inject. Dans ce cas, tu positionnes toutes tes autres colonnes comme tu le souhaites.

Merci bcp la solution,
J'ai testé dans Worksheet_change la colonne et la ligne et tout le truc qui en suit et ca marche.

:yaisse: :merci:
:resolu: