Procedure de tri sur feuille non active

[Chris24]

Bonjour,

Je bute sur un problème certainement tout bête

Dans un formulaire j'ai une procédure avec une variable qui contient le nom de la feuille sur laquelle je travaille, cette feuille n'est pas active.

Je cherche comment effectuer un tri sur une plage en passant le paramètre de la feuille. et là mon pauvre cerveau fait un blocage.

Je ne souhaite pas me positionner sur la feuille.

Merci de vos précieux conseils

Cdt

 

[JCGL]

Bonjour à tous,

Il te suffit de nommer la feuille dans la procédure :

Sheets("nomdelafeuille").range("A1:D500").sort key1:=range("A2"), order1:= xlascending, header:=xlyes

A+ à tous

 

[Chris24]

Bonjour JCGL

Merci de ta réponse

Hélas ça je sais faire

Mais comme je travaille avec le même formulaire pour plusieurs feuilles, je veux passer le nom de la feuille par la variable qui la nomme.

Cdt

 

[Dranreb]

Bonsoir.
Pourquoi avez vous une variable qui la nomme (As String je suppose) au lieu d'une variable qui la représente (As Worksheet donc) ?

 

[Chris24]

Bonsoir Dranreb

La variable est bien déclarée en Worksheet
J'ai trouvé la solution

Sub test()  ' tri sur feuille non active
Dim F2 As Worksheet, NbCol As Byte, Plage As Range, DerCel As Range

Set F2 = Sheets("Data1")                                                     'affectation à la variable F2 du nom de la feuille à traiter
    NbCol = F2.Cells(1, 1).End(xlToRight).Column     'Dernière colonne du tableau (Variable suivant la feuille)
        Set DerCel = F2.Range("A2").End(xlDown).Offset(0, NbCol) 'Dernière cellule à droite du tableau(ne doit pas être vide)
            Set Plage = F2.Range("A1", DerCel)

    Plage.Sort Key1:=F2.Range("A2"), Order1:=xlAscending, Header:=xlGuess
End Sub

/code

Merci et bonne soirée