ecrire ds une cellule

[fahd]

salut les gents du forum
g un souci, c ke j'arrive pas a ecrire une macro ki ecrit ds différentes cellules ex :
voici ma macro

public function TestOne() as string
worksheets("Sheet1").cells(1,2).Value = "ceci est un test"
TestOne = "Ok"
end function

et ds la cellule A1 par ex je tape "=TestOne()"
par contre qd je lance la macro, ca plante au niveau de l'affectation de la valeur, et vba abandonne l'execution de la macro du coup ca n'affiche rien, ni ds la cellule 1,2 et ni ds la cellule 1,1..

si kelkun a une idée merci d'avance, car j'en ai vraiment besoin le plus rapidement possible
merci

 

[Pyrof]

Bonjour

Une fonction ne peut que retourner une valeur et ne peut faire autre chose
Il faut utiliser une macro

 

[fahd]

oui et comment faire pour utiliser une macro?? plzz

 

[Jon]

tant que la fonction n'est pas utilisée en tant que formule cela marchera.

Function TestOne() As String
Worksheets(1).Cells(1, 2).Value = "ceci est un test"
End Function
Sub demo()
TestOne
End Sub


Sub autre_de()
For i = 1 To 5
Worksheets(1).Cells(i, 2).Value = "ceci est un test"
Next i

Range("c1:C5").Value = "Ceci est un autre test"
End Sub

 

[Jean]

Salut, Pyrof et forum
Pyrof, peux-tu en dire plus sur ce qu'on peut mettre
comme instructions dans une fonction, en dehors de
calculs quelconques et d'affectation d'une valeur de
retour au nom de la fonction?
Il semble bien, en effet, qu'on ne puisse pas y mettre
d'instructions pour bricoler un range ??? bizarre, non?
A plus.

 

[Jean-Marie]

Bonjour, tout le monde

Fahd, tu devrais nous dire le but de ta macro.

Comme la dit Jean, une fonction renvoi une valeur à afficher (numérique ou alphanumérique) que dans la cellule. Une fonction ne peut agir sur rien d'autre, et ne peut lancer une macro.

@+Jean-Marie

 

[fahd]

merci , au fait je voulais intervenir sur plusisure cell de mon worksheet,
maintenant je pense ke je vais faire une macro
merci pour les renseilgnement les gars
c chouette