Discussion :

[ThisioOo]

Bonjour,

Je n'ai pas l'habitude d'utiliser les macros de excel.
Je vais essayer d'expliquer mon problème du mieux possible, j'aimerais pouvoir copier une plage M6 jusqu’à ce que la colonne M soit vide, et après j'aimerai bien prendre chaque cellules de ma plage de sélection et les coller dans la cellule C5 une par une les unes après les autres.
Pour le moment je vous montre un screenshoot du problème que j'ai.


Comme vous pouvez le voir, les données sont mises dans les cellules qui suivent.

Cordialement ThisioOo.

[Menhir]

Code :

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

Range("M6", Cells(Rows.Count, "M").End(xlUp)).Copy Range("C5")

[ThisioOo]

Merci de Votre réponse rapide,

ça me donne toujours la même chose, elles se copient sur plusieurs cellules alors que j'aimerais qu'elles remplacent à chaque fois la cellule C5

[Menhir]

Il va falloir que tu sois plus clair sur ta demande.
Pour l'instant, je ne comprends rien à ce que tu souhaites.

[ThisioOo]

Bonjour,

J'aimerai :
Que C5 prend la valeur M6 et sauvegarde avec le nom de C5
Que C5 prend la valeur M7 et sauvegarde avec le nouveau nom de C5
Que C5 prend la valeur M8 et sauvegarde avec le nouveau nom de C5
...

Est ce que c'est possible de le faire automatiquement avec un for each ou quelque chose comme ça ?

Merci

[ThisioOo]

Code :

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

1
2
3
4
5
6
7
8
 
Dim cellule As Range
For Each cellule In Selection
        Selection.Copy
        Range("C5").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next cellule

Voila ce que j'ai, mais du coup ça met dans la cellule C5, C6, C7, ...
Y-a t-il un moyen de contourner pour mettre les uns après les autres dans C5 et enregistrer avec le nouveau nom de C5?

Cordialement