Discussion :

[magot98]

Bonjour,

Je cherche le code vba qui me permettra de déplacer la sélection actuelle (non contiguë) à la première cellule sous colonne A de chaque ligne concernée.

L'image explique mieux ce que je souhaite faire. Attention: il n'est pas question de déplacer les valeurs dans les cellules, juste la sélection.

[jerome.vaussenat]

Salut,

voici une proposition de code pour faire ce que tu veux. On doit pouvoir optimiser mais çà fait le taf.

Code :

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

1
2
3
4
5
6
7
Sub decaleV2()
Set mescells = Cells(ActiveCell.Row, 1)
    For Each c In Selection
        Set mescells = Application.Union(mescells, Cells(c.Row, 1))
    Next
    mescells.Select
End Sub

[magot98]

Wooow génial!! C'est parfait, merci pour ta réponse rapide!