Problème VBA avec PasteSepcial
Bonjour à tous,
Je suis nouveau sur le forum et en VBA. Normalement j'arrive à me débrouiller sur Internet mais ça fait actuellement plusieurs jours que je bloque sur ce soucis et je commence à avoir les nerfs car je ne comprends pas mon problème :?
Pour expliquer brièvement ce que je cherche à faire, je souhaite créer des onglets de suivi fournisseur. Pour cela, j'extrais d'un logiciel toutes mes données et mes exportent dans un onglet nommé "Import_Sage" d'un fichier "Suivi avec Macro"
Voici mon soucis, la macro filtre mon import et prends le fournisseur "A", elle copie les lignes du fournisseur "A" et va dans l'onglet du nom du fournisseur et les colle en C4.
Ca marche pour tous sauf 4 fournisseurs et je ne comprends pas pourquoi :weird:
Voici l'un des morceaux de la macro
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
| ActiveSheet.Range("$A$10:$M$5000").AutoFilter Field:=2, Criteria1:= _
"9AAAAAA0000000000"
Range("A11:M1000").Select
Selection.Copy
Sheets("A").Select
Range("c4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q4").Select
ActiveCell.FormulaR1C1 = _
"=INDEX(RC[14]:R[250]C[14],MATCH(RC[12],RC[13]:R[250]C[13],0))"
Range("Q4").Select
ActiveCell.FormulaR1C1 = "=INDEX(R4C31:R254C31,MATCH(RC29,R4C30:R254C30,0))"
Range("Q4").Select
Selection.AutoFill Destination:=Range("Q4:Q254"), Type:=xlFillDefault
Range("Q4:Q254").Select
Range("R4").Select
ActiveCell.FormulaR1C1 = _
"=INDEX(RC[14]:R[250]C[14],MATCH(RC[11],RC[12]:R[250]C[12],0))"
Range("R4").Select
ActiveCell.FormulaR1C1 = "=INDEX(R4C32:R254C32,MATCH(RC29,R4C30:R254C30,0))"
Range("R4").Select
Selection.AutoFill Destination:=Range("R4:R254"), Type:=xlFillDefault
Range("R4:R254").Select
Range("S4").Select
ActiveCell.FormulaR1C1 = _
"=INDEX(RC[14]:R[250]C[14],MATCH(RC[10],RC[11]:R[250]C[11],0))"
Range("S4").Select
ActiveCell.FormulaR1C1 = "=INDEX(R4C33:R254C33,MATCH(RC29,R4C30:R254C30,0))"
Range("S4").Select
Selection.AutoFill Destination:=Range("S4:S254"), Type:=xlFillDefault
Range("S4:S254").Select
Range("c1").Select
Sheets("Import_Sage").Select
Application.CutCopyMode = False
ActiveSheet.Range("$A$10:$M$10000").AutoFilter Field:=2 |
Et voila ça bloque ici
Code:
1
2
| Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False |
Et impossible de comprendre pourquoi. J'ai agrandi le taille du copier, changer le Pastespecial etc.
Pour tous les autres ça fonctionne.
Merci par avance!
PS: Désolé si ma macro vous fait grincer des dents... Je suis pas très bon encore mais si vous avez une amélioration à proposer je suis à l'écoute :D
