IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

excel Macro déplacement [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Femme Profil pro
    Enseignant
    Inscrit en
    Mai 2014
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 36
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Mai 2014
    Messages : 2
    Par défaut 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
    Fichiers attachés Fichiers attachés

  2. #2
    Membre Expert
    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2011
    Messages
    1 858
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Avril 2011
    Messages : 1 858
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

  3. #3
    Candidat au Club
    Femme Profil pro
    Enseignant
    Inscrit en
    Mai 2014
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 36
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Mai 2014
    Messages : 2
    Par défaut Merci pour tout !
    Cela fonctionne super bien

    Il y a de super balaises sur ce forum !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Excel, macro, graphique
    Par djibril dans le forum Modules
    Réponses: 8
    Dernier message: 05/05/2006, 21h18
  2. [EXCEL MACRO] Comment automatiser un texte?
    Par PAULOM dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 30/03/2006, 23h46
  3. [VBA] Excel + macro + aléatoire
    Par spopo dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 02/01/2006, 15h42
  4. [Excel/Macro] Envoi d'Email après enregistrement
    Par Myogtha dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 30/11/2005, 09h15
  5. Borland Excel Macro
    Par pilpagouna dans le forum C++Builder
    Réponses: 7
    Dernier message: 25/03/2004, 11h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo