Discussion :

[Nonno 94]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[nibledispo]

re...,

il est inutile de multiplier les posts pour une même question.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

derlig = Range("a" & Rows.Count).End(xlUp).Row

[Nonno 94]

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

Très cordialement.

[casefayere]

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 ?

[Nonno 94]

Problème résolu.

Remerciements à tous et bonne journée.