copier colonne si colonne vide en VBA

[morale]

Bonjour,

je voudrais copier une colonne (a:a) de la feuille 1 à la feuille2 colonne (a:a). Jusque là, facile.

Par contre la condition est que, si la colonne A est non vide, alors je veux copier dans la colonne B.
Si A et B sont non vides, je veux copier sur la colonne C et ainsi de suite.

Est-ce que quelqu'un peut m'aider ??

Merci Bcp d'avance

<config>Windows XP / Internet Explorer 7.0</config>

 

[soenda]

Re : copier colonne si colonne vide en VBA

Bonjour le fil, morale

Par exemple :

Sub copieColonneA()
    Dim Col As Integer
 
    With Feuil2
 
        Do
            Col = Col + 1
        Loop While WorksheetFunction.CountA(.Columns(Col))
 
        Feuil1.[A:A].Copy .Columns(Col)
 
    End With
    
    Application.CutCopyMode = False
 
End Sub

A plus

 

[morale]

Re : copier colonne si colonne vide en VBA

Ca marche enfin,

MERCI BCP