copier colonne si colonne vide en VBA

morale · 22 Juin 2010

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 · 22 Juin 2010

Re : copier colonne si colonne vide en VBA

Bonjour le fil, morale

Par exemple :

Code:

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 · 29 Juin 2010

Re : copier colonne si colonne vide en VBA

Ca marche enfin,

MERCI BCP

copier colonne si colonne vide en VBA

morale

Guest

soenda

XLDnaute Accro

morale

Guest

Discussions similaires

copier colonne si colonne vide en VBA

morale

Guest

soenda

XLDnaute Accro

morale

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency