Macro répétitive exécutée sous condition

Version imprimable

Bonjour le Forum,

j'ai besoin de votre aide pour modifier le code suivant qui, dans le fichier joint, permettra de recopier successivement les valeurs de la colonne "A" dans la colonne "D".
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub Macro1() ' ' Macro1 Macro ' ActiveSheet.Unprotect Range("A1").Select Selection.Copy Range("D1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveSheet.Protect End Sub
La macro1 est une macro d'essai qui sera remplacée par une autre pour chacune des valeurs présentes dans la colonne "A".
La colonne "A" comprend plus de 200 valeurs.

Je vous remercie pour vos réponses et vous souhaite un bon après-midi.
Cordialement.

Nonno 94.

Bonsoir,
D'après ce que je comprends :

Code:

1
2
3
4
5
6
7
8
9
Sub Macro1()
Dim Dl As Long, x As Long
With ActiveSheet
  .Unprotect
  Dl = .Range("A" & .Rows.Count).End(xlUp).Row
  .Range("D1:D" & Dl) = .Range("A1:A" & Dl).Value
  .Protect
End With
End Sub

17/11/2013, 19h06
Nonno 94

Bonsoir Dom .....et merci pour votre réponse.

Ce que je souhaite est que toutes les valeurs de la colonne "A" soient successivement copiées dans la cellule [D1].
C'est le cas avec la macro "Copie_2" du fichier "Essai" joint qui malheureusement s'interrompt après la copie de la valeur "AEROPORTS DE P" parce que la cellule suivante [A5] est vide.
Est-il possible de modifier ce code pour que la macro s'exécute jusqu'à la dernière valeur "ANF IMMOBILIER" ?

Cordialement.
Nonno 94.
17/11/2013, 19h40
nibledispo

macro répétitive

re...,

il est inutile de multiplier les posts pour une même question.
17/11/2013, 19h43
casefayere

As-tu essayé mon code ? car d'après ce que tu présentes comme fichier, mon code doit passer, sinon, remplaces cette ligne

Code:

derlig = Range("a2").End(xlDown).Row

par

Code:

derlig = Range("a" & Rows.Count).End(xlUp).Row
17/11/2013, 20h05
Nonno 94

J'espère que vous voudrez bien pardonner mes maladresses.
Merci et bonne soirée à tous.

Très cordialement.
17/11/2013, 20h06
casefayere

Citation:

Envoyé par Nonno 94

J'espère que vous voudrez bien pardonner mes maladresses.
Merci et bonne soirée à tous.

Très cordialement.

As-tu au moins résolu ton problème ?
18/11/2013, 11h01
Nonno 94

Problème résolu.

Remerciements à tous et bonne journée.

:ccool::ccool: