Discussion :

[Amiral19]

Bonjour, je bosse actuellement sur une base de données. Ci-dessou, le code que j'ai tapé (je pense que que ce que j'essaie de faire est plus ou moins clair).
Il y une erreur de syntaxe que je n'arrive pas à résoudre : 'Range' de l'objet '_global' a échoué à la ligne avec "AdcancedFilter"

Si une âme charitable pouvait m'aiguiller... Je pense que j'ai un problème avec la définition de ma "ZoneBdd". N'es-il pas possible de le faire en utilisant un truc du genre 'Dim ZoneBdd As Range" puis ZoneBdd=Selection ou qqch comme çà ?


Merci d'avance pour le coup de main.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
'Définition de "ZoneBdd"
    Sheets("TabTot").Select
    Range("A3").Select
    ActiveCell.End(xlDown).Select   'se place à la première ligne remplie
    ActiveCell.CurrentRegion.Select
    ActiveWorkbook.Names.Add Name:="ZoneBdd", RefersTo:=Selection.Address
 
'Sexe
    Sheets("TabInterméd").Select
    If Range("C46").Value = VRAI Then
    'Définition du critère
        Sheets("TabTot").Range("A3").Formula = "=TabInterméd!D46.Value"
    'Application du filtre
        Range("A5").Select
        Range("ZoneBdd").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("Criteria")
    End If

[illight]

T'a essayé avec un enregistreur de macro pour voir ce que ça te donnait ?

Sinon, oui effectivement tu peux définir une Range de cette manière, mais je ne pense pas pouvoir t'aider sur ce point la, car je ne sais pas trop manipuler les noms de plages de cellules

Mais estu vraiment obligé de la nommer ? tu peux pas utiliser la plage relative en elle meme ?

[mordrhim]

essaye voir de changer

Code :

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

ActiveWorkbook.Names.Add Name:="ZoneBdd", RefersTo:=Selection.Address

par

Code :

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

Selection.Name = "ZoneBdd"

sachant qu'un range peut être nommé de cette manière :

Code :

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

Range("A1:B6").Name = "MonRange"

on verra bien si ca aide, mais bon, ... en tout cas j'espère

[Amiral19]

Merci pour votre aide !!

POur une raison que je ne comprends pas, selection.name ZoneBdd ne fonctionne pas ici. Mais effectivement, c'est ce que j'avais essayé en premier.

Du coup, j'ai pris une grande plage (jusqu'à U2000 je crois). cette solution provisoire fonctionne, mais comme la Base doit devenir assez importante...

En fait ce qui m'intéresserait, ce serait de pouvoir définir une plage comme quand on le fait avec un nombre (Dim... As...), mais là encore, ma syntaxe est trop approximative.

[patbou]

bonjour
pour un objet range tu doit d abord le declarer

Code :

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

1
2
 
dim maplage as range

puis pointer vers l objet

Code :

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

1
2
 
set maplage = sheets(1).range("a1:a1000")