Bonjour à tous.
J'aurais besoin de votre aide pour réaliser/corriger une macro.
En fonction du fichier en pj, J'aimerai pouvoir indiquer la ligne de marché en fonction de "blibli" "blublu" et "bidule"
Pour cela j'ai monté une macro qui fonctionne ... presque! Elle m'écrase ma colonne Famille au lieu d'aller dans ligne de marché.
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 13/04/2012
Rows("1:1").Select
Selection.AutoFilter
Columns("X:X").Select
Selection.Insert Shift:=xlToRight
Range("X1").Select
ActiveCell.FormulaR1C1 = "Ligne de marché"
Range("W1").Select
Selection.AutoFilter Field:=23, Criteria1:="=*bablabla*", Operator:=xlAnd
unecelulle.EntireRow.Hidden
ActiveCell.Offset(1, 1).Select
ActiveCell.FormulaR1C1 = "1"
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll Down:=0
ActiveSheet.Paste
Selection.AutoFilter Field:=23
End Sub
Pouvez vous m'aidez à la corriger ?
J'ai testé la recherchV mais le fichier de base n'est pas adapté à cette fonction.
Merci
Cordialement
Julien
J'aurais besoin de votre aide pour réaliser/corriger une macro.
En fonction du fichier en pj, J'aimerai pouvoir indiquer la ligne de marché en fonction de "blibli" "blublu" et "bidule"
Pour cela j'ai monté une macro qui fonctionne ... presque! Elle m'écrase ma colonne Famille au lieu d'aller dans ligne de marché.
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 13/04/2012
Rows("1:1").Select
Selection.AutoFilter
Columns("X:X").Select
Selection.Insert Shift:=xlToRight
Range("X1").Select
ActiveCell.FormulaR1C1 = "Ligne de marché"
Range("W1").Select
Selection.AutoFilter Field:=23, Criteria1:="=*bablabla*", Operator:=xlAnd
unecelulle.EntireRow.Hidden
ActiveCell.Offset(1, 1).Select
ActiveCell.FormulaR1C1 = "1"
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll Down:=0
ActiveSheet.Paste
Selection.AutoFilter Field:=23
End Sub
Pouvez vous m'aidez à la corriger ?
J'ai testé la recherchV mais le fichier de base n'est pas adapté à cette fonction.
Merci
Cordialement
Julien