copier colonne si Non vide SUR VBA

Question

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

Configuration: Windows XP / Internet Explorer 7.0

lermite222 · Answer

Bonjour,
Tu peu connaître la première colonne vide avec...
Dim Col As Integer
Dim S As String
    S = Sheets("Feuil1").Range("A1").SpecialCells(xlCellTypeLastCell).Address
    If S <> "$A$1" Then 'Il y a déja des données
        Col = Sheets("Feuil1").Range("A1").SpecialCells(xlCellTypeLastCell).Column + 1
    Else 'Il n'y a pas encore de donnée
        Col = 1
    End If
A+

Copier colonne si Non vide SUR VBA

1 réponse

Discussions similaires

Newsletters