Bonjour

Voila encore un probléme, ce coup ci je voudrais copier un texte contenue en Feuil4 plusieurs fois sur une même ligne de la feuil2 avec des intervalle régulier.

Voici mon code
Il comporte des erreurs mais étant débutant j'ai beaucoup de mal à les trouver.

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
39
40
41
42
43
44
45
46
47
Sub testy2()
 
'Declaration variable:
'---------------------
Dim NumControle As Long              
Dim NumFrequence As Long           'C'est la frequence de collage au sein de la ligne
Dim Temp As Long
Dim DecalageALOrigine As Integer   'C'est l'écart avec lequel les répétion de collage vont commencer    
 
'Declaration des compteur
Dim i As Integer
Dim j As Integer
 
'Init de svariable:
'------------------
NumControle = 0
NumFrequence = 0
DecalageALOrigine = 0
 
'
 
'-->Boucle de lecture des tâches préventives
MsgBox "i init=" & i
For i = 6 To 150
 
    Temp = Worksheets("Feuil2").Range("A1").Offset(i, 1).Value
 
    '-->Numéro de tâches = numùéro de lignes listing
    Worksheets("Feuil4").Range("A1").Offset(Temp, 3).Select
    Selection.Copy
 
 
    '-->Demarage du collage de la tâche au frequence voulu + decalage
    Worksheets("Feuil2").Activate
    DecalageALOrigine = Worksheets("Feuil2").Range("A1").Offset(i, 3).Value
 
    j = 4 + DecalageALOrigine
 
        While j < 52
           '-->Collage au frequence
           Worksheets("Feuil2").Range("A1").Offset(i, j).Select
           ActiveSheet.Paste
           j = j + NumFrequence
    Wend
Next
 
End Sub