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
Partager