Bonjour à tous,

Je viens vous poser une petite question technique résultant à une adaptation de l'enregistreur de macro mais qui ne fonctionne pas.

Le but ici est de copier plusieurs parties de colonnes simultanément (avec le controle enfoncé car les colonnes ne se touchent pas) et de faire le collage dans une autre feuille.

L'enregistreur de macro m'avait donné ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Range("B1:B16,L1:L16,AF1:AF16,V1:V16").Select
    Range("V1").Activate
    Selection.Copy
    Sheets("Feuil8").Select
    ActiveSheet.Paste
Et j'ai misérablement essayé de l'adapté avec des "range(cells(),cells():cells(),cells()" mais ça ne marche pas. (La méthode de l'objet range gnagnagna ... !)

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
For i = 1 To nb_param_ttx
            Sheets("Feuil7").Select
            str_cell = ""
                For j = 1 To 16 - 1
                    str_cell = str_cell & "Cells(1," & i + (j - 1) * nb_param_ttx + 1 & "): Cells(" & nb_paliers_reel + nb_line_blanc & "," & i + (j - 1) * nb_param_ttx + 1 & "),"
                Next j
                str_cell = str_cell & "Cells(1," & i + 15 * nb_param_ttx + 1 & "): Cells(" & nb_paliers_reel + nb_line_blanc & "," & i + 15 * nb_param_ttx + 1 & ")"
                last_cell = "Cells(1," & i + 15 * nb_param_ttx + 1 & ")"
                MsgBox (str_cell)
                Range(str_cell).Select
                Range(last_cell).Activate
                Selection.Copy
                Sheets("Feuil8").Select
                ActiveSheet.Paste
            Next i
Et pourtant dans le msgbox je vois bien que la syntaxe est identique à celle de l'enregistreur de macro seulement avec des cells ! Peut être ne faut-il ne pas faire comme ça ?

Si quelqu'un a une idée,

Cordialement

Edit: Pour info : bug sur le premier range !