[E-03] modifier un range dans un module

bonjour

dans une feuille , je fais des

Code:

---

Range("A5") = "test"

---

, cela fonctionne très bien

mais pas moyen de faire la même chose dans un module

si je fais

Code:

---

ligne = ActiveWorkbook.Sheets("maFeuille").Range("B5")

---

ou

Code:

---

ligne = Range("B5")

---

je récupère bien le contenu

mais impossible de faire le chemin inverse

Code:

---

Range("B5") = "test"

---

ou

Code:

---

ActiveWorkbook.Sheets("maFeuille").Range("B5") = "test"

---

merci d'avance

Dis-nous ce que tu veux obtenir qu'on ait une idée sur la difficulté que tu rencontres... Par exemple, dans la ligne suivante, qu'attends-tu dans ligne

Citation:

---

ligne = ActiveWorkbook.Sheets("maFeuille").Range("B5")

---

Enfin, tu parles bien des modules de VBA ?
Bref, je n'ai rien compris à ton problème :( (et apparemment je ne suis pas le seul :?)

pour résumer je souhaite pouvoir faire

Code:

---

Range("B5") = "test"

---

dans un module(function), mais le code s'arrête

alors que dans un microsoft excel objets, cela fonctionne tres bien

les autres lignes étaient juste des exemples de ce qui fonctionnent

Bon, alors qu'appelles-tu Module ? Un procédure (fonction ou macro) ? Où se trouve cette ... procédure ? Dans la feuille de code de la feuille de calculs ou dans un module standard ?
Je crois avoir compris mais dans le doute... :?
Tu dis

dans mon vbaproject, il y a les microsoft excel objets qui correspond au événement de chaque feuille et en dessous un répertoire modules

dans un module, j'ai une function test

et cette function je l'appelle dans la feuille excel en faisant

Code:

---

=test()

---

et j'aimerais pour faire

Code:

---

1 2 3

Function test() Range("B5") = "test" End Function

---

bien évidement, ceci est un exemple

Bref, tu veux faire appel à une fonction récursive dont on ne sort jamais ? Parce que c'est ce que je comprends :cry:
Bon, je vais laisser la place à "d'autres" ;)
Désolé

elle est appelé quand on la demande

elle fait juste

Code:

---

Range("B5") = "test"

---

puis s'arrête ...

Une fonction est faite pour renvoyer "quelque chose". Là, tu demandes à ta fonction d'écrire dans une cellule, non de renvoyer une donnée.
Je crois bien avoir vu passer la solution pour, depuis une fonction de feuille, exécuter une macro qui pourrait, elle, faire ce que tu demandes. Sans certitude.
Maintenant, attention "test" (je sais que c'est exemple mais...) est une fonction d'Excel. En écrivant "=Test" dans une cellule, il est clair que, pour Excel, il manque quelque chose (!)
Remplace test par blurp ou Gasp mais n'utilises pas test ;)

Je regarde si je trouve quelque chose pour ton pb.

oui en réalité ce n'est pas test, et ma fonction renvoie une valeur qui s'inscrit dans la case où la fonction est appelé

mais j'aimerai pouvoir stocker aussi une valeur qui est calculé dans cette fonction et la stocker dans une cellule pour pouvoir l'utiliser ultérieurement

j'ai aussi essayé quelque chose comme

Code:

---

Worksheets("maFeuille").Cells(5, 2).Value = "test"

---

mais rien :(

Effectivement, depuis une fonction tu ne peux pas faire ce que tu demandes. Mais il me semble qu'il y a malgré tout une solution. Je teste un truc et je reviens.
A+

Edit
Pas trouvé de solution. Il me semble cependant qu'un modérateur avait donné une solution... Reste plus qu'à attendre qu'il passe par là :(

j'ai cherché et regardé beaucoup de sujet contenant range et module mais rien :?

Ce n'est pas une question de range ou de module.

Une fonction, appelée depuis une formule de cellule, ne peut modifier le contenu de la feuille.

Merci Alain. Il me semble que nous avions déjà discuté de ce problème et qu'une solution "détournée" avait été proposée. Je n'arrive pas à retrouver le Thread (au moins pour vérifier que je ne me trompe pas)

J'ai, moi-même, cherché à contourner cette limitation.
N'y suis pas arrivé. :oops:

Ce qui ne veut pas dire que ce n'est pas possible. 8-)

Une solution de rechange :
Dans la feuille de calculs Feuil1 :
- Un bouton de la boîte à outils Contrôles
- Dans la cellule C3, la formule "=LaFunction()"
Dans la feuille de code de la feuil1 (-> Editeur VBA -> 2 clics sur le nom de la feuille)
- Le code du bouton (2 clics sur le bouton en mode création)
- La procédure Worksheet_Calculate

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() test End Sub   Private Sub Worksheet_Calculate() Range("B5") = Range("$C$3").Value End Sub

---

Dans un module standard,
- La fonction
- La Macro Test

Code:

---

1 2 3 4 5 6 7 8

Function LaFunction() LaFunction = Worksheets("Feuil2").Range("A1").Value End Function   Sub test() Worksheets("Feuil2").Range("A1") = InputBox("saisir n'importe quoi") Application.CalculateFull End Sub

---

Le bouton exécute la macro Test
La macro test charge une valeur dans la cellule A1 de feuil2
La Fonction Worksheet_Calculate opère la mise à jour des données
- Lafunction (qui fait référence à A1 de Feuil2) change la valeur de la cellule C3 de feuil1, qui la contient
- Affecte à B5 la valeur de C3

En espérant que ça puisse te convenir
Bonne nuit

merci je vais essayer