Probleme d'adresse pour une cellule

Bonjour le forum,

Voila, j'ai un fichier avec deux feuilles,

j'ai un userform qui s'ouvre au déclenchement du fichier pour rentrer une date.

la cellule en question est B2 de la feuil1 ("Tbase")

Je voudrais qu'au déclenchement du fichier elle soit sur la bonne cellule que l'on soit sur Feuil1 ou Feuil2

' recherche de la date du jour et filtrage

Private Sub CmdTrier_Click()

Dim cell As Range ' Plage du tableau

On Error GoTo fin

Set cell = ThisWorkbook.Worksheets("Tbase").Range("B2").Select

ThisWorkbook.Worksheets("Tbase").Range("B2") = CDate(TxtDate.Value)

Me.Hide

Exit Sub

fin:

MsgBox "Erreur sur date !"

'declaration des variables

Dim Plage As Range

Dim Criteres As Range

Dim Copy As Range

'Affectations des variables

Set Plage = ThisWorkbook.Worksheets("Tbase").Range("A5").CurrentRegion

Set Criteres = ThisWorkbook.Worksheets("Tbase").Range("A1").CurrentRegion

Set Copy = ThisWorkbook.Worksheets("Filtre").Range("A1").CurrentRegion

'On efface la feuille trier

ThisWorkbook.Worksheets("Filtre").Cells.ClearContents

'on lance l'outil filtre avancé

Plage.AdvancedFilter xlFilterCopy, Criteres, Copy

End Sub

Voila le code que j'utilise

Cordialement

JL

Bonjour,

"un userform qui s'ouvre au déclenchement du fichier" : Ça ne veut rien dire !

La feuille "Tbase" est-elle la feuille active ? Si NON alors tu ne peux pas à la foi l'activer et sélect un range en même temps

Si tu fait un "Set Cell" alors pas besoin de sélect.

A+