Discussion :

[AzelRoth]

Bonjour le forum et à vous tous,

J'ai un soucis de logique conceptuelle dans une manipulation que je souhaite réalisée et j'aurai besoin de vos lumières.
J'ai pour source un Range(A1 : H12) soit un tableau de 8 colonnes et 12 lignes en feuille 1 que je dois copier vers la destination feuille 2. Mon soucis de réflexion se situe au moment de ma copie.
La première copie se déroule sans accros vers (A1 : H2). Les données de ma source sont modifiées, je dois alors de nouveau copier le Range source en position 2 soit (I1 : P12); nouvelle modification des données copie en position 3 (Q1 : X12).
Une fois 3 copies effectuées, je dois changer d'indice et toujours avec le même pas. (A13 : H24), (I13 : P24), (Q13 : X24) et ainsi de suite.

Quelle serait la méthode la plus simple et rapide pour gérer cette copie, l'utilisation de plusieurs variables (Xx : Yy) avec incrémentation ou une toute autre méthode de type Offset?

Merci d'avance pour vos réponses.

[joe.levrai]

Bonjour,

il est possible de passer par un tableau interne, que tu remplis directement avec 36 colonnes et autant de lignes nécessaires, mais la boucle risque d'être un peu imbuvable

méthode plus simple :

1) On part de la feuille de destination, en A1
2) On fait trois copies en se décalant à chaque fois
3) Après trois copies, on revient en colonne A mais on décale de 12 lignes

voici une proposition où tu dois juste indiquer la plage de départ, le nombre de copies et combien de copies sur la même ligne doivent être effectuées, le reste se calcule via ces trois éléments

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
Sub Traitement()
Dim Source As Range, Destination As Range, Iterations As Long, NombreCopies As Long, i As Long
Set Source = ThisWorkbook.Worksheets("Feuil2").Range("A1:H12")  ' Plage à Copier
Set Destination = ThisWorkbook.Worksheets("Feuil1").Range("A1") ' Première position de la destination
NombreCopies = 10 ' par exemple !
Iterations = 3 ' 3 copies avant de se décaler vers le bas
    For i = 1 To NombreCopies   ' pour chaque copie
        Source.Copy Destination ' ben on copie Source vers Destination !
 
        If i Mod Iterations = 0 Then ' si on vient de copier l'itération
            ' on se décale en ligne et on revient en colonne A
            Set Destination = Destination.Offset(Source.Rows.Count, -(Iterations - 1) * Source.Columns.Count)
        Else
            ' sinon on se décale en colonne
            Set Destination = Destination.Offset(0, Source.Columns.Count)
        End If
    Next i
End Sub

[AzelRoth]

Bonjour joe,

Merci de ta réponse aussi prompte. Le code fournit fonctionne parfaitement. Cependant, je ne connais pas à l'avance le nombre de copies qui seront effectuées.
Pour compléter les informations précédentes, les données de mon tableau source en feuille 2 sont modifiés pendant un cycle, à chaque fin de cycle je dois copier ce tableau à différents indices (A1;H12), (I1;P12),(Q1;X12),(A13;H24),(I13;P24),(Q13;X24) et ainsi de suite, les uns à la suite des autres. C'est pourquoi il n'est nécessaire de créer à l'avance un nombre définit de tableaux. D'où ma question originelle sur la meilleure méthode à adopter pour réaliser ce code.

Merci à vous.

[AzelRoth]

Bonjour,

J'ai trouvé la solution en me basant sur ton code dont voici le résultat.

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
Dim TabOrigin() As Variant
Dim Source, Destination As Range
Dim i, x As Integer
 
    Set Source = ThisWorkbook.Worksheets("Feuil1").Range("A1:H12")
    TabOrigin = Array("A", "I", "Q")
    For x = 1 To 25
        For i = 0 To 2
        Set Destination = ThisWorkbook.Worksheets("Feuil2").Cells(x, TabOrigin(i))
            Source.Copy Destination
        Next i
        x = x + 11
    Next x
 
End Sub

Après je ne suis pas certain que mon code soit très propre. ^^
Merci joe pour ta précieuse aide.

[joe.levrai]

Bonjour,

si la seule chose à modifier c'est la variable NombreCopies (ici fixée en dur à 10 copies), alors il suffit simplement de fixer ce nombre dynamiquement par une boite de dialogue où renseigner la quantité de copies

Code :

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

NombreCopies = Application.InputBox("Nombre copies à réaliser ?", , 1, , , , , 1)

soit certain que c'est bien un nombre entier qui est saisi .... sinon je t'invite à sécuriser cette ligne de code afin que la procédure ne plante pas pour "incompatibilité de type"



EDIT : nos posts se sont croisés.

Ton x, représentant le nombre de copies, est encore écrit en dur ... et tu indiquait que justement le problème était que le nombre de copies n'était pas connu à l'avance ?

[AzelRoth]

Tu dis vrai pour l'instant il est en dur le temps de finir le développement et de ne traiter que de petites portions du code final.
A terme, x sera en effet dynamique par rapport à l'un des paramètres généraux qui viendra s'y greffer.
Merci beaucoup d'avoir répondu aussi rapidement à ma problématique.