Copier une case dans 2 autres cases
Résolu
PYHU
-
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:
- Copier une case dans 2 autres cases
- Supercopier 2 - Télécharger - Gestion de fichiers
- Comment copier une vidéo youtube - Guide
- Aller à la ligne dans une case excel - Guide
- Grille tombola vierge à imprimer 50 cases - Télécharger - Création musicale
- Excel case choix multiple - Guide
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.
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
Je voudrais faire ça:
Copier les données de la colones droite vers la colonne de gauche en créant toujours deux copies.