Erreur d'éxècution '13'

[néné06]

Bonsoir le Forum,

Si je place un nombre < à 65537, cela fonctionne, mais au dessus , le message "Erreur d'éxècution '13', Incompatibilité de type" arrive !

Quelle modification à apporter dans cette ligne ?
Range("A2").Resize(dico.Count) = Application.Transpose(dico.keys)

Private Sub Workbook_Open()
' ********** Tirage de valeurs différentes et écriture en colonne A et B ***************
Set dico = CreateObject("Scripting.Dictionary")
While dico.Count < 1065537
Randomize
S = Int((10000000 * Rnd)) + 1
dico(S) = S
Wend
Range("A2").Resize(dico.Count) = Application.Transpose(dico.keys)
Range("B2").Resize(dico.Count) = Application.Transpose(dico.keys)
'********** Trier la colonne B par ordre croissant **************
Columns("B:B").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'******** Instale des pointeurs pour trouver ligne en recherche VlookUp en colonne C ************
For i = 2 To 65537: Cells(i, 3) = i - 1: Next i
End Sub

D'avance Merci

A+

René

 

[Victor21]

Re : Erreur d'éxècution '13'

Bonsoir, René.

Je ne connais pas grand'chose à VBA, mais ne tenteriez-vous pas de faire rentrer 1 065 537 données dans 1 048 575 cellules ?

 

[Roland_M]

Re : Erreur d'éxècution '13'

bonsoir,

par ce principe, sauf erreur de ma part, je crois que l'on peut pas dépasser 65536 !?

 

[néné06]

Re : Erreur d'éxècution '13'

Bonsoir Patrick,
Merci pour ta réponse!
Je pense avoir fait une erreur en plaçant " 1065537" alors que Excel accepte mois de cellules.
Même avec un chiffre supérieur à 65535, le programme plante !

Je pense que cela provient de la syntaxe!

Merci pour le réponse et je modifie le programme.

A+

René

 

[Roland_M]

Re : Erreur d'éxècution '13'

re

néné06 as-tu vu ma réponse ?

 

[néné06]

Re : Erreur d'éxècution '13'

Bonsoir Roland,

65536, cela est peu !
Si je ne peux dépasser 65536, j'essayerais un autre moyen.

Merci pour la réponse !

A+

René

 

[néné06]

Re : Erreur d'éxècution '13'

Bonsoir à tous,


J'ai changé les nombre dans le post # 1 comme le suggère Patrick car , même en "xlsm", le nombre était trop élevé!

Comme le dit Roland, au dessus de 65536, nous avons des problèmes avec " integer."

je crois que l'on peut pas dépasser 65536 !?

Reste à savoir si il y a un moyen de dépasser 65536 ?

A+

René

 

[Paf]

Re : Erreur d'éxècution '13'

Bonjour néné06, Victor21, Roland_M,

Comme le précise Roland_M, application transpose ne peut dépasser les 65536. Une solution possible : une boucle pour simuler transpose:

Sub Macro()
 Dim MonTab(), x As Long
 Set dico = CreateObject("Scripting.Dictionary")
 While dico.Count < 1065537
    Randomize
    S = Int((10000000 * Rnd)) + 1
    dico(S) = S
 Wend
 ReDim MonTab(1 To dico.Count, 1 To 2)
 For Each Cle In dico.keys
    x = x + 1
    MonTab(x, 1) = Cle
    MonTab(x, 2) = dico(Cle)
 Next

 Range("A2").Resize(dico.Count, 2) = MonTab
End Sub

ou, puisque la clé du dico=item du dico et si une deuxième colonne est nécessaire

Sub Macro()
 Dim MonTab(), x As Long
 Set dico = CreateObject("Scripting.Dictionary")
 While dico.Count < 1065537
    Randomize
    S = Int((10000000 * Rnd)) + 1
    dico(S) = S
 Wend
 ReDim MonTab(1 To dico.Count)
 For Each Cle In dico.keys
    x = x + 1
    MonTab(x, 1) = Cle
 Next

 Range("A2").Resize(dico.Count) = MonTab
 Range("B2").Resize(dico.Count) = MonTab
End Sub

A+

Edit : je n'ai pas fait le test avec plus de 65535 éléments étant sous XL 2003, et donc pas corrigé la limite de dico.Count

re edit : mais ça doit fonctionner avec comme limite 1 048 576 -1 puisqu'on veut afficher à partir de ligne 2

 

[néné06]

Re : Erreur d'éxècution '13'

Bonsoir,

En deux mots, je cherche à remplir une colonne A et B avec 1000000 de valeurs (aléatoires en si possible sans doublons), les trier en colonne B.
Par la suite , je compte exécuter des testes de rapidité de recherche par la fonction VlookUp (Voir ce lien).

Lien supprimé

Par cette fonction, j'ai constaté qu'une recherche de 50000 valeurs parmi 65000 valeurs ne prenait que 1 seconde 25, ce que je trouve acceptable.
Avec la méthode For.. Next, je crains que je n'aurais jamais le résultat.

A+

René

 

[néné06]

Re : Erreur d'éxècution '13'

Bonsoir Paf,

Merci pour ta réponse et je vais procéder un peu comme dans ton post en enlevant les doublons éventuels .
J'ai bien peur que ce soit long.

A+

René

 

[Paf]

Re : Erreur d'éxècution '13'

re,

la boucle For Next est juste proposée afin de s'affranchir de la limitation de application.transpose. c'est sûr que ça demande quelques centièmes de seconde. mais l'autre solution en utilisant application.transpose par tranche de 65536 risue d'être aussi gourmande.

Pour l'histoire de la recherche, une idée qui n'est peut-être pas exploitable dans ce cas ( pas de lien valide):

dans le dico, mettre en clé le nombre aléatoire et en item le N° de ligne; la recherche pourrait se faire directement dans le dico ( accès instantané ) pour récupérer le N° de ligne ...

A+

 

[néné06]

Re : Erreur d'éxècution '13'

Re,

J'ai changé l'adresse du lien.

Pour lancer, sauver le fichier sur le bureau et le relancer.

A+

René

 

[Roland_M]

Re : Erreur d'éxècution '13'

bonsoir,

Comme le dit Roland, au dessus de 65536, nous avons des problèmes avec " integer."
René

non ce n'est pas à cause de Integer, il suffirait de déclarer en As Long, c'est avec transpose !

 

[néné06]

Re : Erreur d'éxècution '13'

Bonjour Roland,
C'est exact, je me suis mal exprimé, lorsque je disais "intéger", je voulais dire que le fonction "Transpose" n'accepte comme paramètre qu'une valeur max sur deux octets soit hex "FFFF".

A+

René

 

[néné06]

Re : Erreur d'éxècution '13'

Erreur,doublon
A+

René