Déplacer les cellules non vide d'une colonne

ZiM

XLDnaute Nouveau
Bonjour, suite à une série de macro, j'ai un décalage dans la validation de données.

Je doit donc pour chaque cellule pleine en colonne "L" (jusqu'à 2000 c'est bien assez) sélectionner les 7 cellules de gauche puis les couper et les coller dans la 8ème (sois la colonne "D à K".

J'ai essayer déjà :


Code:
Sub SelectionNonVides()
'sélectionner 1ere cellule non vide
K = ttestt
For Each c In ActiveCell.CurrentRegion
If c <> "" Then
c.Select
Exit For
End If
Next

' extension sélection
For Each c In ActiveCell.CurrentRegion
If c <> "" Then
Range(ActiveCell, Cells(0, -7)).Select
ActiveCell.Offset(0, -8).PasteSpecial xlPasteAll
End If
Next
End Sub

Et encore ceci ^^

Code:
Sub test()
Dim cel As Range
    For Each cel In Target
        'Adapter la/les plages.
        If Not Intersect(cel, Range("L1:L2000")) Is Nothing Then
            Select Case cel.Value
            Range(ActiveCell, ActiveCell.Offset(0, -7)).Activate
            Selection.Cut
            ActiveCell.Offset(0, -8).Select
            Selection.Paste
            End Select
        End If
    Next cel
End Sub

Merci par avance du coup de main ^^
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson