Sujet Précédent Sujet Suivant

Copier une case dans 2 autres cases

Résolu/Fermé
PYHU - 28 juil. 2022 à 13:02
 PYHU - 28 juil. 2022 à 14:20

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

Réponse 1 / 2
yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471
28 juil. 2022 à 13:42

bonjour,

si tu souhaites un conseil pour corriger ton code, tu devrais expliquer précisément ce que tu essaies d'obtenir.
1
PYHU
28 juil. 2022 à 13:58

Je voudrais faire ça:

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

0
Réponse 2 / 2
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 58
28 juil. 2022 à 14:15

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
28 juil. 2022 à 14:20

Salut,

Merci

0

Discussions similaires

code couleur associé a une image
magic charly -
pandora -

9 réponses
Dessiner avec son clavier et avec des lettres
JSS -
Polodu33 -

78 réponses
Cocher un case sur Word
rikano -
rikano -

2 réponses
fonction du type "CASE" dans excel
pleduc -
anonyme -

4 réponses