deplacer des cellules excel

Version imprimable

08/11/2006, 21h02
johndeuf

deplacer des cellules excel

Salut a tous

Je voudrais deplacer une cellule sur une ligne vers la droite jusqu a ce qu elle rencontre une autre cellule avec du contenu.

j ai une colonne A d un tableau excel qui contient des valeurs pour chaque ligne.
Les colonnes B, C, D et E sont vides mais pas les colonnes F G et H
exemple
pour la ligne 1 j ai une valeur en A1 et une valeur en F1
pour la ligne 2 j ai une valeur en A2 et une valeur en H2

je voudrais que la macro deplace les cellules
A1 en E1 et
A2 en G2

et qu elle puisse faire ca en boucle pour chaque ligne ligne de ma colonne A
Au fait c est un peu comme si je voulais aligner a droite mes cellules !

A Tout hasard, si qqu un a une idee de comment je pourrais faire ca ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub decaleDroite()
    Dim feuille As Worksheet, col As Integer
    Set feuille = Feuil1
    ' En supposant que ca commence à la 1ère ligne
    For i = 1 To feuille.UsedRange.Rows.Count
        col = feuille.Range("A" & i).End(xlToRight).Column ' Cherche la prochaine cellule (équivalent à faire un [CTRL] + [->] au clavier)
        If feuille.Cells(i, col) <> "" Then col = col - 1  ' C'est la colonne avant la prochaine cellule remplie
        feuille.Cells(i, 1).Copy feuille.Cells(i, col)   ' Copie vers la nouvelle destination
        If col > 1 Then feuille.Range("A" & i).Clear     ' Efface la cellule de la colonne A
    Next i
End Sub

08/11/2006, 23h46
johndeuf

8O

c est exactement ca !
(il est bon ce forum !!)

merci beaucoup dadavyvy