Copier la valeur d'une cellule dans le filtre automatique
bonjour à tous
débutant sur VBA Excel, je suis bloqué par un truc très certainement basique:
je cherche à copier la valeur d'une cellule dans un filtre automatique. Voici la macro:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 28/08/2014 par IOVA9170
'
'
range("C3").Select
Selection.Copy
Sheets("collage").Select
Selection.AutoFilter Field:=11, Criteria1:="=a1101", Operator:=xlAnd
End Sub
l'ennui est que la macro va incrémenter systématiquement la valeur 'a1101', (utilisée pour l'enregistrement) alors que le contenu de la cellule C3 peut être différent.
que dois-je indiquer dans 'Criteria1' pour qu'il recopie la bonne valeur?
merci pour vos lumières!
Bonjour
Bienvenue sur le Forum
En VBA, je ne sais pas.
Avec une formule matricielle, la première valeur filtrée de la plage C2:C10 est
=INDEX(C2:C10;MIN(SI(SOUS.TOTAL(3;DECALER(C1;LIGNE(C2:C10);));LIGNE(C2:C10)));1)Cordialement
bonjour
normalement cela serait :
Selection.AutoFilter Field:=11, Criteria1:=range("a1101").value, Operator:=xlAndou
Selection.AutoFilter Field:=11, Criteria1:=range("a1101"), Operator:=xlAnda tester
Fred
Merci pour vos réponses!
Pour en finir, je m'en suis sorti avec la commande suivante:
Range("C3").Select
Sheets("collage").Select
Selection.AutoFilter Field:=11, Criteria1:=Sheets("Feuil1").Range("c3").Value, Operator:=xlAnd
et ça fonctionne.
à très bientôt, sûrement!