Discussion :

[nouveauvba]

Bonjour je ne trouve pas la syntaxe pour modifier la valeur 265 par une variable j qui dépend de mon analyse.

Code :

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

Workbooks("Copie").Sheets("Feuil1").Range("A5:G" & j).Value = Application.Index(test, Evaluate("Row(1:265)"), [{1,2,10,4,5,6,9}])

j'ai essayé

Code :

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

Workbooks("Copie").Sheets("Feuil1").Range("A5:G" & j).Value = Application.Index(test, Evaluate("Row(1:" & j &")"), [{1,2,10,4,5,6,9}])

mais non

Merci par avance.

[Marc-L]

Bonjour,

la syntaxe est bonne mais certainement pas l'analyse de la variable j ‼

Si la plage va de "A5" (ligne 5 donc) jusqu'à "G" & j,   j valant 265,   cela fait donc combien de lignes ?

Certainement pas 265 comme dans "ROW(1:" & j & ")" !

Et faut-il encore que test soit une variable tableau comportant au moins 265 lignes …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Docmarti]

Bonjour.

Application.Index c'est pas simple.

Code :

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

1
2
3
4
5
6
j = 265
adresse = "row(1:" & j & ")"
lignes = Application.Evaluate(adresse)
cols = Array(1, 2, 10, 4, 5, 6, 7)
a_sp = Application.Index(a_sn, lignes, cols)
Cells(9, 1).Resize(UBound(a_sp), UBound(a_sp, 2)) = a_sp

[nouveauvba]

Bonjour à vous.

Bon je ne comprends pas, hier le code ne fonctionnait pas et me donnait une erreur de syntaxe (ligne écrite en rouge) et ce matin je fais le copier coller de la ligne et ça marche .

J'ai bien entendu corriger le A5:Gj et le "ROW(1:" & j & ")" grâce à la remarque de Marc-L. Effectivement 4 lignes de données disparaissaient....

Un grand merci à Marc-L (test est bien une variable tableau de 265 lignes dans le cadre de mon exemple)

En aparté j'ai vu un message sur la possibilité travailler dans un fichier sans l'ouvrir. Vu que le traitement que j'effectue avec ce développement est appelé à ouvrir un par un beaucoup de fichiers Excel, le traiter puis le fermer. Ce type d'approche fait il gagner du temps sur l’exécution de la tâche? Ou s'est juste pour la beauté du geste....

Merci aussi à Docmarti de s'être lui aussi intéressé à mon problème. Effectivement application.index, n'est pas simple et j'avoue que c'est bien sur une technique de Marc-L et Jacques Boisgontier et Pierre Fauconnier(sur un autre de mes posts) qui sont à l'origine de la genèse de cette ligne de code.


Cordialement.

[Marc-L]

Pour accéder aux données de classeurs sans les ouvrir via ADODB,
ce n'est pas pour la beauté du geste surtout si les classeurs mettent du temps à s'ouvrir dans Excel,
donc gain de temps et intéressant si les classeurs ont la même structure …

[nouveauvba]

Ok,
dans le cadre de cette exploitation les classeurs s'ouvrent très vite (pratiquement instantanément) donc ça ne devrait pas être nécessaire.
Mais je garde cette option pour d'autres fichiers beaucoup plus lourds.