Déplacer les cellules non vide d'une colonne

  • Initiateur de la discussion Initiateur de la discussion ZiM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 ^^
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
233
Réponses
7
Affichages
267
Réponses
4
Affichages
177
Réponses
2
Affichages
201
Retour