Re,
Oui bien sûr
C'est très simple:
'Tri Onglet Stock a la validation d'une entrée
Sheets("Stock").Select 'ici tu passes sur la feuille stock
Range("A1:F1").Select
Selection.AutoFilter
Selection.AutoFilter
Range("A2").Select
ActiveWorkbook.Worksheets("Stock").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Stock").AutoFilter.Sort.SortFields.Add2 Key:=Range _
("A1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Stock").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'-------------------------------------------
'et tu restes sur la feuille stock... du coup tu ne risques pas d'effacer le contenu de ta feuille d'origine
Range("F6:F13").Value = ""
Range("D15:D15").Value = ""
Il faut modifier ton code si tu veux que ça fonctionne correctement
Au tout début je mettrais:
Private Sub TEST() 'Création d'une entrée, bouton de validation
Dim sWk As Worksheet, activeWs As Worksheet
Dim EDate, DLUO, Référence, Opérateur, Lot As String
Set activeWs = ActiveSheet
et vers la fin:
activeWs.Select
Range("F6:F13").Value = ""
Range("D15:D15").Value = ""
EDIT:
Une chose bizarre, lors de la validation sur l'onglet "création entrée"
au niveau de l'onglet "stock" il me supprime des infos de la colonne "F" mais pas toutes les infos ?
KissCool
Comme tu ne changeais pas de feuille après être allé sur la feuille des stocks, tu supprimais les données sur cette feuille