hervé
ca ma marche pas
voilà ma macro Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 01/08/2005 par ff²
'
'
Range('J3:J23').Select
Selection.ClearContents
Dim MaVar As String
MaVar = Range('D4').Offset(0, -1)
Range('A30:A57').Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=MaVar
Range('B31:B47').Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-24
Range('J3').Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range('D4').Select
Application.CutCopyMode = False
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:='=$J$3:$J$29'
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ''
.ErrorTitle = ''
.InputMessage = ''
.ErrorMessage = ''
.ShowInput = True
.ShowError = True
End With
End Sub
je te donne le fichier joint
je voudrais qu'en fait ou que je sois sur la colonne D , la macro prenne tjrs la cellule précédente pour comme variable pour trier sur la liste.
j'ai essayer avec activecell mais ca fait pas ce que je veux
merci pour ton aide