Cible macro cellule précise
Bonjour à tous, je sollicite votre aide pour déterminer la cible d'une macro de tri auto.
La macro actuelle :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
drligne_feuil3 = Range("a" & Rows.Count).End(xlUp).Row - 1
If Not Intersect(Target, Range("b3:e" & drligne_feuil3)) Is Nothing Then
With Sheets(3)
autonome = Cells(1, Target.Column)
gagne = Cells(2, Target.Column)
vendeur = Range("a" & Target.Row)
drligne = .Range("a" & Rows.Count).End(xlUp).Row
.Range("$A$1:$R$" & drligne).AutoFilter Field:=8, Criteria1:=vendeur
.Range("$A$1:$R$" & drligne).AutoFilter Field:=17, Criteria1:=autonome
.Range("$A$1:$R$" & drligne).AutoFilter Field:=18, Criteria1:=gagne
End With
Sheets(3).Activate
Je souhaiterai pour la partie en gras ne pas prendre comme cible la 1ère cellule de la colonne mais une cellule précise à savoir B1.
Merci pour votre aide
Bonjour,
Essaye de remplacer la partie en gras
Par
Sheets("Nom de la feuille").Range("B1")Cordialement,
Vbabeginner
merci c'était pus simple que prévu.
Bigdaddy m'a répondu entre temps.
Je met la solution pour info si ça peut servir à d'autres.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
drligne_feuil3 = Range("a" & Rows.Count).End(xlUp).Row - 1
If Not Intersect(Target, Range("b3:e" & drligne_feuil3)) Is Nothing Then
With Sheets(3)
autonome = Cells(1, 2)
gagne = Cells(2, Target.Column)
vendeur = Range("a" & Target.Row)
drligne = .Range("a" & Rows.Count).End(xlUp).Row
.Range("$A$1:$R$" & drligne).AutoFilter Field:=8, Criteria1:=vendeur
.Range("$A$1:$R$" & drligne).AutoFilter Field:=17, Criteria1:=autonome
.Range("$A$1:$R$" & drligne).AutoFilter Field:=18, Criteria1:=gagne
End With
Sheets(3).Activate
Bonne journée à tous