Discussion :

[Blobomotz]

Bonjour

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 :

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

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 :

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

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

[jfontaine]

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

Code :

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

dim dir_crit  as Range

[Blobomotz]

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 :

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

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 :

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

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

[jfontaine]

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

[Blobomotz]

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 :

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

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

?

[jfontaine]

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 :

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

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