Erreur dépassement du nombre de colonnes

Version imprimable

03/02/2020, 20h15
Invité

Erreur dépassement du nombre de colonnes
Bonjour,

Je voudrai une aide sur une erreur puisque quand je compile et après débogage j'ai cette ligne du code en jaune avec Col=16385 et n=8194.
Merci
Code:

1 2 f3.Cells(1, Col) = f3.Cells(n, "A")
03/02/2020, 20h51
Patrice740

Bonjour,

La réponse ici :
https://support.office.com/fr-FR/art...7-269d656771c3

Que faut il modifier ?

Code:

1
2
3
4
5
6
7
8
 
    NbVal = f3.[A3].End(xlDown).Row - 2
                 Col = 3
                 For n = 3 To NbVal + 2
                     f3.Cells(1, Col) = f3.Cells(n, "A")
                     f3.Cells(1, Col + 1) = f3.Cells(n, "B")
                     Col = Col + 2
                 Next n

03/02/2020, 21h05
Patrice740

Il faut faire en sorte que Col ne dépasse pas 16384 !
03/02/2020, 21h22
Invité

Pouvez vous m'aider à le faire.

Merci

Bonjour,

Il faut regarder un peu plus haut, dans ce qui suit:
Code:

1 2 3 4 5 6 7 NbVal = f3.[A3].End(xlDown).Row - 2 Col = 3 For n = 3 To NbVal + 2 f3.Cells(1, Col) = f3.Cells(n, "A") f3.Cells(1, Col + 1) = f3.Cells(n, "B") Col = Col + 2 Next n
Le problème doit venir de NbVal, il ne doit pas trouver la limite basse de la colonne A donc par défaut il renvoie le maximum soit 1 048 576.
remplacez la ligne

Code:

NbVal = f3.[A3].End(xlDown).Row - 2

par

Code:

NbVal = f3.Range("A" & Rows.Count).End(xlUp).Row

Cdlt

04/02/2020, 09h16
Invité

ça marche bien. Merci beaucoup @ARTURO83 de votre aide.
12/03/2020, 08h53
Invité

Ralentissement (4 Processeur(s) %)

Bonjour,

J'aimerai s'il vous plait savoir ce qui peut poser problème au lenteur d'ouverture d'un fichier contenant des macros .

Merci
12/03/2020, 09h27
Patrice740

Bonjour,

Citation:

Envoyé par wat2010

J'aimerai s'il vous plait dans ce code ci-dessous qu'il ne doit pas trouver la limite basse de la colonne (1 048 576) car ça ralentit.

1 048 576, c'est le nombre de lignes, il n'y que 16 384 colonnes.
C'est probablement pas le End(xlToLeft) qui ralentit ta macro, je pencherais plutôt pour une macro évènementielle sur Change.
Sans autre explication, il est difficile de comprendre l'objectif recherché.
12/03/2020, 09h38
Invité

La macro fonctionne bien avec peu de lignes mais dès que je rajoute beaucoup plus de lignes j'ai un problème de lenteur d'ouverture du fichier et quand ça s'ouvre j'ai ça qui prend du temps: Ralentissement (4 Processeur(s) %) .

Merci
12/03/2020, 12h01
Patrice740

Citation:

Envoyé par wat2010

La macro fonctionne bien avec peu de lignes mais ...

Quelle macro ? (Où est le code ?)
Est-ce la seule macro du classeur ?
12/03/2020, 13h02
Invité

ça a marché en changeant de format d'enregistrement.