erreur dans une fonction appelée dans excel et qui ecrit dans excel

**peeter__steewart** · 10/08/2009, 13h38

salut tout le monde,

voila mon probleme, je voudrais avoir une fonction que je lance depuis une cellule de la spreadsheet et qui ecrit dans cette spreadsheet.
j'ai une macro (Hello) qui ecrit dans la spreassheet et qui marche quand je la lance directement. mais je l'appel a partir de la user defi. function (getHello) et dans un celllule excel alors j'ai une erreur (<Object doesn't support this property or method>) au moment au la macro essaie d'ecrire les valeur.
pouvez vous me dire comment faire pour que cela fonctionne.
merci d'avance

voici le code de la fonction et la macro.

cordialement,

Code :

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

1
2
3
4
Public Function gethello() As String
Hello
gethello = "hello"
End Function

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Hello()

On Error GoTo funcfail

Dim iCol As Integer
Dim lRow As Long
Dim sText As String
iCol = 2
lRow = 3
sText = "Hello Excel"

Worksheets(1).Range("A1:B3").Value = sText 'erreur ici

Exit Sub

funcfail:
  MsgBox Err.Description   
  
End Sub

**jfontaine** · 10/08/2009, 13h59

bonjour

essai de mettre le code ci dessous avant ta ligne en rouge

Code :

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

Worksheets(1).Select

**peeter__steewart** · 10/08/2009, 14h03

j'ai deja essayé le Worksheets(1).Select et Worksheets(1).Activate mais ca marche pas.
merci quand meme et si tu as une autre idée je suis preneur.

**jfontaine** · 10/08/2009, 14h10

Juste pour info, j'ai mis ton code dans un fichier vierge et pas de problème.

Je n'avais jamais entendu parler de spreadsheet avant, alors peut être que ca se manipule différemment qu'une worksheet traditionnelle