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à :
Et encore ceci ^^
Merci par avance du coup de main ^^
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 SubEt 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 SubMerci par avance du coup de main ^^