copier une case dans 2 autres casesRésolu/Fermé

Question

Bonjour,

Je pense juste avoir un problème de syntaxes ou peut etre plus.

J'ai créé cette macro pour copier une case et de la coller sur deux autres cases.

Comme le montre le programme ci-dessous.

Par contre  lors de la compilation il y a un message d'erreur.

Sub Macro1()

Dim i%, j%, k%, Dl%, D2%, D3%
Dl = Range(D, i)
D2 = Range(c, j)
D3 = Range(c, k)

For i = 1 To 40

Range("D1").Select
    Selection.Copy

Range("D2").Select
    ActiveSheet.Paste
    Range("D3").Select
    ActiveSheet.Paste

j = j + 1
k = k + 1
Next
    
End Sub

Merci pour votre aide
Windows / Chrome 103.0.0.0

yg_be · Answer

bonjour,

si tu souhaites un conseil pour corriger ton code, tu devrais expliquer précisément ce que tu essaies d'obtenir.

fabien25000 · Answer

Bonjour à vous 2

une proposition à adapter :

Sub Macro1()
    Dim i%, j%, k%
    j = 1
    k = 2
    
    For i = 1 To 40
        Worksheets("NOMDELAFEUILLE").Range("A" & j) = Worksheets("NOMDELAFEUILLE").Range("B" & i)
        Worksheets("NOMDELAFEUILLE").Range("A" & k) = Worksheets("NOMDELAFEUILLE").Range("B" & i)
    
        j = j + 2
        k = k + 2
    Next
    
End Sub

Copier une case dans 2 autres cases

2 réponses

Discussions similaires

Newsletters