Définition d'une plage variable

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:

---

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:

---

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,

Bonjour

Citation:

---

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

Une petite aide ?

---

montre ce que tu as essayé.

Bonjour et merci,

J'ai essayé sous plusieurs forme :

Code:

---

a=[A1:A & DernièreLigne ]

---

Code:

---

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

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

Code:

---

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

---

ou encore

Code:

---

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

---

Merci unparia,

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

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

Citation:

---

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.

Maintenant je le sais, grâce à vous.....;)

Merci,