Discussion :

[ericdev67]

Bonjour,

Grace aux excellents tutos de BOISGONTIER, j'essaye de réutiliser son code de recherche passant par Dictionnary, car très rapide et conservant les données en mémoire...,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Set mondico = CreateObject("scripting.dictionary")
  Sheets("R70").Select
  a = [A1:AA10000]
  For i = 1 To 10000
    CléBase = a(i, 27)
    Clé = CléBase
    indice = 1
    Do While mondico.exists(Clé)
      Clé = CléBase & indice
      indice = indice + 1
    Loop
    mondico(Clé) = i
  Next i

mais j'ai un problème avec la déclaration de la plage, dans mon exemple, j'ai 10000 lignes, mais suivant le fichier utilisé (je l'importe), il peut y avoir 10000 lignes, 5000, 7000, etc....

et donc je ne sais pas comment faire pour déclarer "a",

Code :

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

a = [A1:AA10000]

à moins de le modifier à chaque fois, mais c'est vraiment du bidouillage...
J'ai essayé avec DernièreLigne, mais cela ne fonctionne pas.....

Une petite aide ?

En vous remerciant,

[unparia]

Bonjour

J'ai essayé avec DernièreLigne, mais cela ne fonctionne pas.....

Une petite aide ?

montre ce que tu as essayé.

[ericdev67]

Bonjour et merci,

J'ai essayé sous plusieurs forme :

Code :

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

a=[A1:A & DernièreLigne ]

Code :

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

a=["A1:A" & DernièreLigne ]

Marche pas, mais je me doute que les "[" définissent le tableau et donc mon "écriture" ne peut pas fonctionner...d'où le besoin d'aide....
Merci

[unparia]

on en est là aux rudiments de chez rudiment de VBA ...

Code :

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

a = range("A1:A" & derniereligne)

ou encore

Code :

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

a = Range(Cells(1, 1), Cells(derniereligne, 1))

[ericdev67]

Merci unparia,

Ne connaissant pas le "scripting dictionary", je n'ai même pas osé....pensant que les "[" étaient indispensables.....

Effectivement ce sont les bases.....j'ai essayé, mais finalement le dictionary est très rapide une fois que le "a" est défini, par contre, cela met beaucoup de temps avant de pouvoir définir les valeurs....

Je dois faire des recherches dans 27 colonnes et 10000 lignes et je n'arrive pas à trouver un code qui le fasse très rapidement..donc petite galère....Mais c'est une autre histoire....

Merci pour votre aide

[unparia]

Ne connaissant pas le "scripting dictionary", je n'ai même pas osé....pensant que les "[" étaient indispensables....

Euh ... je ne vois pas ce que vient faire dans cette affaire un "scripting dictionary" ...
Il ne s'agit que de différentes formes possibles de notation d'un objet Range.