filtre élaboré à 2 critères !

[arnaoke]

Bonjour à tous !

je suis censé trier un tableau, avec un code vba, je vous avoue que je suis un petit peu paumé, car après avoir recherché quelques solutions, la seule susceptible de intéresser ne fonctionne pas !

Critères du filtre
  Worksheets("Elaboration des contrats").Range("i1").Value = "cnt statut libelle" 'Titre de la colonne
  Worksheets("Elaboration des contrats").Range("i2").Value = "Actif"
  Worksheets("Elaboration des contrats").Range("i3").Value = "Projet"
     
  'Filtre élaboré
  With ThisWorkbook.Worksheets("Elaboration des contrats")
   [U] .Range("G7:G" & Range(65536).End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=
      Worksheets("Elaboration des contrats").Range ("I1:I3"), Unique:=False[/U]
End With

le compilateur me précise erreur de syntaxe, sur la ligne souligné ... des idées ?

Merci de m'avoir lut !

Arna

 

[Pierrot93]

Re : filtre élaboré à 2 critères !

Bonjour,

modifie déjà peut être cette partie :

Range(65536).End(xlUp).Row

manque la lettre de la colonne et les guillemets :

Range("A65536").End(xlUp).Row

j'ai mis la colonne A, mais à voir...

bonne journée
@+

 

[arnaoke]

Re : filtre élaboré à 2 critères !

Merci de la correction, erreur bête de ma part, mais le problème est toujours là :x

Erreur de syntaxe qu'il me dit !

 

[Pierrot93]

Re : filtre élaboré à 2 critères !

Re,

attention, manque également un point devant le "range", l'instruction doit également s'inscrire dans le bloc "with"...

 

[arnaoke]

Re : filtre élaboré à 2 critères !

parles tu du range de ton post précédent ? car c'est une ligne que j'ai copié/coller et je n'ai pas eut d'erreurs.

Je n'ai pas compris ce que tu entendais par l'instruction dans le bloc "with", puisque celles ci est clairement délimité par les mots clés

 

[arnaoke]

Re : filtre élaboré à 2 critères !

Problème résolu, avec la ligne ci dessous :

With ThisWorkbook.Worksheets("Elaboration des contrats")
          Range("G7:G" & Range("G65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("I1:I3"), Unique:=False
End With