definir un champ comme variable

Bonjour :D

Je tourne en rond autour de quelques lignes ... .

Pour automatiser des filtres avancés, je cherche à mettre en variable la zone de critère et la zone d'extraction. Ma base de données est nommée (base_globale).
Voici mon code :

Code:

---

1 2 3 4 5 6

sub truc() dir_crit = "w1:w2" dir_dest = "w3" call extraction .... 'il y aura plusieurs blocs end sub

---

Code:

---

1 2 3 4

sub extraction () Range("base_globale").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ dir_crit, CopyToRange:=dir_dest, Unique:=False end sub

---

Je pense qu'il y a un pb de declaration de variable, j'ai testé plein de trucs sans aboutir ... .

En fait, outre ce pb de champ en variable, je souhaitais automatiser (dans une boucle) le contenu de dir_crit et dir_dest mais apparement le format L1C1 n'est pas reconnu en VBA et je ne sais pas comment incrémenter la référence colonne d'un nombre constant (les lignes sont fixes).

Merci de m'éclairer :D

as tu essayé de déclarer dir_crit en range?

Code:

---

dim dir_crit as Range

---

Oui, j'ai fais un Dim dir_crit as Range
Mais lorsque je passe les valeurs j'ai une erreur d'éxécution.
Mes essais :

Code:

---

1 2 3

Dim dir_crit as range   dir_crit = range("w1:w2")

---

... le debogueur s'arrete dessus, avec popup demandant une valeur à l'expression ou ")"

Code:

---

dir_crit = "w1:w2"

---

... là c'est la routine extraction qui ne valide pas le champ.

Voilà .. et plein de choses testées encore :(

Par contre, pour le positionnement ligne / colonne, un post tout chaud m'apporte des éléments de réponse :D

est ce que la portée de la variable va dans la procedure extraction?
Que vaut dir_crit dans extraction?

Alors là j'avoue que je ne saurai répondre ... .
Je ne sais pas comment récupérer la valeur ou connaitre sa portée, le pas à pas me retourne des messages d'erreurs mais pas d'indication précise.

.. j'édite : tu penses que je devrai envoyer vers estraction avec paramètres ?

Genre ...

Code:

---

1 2	call extraction(dir_crit,dir_dest) sub extraction (dir_crit,dir_dest)

---

?

En gros, si tu déclaré la variable dir_crit en dim dans un feuille, et que la sub extraction n'est pas dans cette feuille, la variable n'a pas une portée sufisante. Il faut alors la déclaré en Public au lieu de dim

Pour connaitre la valeur d'une variable lors de l'exécution, met un point d'arret sur la ligne de code

Code:

---

1 2	Range("base_globale").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ dir_crit, CopyToRange:=dir_dest, Unique:=False

---

puis clic droit sur ta variable et choisi Ajouter un espion

Losque tu executeras ton code, il s'arretera au point d'arret et tu auras dans la fenetre espion, la valeur de ta variable

Compris la réponse, mais en fait, tout est sur la même feuille.

Je test, et je retourne le résultat ;)

Dans tous les cas, grand merci :P

Bon, le retour :?

J'ai testé plein de choses une fois encore, mais sans aboutir.
Pour faire "pouf pouf" et me remettre les idées au clair, j'ai plusieurs questions :
J'ai déclaré une variable dir_crit : dim dir_crit as Range

- quel est la syntaxe pour passer un range en variable ? (dir_crit = range(A1:B2) - dir_crit = "A1:B2" - dir_crit = range("A1:B2") ... ou autre syntaxe ... ).

- pour récupérer cette variable, sur la même feuille, dans une sous routine, faut'il faire un CALL avec passage de paramètre ?

- dans la routine de tri :
Range("base_globale").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
dir_crit, CopyToRange:=dir_dest, Unique:=False

Comment écrire la variable dir_crit pour que le debugger ne s'arrête pas dessus ?

Voilà, merci de m'éclairer, je suis planté là dessus depuis plus d'une semaine 8O

re Blobomotz

Pour passer une valeur a une variable range

Code:

---

set dir_crit=range("A1:B2")

---

C'est vrai que s'il n'y a pas de set ca plante

jai testé ce code et je n'ai pas d'erreur

Code:

---

1 2	Range("base_globale").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ dir_crit

---

Par contre, quand je mets Unique:=False ca plante

Bonjour :lol:

Avec "set" et sans le critère "unique" ca passe, ca tourne, ca fume !!!

Grand merci, très beaucoup vachement :yaisse2:

Belle prise de tête qui, grâce à toi a trouvé une solution ... .

Bonne continuation, you are the king :king: