Discussion :

[sincenono]

Bonjour,

Je suis dans un module de code et l'instruction suivante :

Code :

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

Worksheets("Sous jacents").Range(Cells(1, 1), Cells(2, 2))

me renvoie un message d'erreur.

Si je suis dans une feuille, je n'ai pas d'erreur si la worksheets en question est la feuille dans laquelle je me trouve.

J'aimerais pouvoir récupérer une plage de données variables située dans n'importe quelle feuille.

Avez vous une idée ?

Merci,
Arnaud.

[wilfried_42]

bonjour

c'est un peu court comme explication, une ligne de code incomplète ne montre rien, surtout qu'on peut accéder n'importe où dans le classeur à partir de n'importe où, le seul problème que l'on peut rencontrer c'est lorsque l'on utilise les select (Il ne sont pas utils et on peut facilement s'en passer).

il va falloir que tu apportes un peu plus de biscuits si tu veux un minimum d'aide

@ te lire

[pgz]

Bonsoir.

Il n'a pas tort, Wilfried.

Au hasard, quand même, tu peux essayer

Code :

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

1
2
3
With Application.Thisworkbook
    .Sheets("Sous jacents").Range(.Cells(1, 1), .Cells(2, 2))
End with

Mais tu as la même chose avec

Code :

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

Application.Thisworkbook.Sheets("Sous jacents").Range("A1:B2")

[Etienne2323]

Bonjour le fil, Sincenono,
pour votre première question, pour pouvoir faire une manipulation sur un onglet, il doit être activer ou sélectionner --> .Activate ou encore .Select. Par la suite, toutes les manipulations sont possibles. Vous n'avez qu'à rajouter 1 ligne de code.

Pour votre seconde question, nous aurions effectivement besoin de plus d'info sur ce que vous entendez par plage variable et n'importe quelle feuille.

Cordialement,

Étienne

[sincenono]

Ce que je veux dire par plage variable, c'est une plage de cellule de longeur variable commencant en cells(1,1) et terminant et cells(x,y) X et Y sont des données que je récupère dans mon programme.

Le programme s'éxécute à partir d'un bouton qui est présent dans la feuille Input de mon fichier Excel et j'ai besoin de récupérer des données dans une autre feuille.

Pour info, j'ai besoin de ça pour utiliser MLPutMatrix pour importer des données Excel vers Matlab

J'espère que c'est plus clair

[sincenono]

Bonjour le fil, Sincenono,
pour votre première question, pour pouvoir faire une manipulation sur un onglet, il doit être activer ou sélectionner --> .Activate ou encore .Select. Par la suite, toutes les manipulations sont possibles. Vous n'avez qu'à rajouter 1 ligne de code.

Pour votre seconde question, nous aurions effectivement besoin de plus d'info sur ce que vous entendez par plage variable et n'importe quelle feuille.

Cordialement,

Étienne

Voilà ce que j'ai essayé et ca donnera une meilleure idée de ce que veux faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Launch_Click()

ThisWorkbook.Activate

Dim k As Double
k = 1 
Do
k = k + 1
Loop Until Worksheets("Sous jacents").Cells(k, 1).Value = ""
nbDates = k - 4
  
MLPutMatrix "Dates", Worksheets("Sous jacents").Range(Cells(1, 1), Cells(nbDates, 2))

Mon problème se situe sur a partie en gras.

Arnaud.

[Pierre Fauconnier]

Bonjour.

Tu as intérêt à travailler avec un objet Worksheet, parce que tu dois préfixer chaque objet Cell ou Range en utilisant son parent, si son parent n'est pas la feuille active.

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
 
Private Sub Launch_Click()
Dim sh As Worksheet
 
ThisWorkbook.Activate ' est de trop. ThisWorkbook est toujours actif
Set sh = Worksheets("Sous jacents")
 
Dim k As Double
k = 1 
Do
k = k + 1
Loop Until sh.Cells(k, 1).Value = ""
nbDates = k - 4
 
MLPutMatrix "Dates", sh.Range(sh.Cells(1, 1), sh.Cells(nbDates, 2))

[sincenono]

Pierre,

J'ai essayé ta solution et j'ai toujours un message d'erreur ("Erreur définie par l'application ou par l'objet").

Tu ne penses pas que l'erreur peut provenir tu fais que mon bouton se lance à partir de la feuille Input et que je récupère des données de la feuille Sous jacents ? parce que la ligne de commande suivante :

Code :

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

MLPutMatrix "pbest", Worksheets("Input").Range(Cells(49, 2), Cells(49 + nbDates, 2))

ne pose aucun problème.

Etrange non ?

Merci d'avance,
Arnaud.

[Godzestla]

Bonjour,
mon petit pavé dans la mare :

Code :

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

1
2
3
4
5
6
7
8
 
k = 1 
Do
k = k + 1
Loop Until sh.Cells(k, 1).Value = ""
nbDates = k - 4
 
MLPutMatrix "Dates", sh.Range(sh.Cells(1, 1), sh.Cells(nbDates, 2))

Si k < 5 -> ca plante car nbdates n'est pas valide.

[wilfried_42]

Bonjour à tous

tu nous montres toujours le lancement de la procédure, mais la procédure elle même est déclarée comment ?

Code :

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

MLPutMatrix "Dates", sh.Range(sh.Cells(1, 1), sh.Cells(nbDates, 2))

avec un lancement de ce type, je vois une déclaration de procédure comme cela :

Code :

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

Sub MLPutMatrix(Critere as string, MaPlage as Range)

[sincenono]

Le souci n'est pas sur le k inférieur ou pas à 4, car même avec un k plus grand ça ne marche pas.

Concernant le lancement de la procédure : MLPutMatrix est une fonction de VBA qui necessite un nom de variable et une plage de cellule en entrée.

La procédure globale est lancée via un bouton Private Sub Launch_Click() se trouvant dans la feuille Input.

J'espère que j'ai été un peu plus clair.

Arnaud.

[sincenono]

Bonjour,
mon petit pavé dans la mare :

Code :

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

1
2
3
4
5
6
7
8
 
k = 1 
Do
k = k + 1
Loop Until sh.Cells(k, 1).Value = ""
nbDates = k - 4
 
MLPutMatrix "Dates", sh.Range(sh.Cells(1, 1), sh.Cells(nbDates, 2))

Si k < 5 -> ca plante car nbdates n'est pas valide.

Pardon j'avais pas lu toute ta solution, mais ça marche.

Merci beaucoup à tous et désolé de ne pas être super clair
Je débute.

Arnaud.