Bonjour,
J'ai créé une liste via l'outil de validation des données.
Je crée ma macro en prenant la valeur choisie dans cette liste et ensuite l'appliquer dans un filtre par un copier/coller mais dans le scrypte VBA, il ne prend pas les coordonnées de la valeur, mais la valeur en elle-même. De ce fait, j'ai un blocage et la macro n'est pas utilisable pour la liste.
Auriez vous une solution?? Merci.
Ci-dessous, j'ai juste mis des *** pour ma valeur, c'est à cet endroit que je voudrais voir apparaitre E12 et non la valeur de la cellule.
Range("E12").Select
Selection.Copy
Windows("2013-Guichet Professionnalisation_NEW_V0.xlsm").Activate
ActiveSheet.Range("$A$2:$U$174").AutoFilter Field:=1, Criteria1:= _
"=***********", Operator:=xlAnd
Rows("26:195").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Fiche Conseiller.xlsm").Activate
Sheets("Commandes Prof").Select
Rows("2:2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("2013-Guichet Professionnalisation_NEW_V0.xlsm").Activate
ActiveSheet.Range("$A$2:$U$174").AutoFilter Field:=1
Range("A3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=FORMATIONCOACHING!R173C6"
Range("A4").Select
Windows("Fiche Conseiller.xlsm").Activate
Range("A2").Select
Sheets("Identité C.C").Select
End Sub
J'ai créé une liste via l'outil de validation des données.
Je crée ma macro en prenant la valeur choisie dans cette liste et ensuite l'appliquer dans un filtre par un copier/coller mais dans le scrypte VBA, il ne prend pas les coordonnées de la valeur, mais la valeur en elle-même. De ce fait, j'ai un blocage et la macro n'est pas utilisable pour la liste.
Auriez vous une solution?? Merci.
Ci-dessous, j'ai juste mis des *** pour ma valeur, c'est à cet endroit que je voudrais voir apparaitre E12 et non la valeur de la cellule.
Range("E12").Select
Selection.Copy
Windows("2013-Guichet Professionnalisation_NEW_V0.xlsm").Activate
ActiveSheet.Range("$A$2:$U$174").AutoFilter Field:=1, Criteria1:= _
"=***********", Operator:=xlAnd
Rows("26:195").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Fiche Conseiller.xlsm").Activate
Sheets("Commandes Prof").Select
Rows("2:2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("2013-Guichet Professionnalisation_NEW_V0.xlsm").Activate
ActiveSheet.Range("$A$2:$U$174").AutoFilter Field:=1
Range("A3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=FORMATIONCOACHING!R173C6"
Range("A4").Select
Windows("Fiche Conseiller.xlsm").Activate
Range("A2").Select
Sheets("Identité C.C").Select
End Sub