N'ayant pas trop de précisions (un fichier par exemple), je ne peux moi non plus être très précis, par contre tu pourras probablement t'inspirer de ces lignes de code pour répondre à ton besoin :
Je prefere joindre un fichier ce sera plus simple:
ce que je veux faire:
1/ J'ai une macro evenementielle qui va prendre les données de l'onglet BB-MetaData et les coller dans dosing layout en colonne AQ avec un tri qui "devrait" enlever les doublons (ce qui n'est pas le cas ici)
2/ Je souhaiterais que quand ca colle, ca colle en valeurs et non avec le format de cells de la feuille "BB-Metadata"
3/ Je souhaiterais que en fait ce format (celui des cellules "BB-Metadata" colonne "G") s'applique sur les cellules d'a coté en colonne AR de "Dosing layout" (la ou j'ai mis du jaune)
1/ La méthode advancefilter considère que la première cellule de chaque colonne est l'en-tête, donc si tu veux que le filtre se fasse correctement il te faut intégrer l'entête de ton tableau.
2/ La méthode advancefilter colle obligatoirement le format et le contenu des cellules filtrées.
Donc après l'utilisation cette méthode, il faut modifier le format des cellules, voici quelques instructions correspondantes (l'enregistreur de macros pourra t'aider à définir exactement le format que tu souhaites).
Code:
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
3/ Je te conseil de procéder comme proposé dans le point 2/
Si tu as d'autres questions je ne sais pas quand je pourrais te répondre, probablement pas avant lundi.