excel Macro déplacement

Version imprimable

03/05/2014, 08h17
EmmaPe

1 pièce(s) jointe(s)

excel Macro déplacement

Bonjour,
Le logiciel qui effectue l’importation de mon tableau de données ne le fait pas correctement, ces données ne sont pas alignées dans les colonnes respectives.
Dans le fichier joint, on voit par exemple que les lignes 3, 12 et 14 sont décalées.
Comment à l’aide d’une macro, pourrais-je aligner des plages de cellules de lignes décalées dans les colonnes respectives ?
Merci à tous pour vos réponses ;)

Bonjour,

Si le décalage est toujours sur la colonne C comme présenté dans ton exemple, tu peux appliquer cette macro qui supprimera les cellules vides qui ont été ajoutées entre Désignation et Famille.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Aligner()
Dim DerLig As Long
Dim Cel As Range
    With Worksheets("export_ventes")
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        For Each Cel In .Range("C2:C" & DerLig)
            If IsEmpty(Cel) Then
                .Range(Cel, Cel.End(xlToRight).Offset(0, -1)).Delete Shift:=xlToLeft
            End If
        Next Cel
    End With
End Sub

Cordialement.

03/05/2014, 13h14
EmmaPe

Merci pour tout !

Cela fonctionne super bien ;)

Il y a de super balaises sur ce forum !