Bonjour à tous,

Je souhaite récupérer d'un fichier A des lignes qui sont à B46:AJN46 / B59:AJN59 / B72:AJN72 / B85:AJN85 / B97:AJN97. Vous avez remarqué que ces lignes se répètent par pas de 13.

Ensuite les coller par tranposage sur un fichier B aux colonnes : E10:E958 puis F10:F958 etc... (le pas ici est de 1).

Voici une partie du code :

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
For I = 1 To 5
 
            m = 46 + 13 * (I - 1)
 
            'Sélectionne la plage
            Range("B" + CStr(m) + ":" + "AJN" + CStr(m)).Copy
 
            'Copie-colle la sélection sur un autre fichier
            ' Selection.Copy
 
            'Sélection de la plage réception
            Workbooks("Reception.xlsx").Activate
            Sheets("Test").Select
 
            'Conversion de la colonne
            ColR = Chr(I + 68)
 
            'Sélection de la colonne récepteur
            Range(ColR + "10:" + ColR + "958").Select
 
            'Colle par transpose
            Selection.PasteSpecial Paste:=xlPasteAll, Transpose:=True
            Application.CutCopyMode = False
 
            'Convertir les points en virgule
            Set plage = Range(ColR + "10:" + ColR + "958")
            For Each c In plage
                c.Value = Replace(c.Value, ".", ",")
            Next c
 
        Next
Le problème est que ça m'affiche :

Erreur d'exécution '1004' :
Cette sélection n'est pas valide.
Raisons possibles :
.Les zones de copie et de collage ne peuvent se superposer que si elles sont de dimension et de forme identiques.
.Si vous utilisez la commande Créer à partir de la sélection, la ligne ou la colonne contenant les noms proposés n'est pas incluse dans les (...)
La dernière phrase s'arrête là à cause du format réduit du message d'erreur.

Avez vous des idées du bug ?

Merci d'avance.