Discussion :

[Pauliakov]

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

Voici l'un des morceaux de la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mjpmjp]

bonjour,
nom de fournisseur...et surtout le nom de l'onglet
essais sans espace, début, milieu,fin
s'il le faut utilise "_"
@+JP

[Pauliakov]

Bonjour,

Merci pour votre aide.

En fait il filtre bien le nom du fournisseur mais dans le logiciel le format est 9AAAAA0000000
Ensuite je vais dans sheet "A" qui est celle du fournisseur A

Mais c'est la commande Pastespecial qui ne fonctionne pas mais je ne sais pas pourquoi car je n'ai pas de cellules fusionnées ou autres

[mjpmjp]

bonjour,
quel est le nom fournisseur/onglet qui marche ? et ceux qui ne marche pas ?
@+JP

[Pauliakov]

Bonjour,

J'ai 58 fournisseurs en tout. 54 fonctionnent. En fait ce sont ceux à partir de la lettre S qui ne fonctionne pas

Cordialement

[mjpmjp]

bonjour,

58 fournisseurs en tout. 54 fonctionnent

4 ne fonctionnent pas !!!

en aveugle donc :
R[250] et R254 ?

@+JP

[Pauliakov]

Bonjour,

Le problème c'est que pour une raison de confidentialité je ne peux pas mettre le nom des fournisseurs.
Mais ce sont les 4 derniers de mon extraction.

Je peux fournir le fichier excel si il faut !

Je ne comprends pas R250 et R254 par contre

[Pauliakov]

Bon bah en fait j'ai trouvé.

Pour ceux qui rencontre un soucis comme ça, il faut faire attention de ne pas avoir une cellule fusionnée qui traine.

Merci de m'avoir répondu