jbdubreuil
XLDnaute Occasionnel
Bonjour à tout le monde, et bonne année 07' !!!
Voilà, j'ai une petite macro refresh (c'est un filtre automatique) dont le code est à la fin de mon message.
Tout marche tres bien, mais qd je rafraichis le tableau, la macro n'efface pas le format.
J'aimerais donc dans la macro selectionner les valeurs, tout effacé (valeurs+format) et ensuite utiliser le filtre automatique.
J'espere avoir ete clair.
Je peux joindre un exemple dans le cas contraire.
merci par avance
jb
Sub Refresh_FAMILY()
Dim nbrow As Integer
nbrow = 0
' refresh Macro
'Filtre
Range("A8:s8").Select
Range("Données").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C1:C2"), CopyToRange:=Range("A8:s8"), Unique:=False
End Sub
Voilà, j'ai une petite macro refresh (c'est un filtre automatique) dont le code est à la fin de mon message.
Tout marche tres bien, mais qd je rafraichis le tableau, la macro n'efface pas le format.
J'aimerais donc dans la macro selectionner les valeurs, tout effacé (valeurs+format) et ensuite utiliser le filtre automatique.
J'espere avoir ete clair.
Je peux joindre un exemple dans le cas contraire.
merci par avance
jb
Sub Refresh_FAMILY()
Dim nbrow As Integer
nbrow = 0
' refresh Macro
'Filtre
Range("A8:s8").Select
Range("Données").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C1:C2"), CopyToRange:=Range("A8:s8"), Unique:=False
End Sub