Discussion :

[flo_1210]

Bonjour,

j'ai réalisé ce code et l'erreur 438 s'affiche sur les lignes en gras :

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
Sub test_copy()

Dim p As Integer

p = 13

    'En tête cde

    Feuil5.Cells(1, 3) = Feuil4.Cells(5, 2)
    Feuil5.Cells(1, 5) = Application.WorkDay(today, 2, 0)
    
While Feuil1.Cells(p, 1) <> ""

    'Ligne cde
    
    If p <> 13 Then
        Feuil6.Rows(p - 13).Copy
        Feuil6.Cells(p - 12, 1).Select
        ActiveSheet.Paste
    End If
    
    Feuil6.Cells(p - 12, 3) = Feuil4.Cells(5, 2)
    Feuil6.Cells(p - 12, 4) = p - 12
    Feuil6.Cells(p - 12, 5) = Feuil1(p, 2)
    Feuil6.Cells(p - 12, 6) = Feuil1(p, 3)
    Feuil6.Cells(p - 12, 8) = Feuil1(p, 1)
    
    p = p + 1
    
Wend
 
End Sub

Aurez-vous une solution pour annulé cette erreur s'il vous plait

[unparia]

Bonjour
Quel pourrait bien être le sens de

Code :

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

Feuil1(x, y)

?
Je me demande bien ...

[flo_1210]

Bonjour Unparia,

le sens de cette partie du code permet que la cellule de la feuille 6 prenne la valeur de la cellule de la feuille 1.

Je viens de me rendre compte du problème que je rencontre. J'ai oublié le "Cells"

Feuil1.Cells(x, y)

Je te remercie de ta réponse Unparia