ericvision
XLDnaute Nouveau
Bonjour à tous
J'ai des feuilles mensuelles et certains jours je note des commentaires (sur le lieu de travail par exemple). Ces commentaires sont rassemblés dans un tableau sur une feuille nommée extract grâce à une macro (merci MTH!!!) .
Je met ensuite chaque colonne de ce tableau bout à bout. Mon but est d'extraire sans doublons la colonne unique obtenue pour créer une liste (de validation des données) a laquelle viendront s'ajouter les nouveaux commentaires que j'ajouterais au fil des jours.
J'espère ne pas être trop fumeux dans mes explications
Pour info le détail la macro présente dans chaque feuille mensuelles qui renvoi les commentaires vers la feuille extract :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Range("R6:R37", ("R40:R49")).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Sheets("extract").Range( _
"AI9"), Unique:=True
ActiveWorkbook.Worksheets("extract").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("extract").Sort.SortFields.Add Key:=Range("AI10:AI51") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("extract").Sort
.SetRange Range("AI10:AI51")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
End Sub
PS : je ne connais pas le vba, cette macro provient d'une aide sur ce forum de MTH
Merci de m'aider, à bientôt
J'ai des feuilles mensuelles et certains jours je note des commentaires (sur le lieu de travail par exemple). Ces commentaires sont rassemblés dans un tableau sur une feuille nommée extract grâce à une macro (merci MTH!!!) .
Je met ensuite chaque colonne de ce tableau bout à bout. Mon but est d'extraire sans doublons la colonne unique obtenue pour créer une liste (de validation des données) a laquelle viendront s'ajouter les nouveaux commentaires que j'ajouterais au fil des jours.
J'espère ne pas être trop fumeux dans mes explications
Pour info le détail la macro présente dans chaque feuille mensuelles qui renvoi les commentaires vers la feuille extract :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Range("R6:R37", ("R40:R49")).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Sheets("extract").Range( _
"AI9"), Unique:=True
ActiveWorkbook.Worksheets("extract").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("extract").Sort.SortFields.Add Key:=Range("AI10:AI51") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("extract").Sort
.SetRange Range("AI10:AI51")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
End Sub
PS : je ne connais pas le vba, cette macro provient d'une aide sur ce forum de MTH
Merci de m'aider, à bientôt