Recopie d'un array dans une range FormulaR1C1

Version imprimable

26/04/2020, 17h26
Monptipiton

Recopie d'un array dans une range FormulaR1C1

Bonjour le forum !

D'habitude la littérature en ligne est suffisamment bien fournie pour que je m'en sorte, mais là je bloque complètement..

J'ai une feuille que je souhaite corriger et mettre en forme.

- Je bascule les datas dans une Tabl()

- Je me crée une Tabl Inter() où je recrée intégralement et proprement le tableau ligne par ligne avec un redim preserve classique,
et où j'importe seulement les données saisies initialement de la première Tabl,
inscrivant des formules R1C1 vérifiées dans les autres cases

- Je transpose la Tabl Inter dans une Tabl Finale(), prête à être exportée

Et là le classique Sh.Range("A1").Resize(Ubound(TablF, 1), Ubound(TablF, 2)).Value = TablF me renvoie une première erreur : Quantité de mémoire insuffisante !

Contrariant.. J'aimerais bien savoir en quoi recopier un tableau de 4000 lignes et 60 colonnes d'un array à un range le bloque tout d'un coup..? Première question intéressante !

Mais bon, j'ai besoin d'avancer donc je passe outre, en libérant la mémoire juste avant cette ligne plutôt qu'en fin de macro, avec les erase ad-hoc, prenant bien soin de ne pas delete la TablFinale.

Nouvelle erreur :

Citation:

Erreur d'execution '1004' : Erreur définie par l'application ou par l'objet

:weird:

Je me dis que c'est parce qu'il a du mal avec la recopie des formules R1C1, j'essaie autrement en remplaçant Value par FormulaR1C1 : Même erreur ! :bug:

:calim2: Là je fais quelques essais en me créant un bac à sable : Value comme FormulaR1C1 marchent ! :aie:

Pige pas d'où ça vient.. :arf:

:help:
26/04/2020, 17h40
Menhir
A ma connaissance (je peux me tromper), on peut transférer en une seule instruction l'ensemble des valeurs d'une zone de cellules vers une variable Variant pour en faire un tableau mais il n'est pas possible de faire l'inverse.

A ta place, j'éviterai de me prendre le chou pendant 107 ans et je ferrais deux boucles For To pour réaliser ce transfert.
Ca prendra peut être quelques secondes de plus à l'exécution mais ça fonctionnera et le codage ne prendra que quelques secondes.
Code:

1 2 3 4 5 6 Dim Lig As Long, Col As Long For Lig = 1 To Ubound(TablF, 1) For Col = 1 To Ubound(TablF, 2) Sh.Cells(Lig, Col).FormulaR1C1 = TablF(Lig, Col) Next Col Next Lig
26/04/2020, 19h00
Philippe Tulliez

Bonjour,
Je ne comprends pas trop bien.

Qu'as-tu chargé en table source ? Valeur + formule ou valeur uniquement
Effectues-tu des calculs dans la table à remettre en plage cible ?
Es-tu certain que les bornes inférieures de la table commence bien à 1
Sans visualiser ton code, il est difficile de t'aider

Petite info : Si tu as chargé en table, les valeurs + les formules de la plage source et que ce sont des formules structurées (exemple =[@Qté]*[@Prix]), le code se met en erreur 1004
26/04/2020, 19h14
Monptipiton

Bonjour Menhir, Philippe, merci pour vos réponses.

@ Menhir : Je vais faire ça, en essai chronométré, mais je te confirme que normalement la retranscription d'une table variant dans un range se fait, permettant de gagner un temps considérable par rapport à une retranscription cellule par cellule.. Je te tiens au courant.

@ Philippe :
- Valeur fixe + Formule R1C1 type =SUM(R[1]C:R[3]C, R[5]C), sous format String donc. Pas d'appel de champ ou de plage nommé dans ces formules.
- Option base à 1 en début de Module, et plus important une redéfinition de l'array du type TableF(1 to NbLig, 1 to NbCol).

Edit :

La méthode de Menhir m'a permit de voir que la retranscription bloque lorsqu'il essaie d'inscrire la formule de division dans une cellule.
Rapport de l'espion : Tabl(j, i) : "=RC[-1]/R[428C[-1]" : Variant/String
Il me manque un crochet fermant :boulet:

Au moins on a une solution de débuggage 8-)

Je re-test après correction.

Bonjour,
Si ce sont des formules classiques, je n'ai aucun problème avec l'exemple ci-dessous (j'utilise la propriété Formula au lieu de Formula R1C1 mais c'est du pareil au même

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub T()
  '
  Dim tblSource()
  Dim tblTarget()
  Dim Elem As Long
  Dim rngTarget As Range
  Dim r As Long, c As Integer
  Set rngTarget = Range("L1")
  tblSource = Range("tableau1").Formula
  '
  For r = 1 To UBound(tblSource)
   If tblSource(r, 5) = "A" Then
    Elem = Elem + 1: ReDim Preserve tblTarget(1 To UBound(tblSource, 2), 1 To Elem)
    For c = 1 To UBound(tblSource, 2)
      tblTarget(c, Elem) = tblSource(r, c)
    Next
   End If
  Next
  rngTarget.Resize(UBound(tblTarget, 2), UBound(tblTarget, 1)).Formula = Application.Transpose(tblTarget)
  Set rngTarget = Nothing
End Sub

27/04/2020, 04h14
Monptipiton

Victoire !! :yaisse:

Range("A1").Resize(Ubound(tabl,1), Ubound(tabl,2)).FormulaR1C1 = Tabl marche sans problème !

Il faut quand même s'assurer que toutes les formules saisies dans l'array sont correctes, pour cela faire preuve d'astuce pour savoir où s'est glissé l'erreur, jonglant entre Debug.Print et la gestion d'erreur.

Je gagne 8 secondes sur 10 par rapport à la solution de Menhir, sans qui cependant je n'aurais pas pu déboguer mon truc ! Merci donc à vous deux ! Yec’hed mat ! :chin:

Le problème de mémoire insuffisante a bien entendu disparu de lui-même. (m'étonnais aussi!)

Et je me suis pris la tête avec une limitation Excel que je ne connaissais pas : Si Plage (String), dans Range(Plage).PasteSpecial, dépasse 255 caractères, j'obtiens une erreur d'exécution 1004 :

Citation:

La méthode 'Range' de l'objet '_Global' a échoué

C'est étonnant non ? :aie:

Sujet résolu ! 8-)