Discussion :

[n0vocaine]

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

[mercatog]

Un premier constat: j = j + NumFrequence
avec NymFrequence=0
ne s'incrémentera jamais, et tu te trouve avec une boucle infinie.

certes des amélioration au code sont possible (sans les select)

[n0vocaine]

Oui effectivement #2 c'est une faute de frappe il suffit de el remplacer par un entier au quelconque, 4 par exemple c'est ce qui va me donner l'écartement entre chaque collage (nombre de colonne).

Reste qu'il me dit que c'est une erreur inconnue, et que celle ci n'y figure pas car c'est pas a execution mais a la compilation que ca bug.

[mercatog]

J'ai essayé de supprimer les select

j'ai mis 2 msgbox pour vérifier le contenu de Temp et j
à tester

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
Sub testy3()
Dim Temp As Integer, i As Integer, j As Integer, NumFrequence As Integer
Dim ws2 As Worksheet, ws4 As Worksheet
 
Application.ScreenUpdating = False
NumFrequence = 4
Set ws2 = Worksheets("Feuil2")
Set ws4 = Worksheets("Feuil4")
With ws2
    For i = 6 To 150
        Temp = .Range("B" & i + 1).Value
        MsgBox Temp
        j = 4 + .Range("D" & i + 1).Value
        MsgBox j
        While j < 52
            .Cells(i, j).Value = ws4.Range("D" & Temp + 1).Value
            j = j + NumFrequence
        Wend
    Next i
End With
Set ws2 = Nothing
Set ws4 = Nothing
End Sub

à l'aide du pas à pas (F8), tu peux suivre l'évolution de tes variables

EDIT: j'ai relu ton post, j'ai rectifié le code; à tester