Discussion :

[benneb]

bonjour

dans une feuille , je fais des

Code :

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

Range("A5") = "test"

, cela fonctionne très bien

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

si je fais

Code :

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

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

ou

Code :

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

ligne = Range("B5")

je récupère bien le contenu

mais impossible de faire le chemin inverse

Code :

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

Range("B5") = "test"

ou

Code :

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

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

merci d'avance

[ouskel'n'or]

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

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 )

[benneb]

pour résumer je souhaite pouvoir faire

Code :

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

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

[ouskel'n'or]

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

[benneb]

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 :

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

=test()

et j'aimerais pour faire

Code :

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

1
2
3
Function test()
Range("B5") = "test"
End Function

bien évidement, ceci est un exemple

[ouskel'n'or]

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

[benneb]

elle est appelé quand on la demande

elle fait juste

Code :

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

Range("B5") = "test"

puis s'arrête ...

[ouskel'n'or]

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.

[benneb]

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 :

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

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

mais rien

[ouskel'n'or]

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à

[benneb]

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

[AlainTech]

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.

[ouskel'n'or]

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)

[AlainTech]

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

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

[ouskel'n'or]

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 :

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

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 :

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

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

[benneb]

merci je vais essayer