Discussion :

[Kyti]

Bonjour,
Je me permets de poster car je n'ai pas trouver la réponse.

J'ai un classeur avec 2 feuilles (Feuil1 et Feuil2).

Sur Feuil2, j'ai un bouton de commande. La macro associée à ce bouton récupère des données d'un webservice.
Lorsque je veux écrire les données sur Feuil2, ça fonctionne bien, mais je voudrais les afficher dans Feuil1, et j'ai une erreur 1004 à cette ligne lorsque je mets Feuil1 à la place de Feuil2 :

Code :

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

ThisWorkbook.Sheets("Feuil1").Range(Cells(Titre + 1, 1), Cells(Lg + 1, Cl + 1)) = m

En fait ce que je veux faire c'est ça : Feuil1 est une feuille masquée sur laquelle je veux stocker les données, et Feuil2 contient le bouton de mise à jour, qui alimente la feuille masquée afin de remplir des cellules sur Feuil2.

Est-ce que je m'y prends mal ?

Merci

[Invité]

Bonjour,

Je suppose que votre procédure est enregistrée sur la Feuille2 ?

Il faut mettre le code concernant la mise à jour de la Feuille1 dans une procédure créée dans un module et vous appelez cette procédure à partir du code de la Feuille2.

[Kyti]

Alors j'ai modifié pour mettre le code dans un module, et j'appelle la procédure au clic sur mon bouton, mais j'ai le même problème.

Dans ma procédure j'ai mis :

Code :

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

ThisWorkbook.Sheets(Destination).Range(Cells(Titre + 1, 1), Cells(Lg + 1, Cl + 1)) = m

Et lorsque je passe "Feuil2" pour Destination, ça fonctionne, mais si je passe "Feuil1", j'ai la même erreur qu'avant, comment ça se fait ?

[tirex28]

Bonjour,

Et lorsque je passe "Feuil2" pour Destination, ça fonctionne, mais si je passe "Feuil1", j'ai la même erreur qu'avant, comment ça se fait ?

C'est parce que dans ton expression tu ne précise pas sur quelle feuille Cells doit s'appliquer, donc par défaut c'est la feuille active qui est prise en compte. L'erreur survient si la feuille active n'est pas la meme que la feuille sur laquelle tu applique Range.

Code :

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

1
2
3
With ThisWorkbook.Sheets(Destination)
    .Range(.Cells(Titre + 1, 1), .Cells(Lg + 1, Cl + 1)) = m
End With

Cordialement,

Tirex28/

[Kyti]

aaaah ok j'ai compris !!
Merci, ça marche impec !!!