Comment déplacer des cellules vide dans un tableau

Bonjour a tous, Heureux de vous avoir rejoint !

voici mon problème :

dans un tableau j'ai 8 colonnes : ABCDEFGH

Sur les colonnes BCDEF j'ai des cellules vide que je supprime et déplace le reste vers la gauche !

Le souci est que les infos dans les cellules G et H bouge également , y as t'il un moyen de verrouillé les colonnes G et H

ou de compter les cellules vide effacé et de les recollé a la suite ......?

Ou simplement effacer les cellules vide des colonnes BCDEF ?

Merci pour toutes les infos

Cordialement

Webstri

Salut Webstri,

Peux-tu mettre un fichier svp.

Bonsoir,

une proposition qui peut certainement être optimisée :

Sub LouReeD()
    Dim Ligne, Col, Cpt
    Ligne = 3
    Col = 2
    ' on arrête la mise à jour de l'écran
    Application.ScreenUpdating = False
    Do
        ' on boucle sur les colonnes BCDEF
        Do
            ' si la cellule testée est vide et que l'anti bug est inférieur à 6
            If Cells(Ligne, Col) = "" And Cpt < 6 Then
                ' on copie colle les données de la colonne de droite à la cellule  à partir de la cellule
                Cells(Ligne, Col + IIf(Col < 6, 1, 0)).Resize(1, 6 - IIf(Col = 6, 5, Col)).Copy Destination:=Cells(Ligne, Col)
                ' on vide la colonne 6
                Cells(Ligne, 6) = ""
                ' anti bug, correspond au nombre de colonne à tester
                Cpt = Cpt + 1
            Else
                ' on change de colonne à tester
                Col = Col + 1
            End If
            ' un DoEvents pour garder la main en cas de boucle infinie
            DoEvents
        Loop While Col < 6
        ' on initialise les variables pour les tests de la ligne suivante
        Ligne = Ligne + 1
        Col = 2
        Cpt = 0
    ' on boucle tant qu'il y a des données en colonne A
    Loop While Cells(Ligne, 1) <> ""
End Sub

le fichier :

@ bientôt

LouReeD

Bonjour Jean Paul , LouReeD

LouReed , c'est exactement ça !

Pour tout vous dire , un système génère un fichier Excel pour faire de l'adressage, mon imprimante utilise le fichier Excel pour imprimer les adresses les une après les autres.

le système de trie de la poste est automatique, Nom, Adresse1, Adresse2, Adresse3, Adresse5, Code Postal, Ville, etc....

Exemple : si Adresse3 est vide cela crée donc une ligne blanche a cette endroit sur l'enveloppe, la poste est obligé de la retriée manuellement car elle est éjecté de la ligne...

Donc merci a vous pour m'avoir aider

Cordialement

Bonjour,

Merci pour votre retour et remerciements !

@ bientôt

LouReeD