Re : Problème de macro avec liste déroulante
Bonjour,
Par correction je tiens le sujet à jour, pour ceux à qui ces avancées pourraient peut être servir un jour
J'ai utilisé mes connaissances limitées pour essayer de "gruger" excel en appliquant seulement des fonctions que je connaissais plus ou moins..
La macro fonctionne correctement avec le "produit C" (car j'ai écrit la macro avec ce produit) mais pas avec les autres produits à cause de la ligne "Range("B8:L8").Select" dans le code (en rouge, dans le code ci-dessous).
En effet dans la macro il est enregistré qu'il faut copier la sélection "B8:L8" (car je l'ai fait avec le produit C) au lieu de copier le résultat du filtre..
Connaissez vous une méthode pour signifier ça à la macro ? Car pour l'instant je ne trouve pas de solution... Alors que tout le reste fonctionne (essayé en changeant de prix) !!
Merci d'avance
Sub AjoutL01()
'
' AjoutL01 Macro
'
'
Sheets("Calcom").Select
ActiveWindow.SmallScroll Down:=3
Range("A29:B29").Select
Selection.Copy
Range("A18").Select
ActiveSheet.Paste Link:=True
ActiveWindow.SmallScroll Down:=-3
ActiveSheet.Range("$A$4:$L$9").AutoFilter Field:=7, Criteria1:="<>", _
Operator:=xlAnd, Criteria2:="<>FAUX"
Range("B8:L8").Select
Application.CutCopyMode = False
Selection.Copy
Range("B23").Select
Range("A23").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A23:B23,F23:K23").Select
Range("F23").Activate
Application.CutCopyMode = False
Selection.Copy
Range("E26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C14").Select
Sheets("Ventes 2012").Select
Rows("6:6").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A6").Select
Sheets("Calcom").Select
Range("A26:L26").Select
Selection.Copy
Sheets("Ventes 2012").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A6").Select
Sheets("Calcom").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A23:K23").Select
Selection.ClearContents
Range("A18:B18").Select
Selection.ClearContents
ActiveSheet.Range("$A$4:$L$9").AutoFilter Field:=7
Range("C13").Select
Sheets("Ventes 2012").Select
End Sub