Copier une case dans 2 autres cases

Résolu
PYHU -  
 PYHU -

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

A voir également:

2 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 

bonjour,

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

1
PYHU
 

Je voudrais faire ça:

Copier les données de la colones droite vers la colonne de gauche en créant toujours deux copies.

0
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 

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

1
PYHU
 

Salut,

Merci

0