Si colonne non vide, alors aller à la colonne suivante

Bonjour,

Je cherche à réaliser une macro excel 2007 qui puisse effectuer la chose suivante :

Je copie des donnée en feuille1 et en feuille2, coller ces données avec la condition Si colonne AA non vide, alors aller à la colonne suivante et ainsi de suite jusqu'a ce que la macro trouve une colonne vide et puisse copier les données.

Est-ce que qq1 peut m'aider ?

Merci bcp d'avance

Morale

Bonsoir,

ici, la variable CL t'indique la 1ère colonne vide en partant de la droite,

et écrit "toto" sur le ligne 2 de la 1ère colonne vide.

Sub test()
Dim CL%
    CL = Columns(256).End(xlToLeft).Column + 1
    Cells(2, CL) = "toto"
End Sub

Amicalement

Claude

Merci bcp pour ton aide, Hélas, je ne parviens pas à coller dans la colonne suivante si la précédente est non vide même avec ton code.

J'ai essayé

Sub listenc()

Sheets("feuil1").Select

Range("B10:B500").Select

Selection.copy

Sheets("Indicateur2").Select

Range("A2").Select

If ("A2") = "" Then

Range("A2").Select

Else: Dim CL%

CL = Columns(256).End(xlUp).Column + 1

Cells(1, CL + 1) = "ActiveSheet.Paste"

(Je voudrais coller Sheets("feuil1").Select Range("B10:B500").Select dans la colonne a droite si celle de gauche est déja pleine)

End If

ActiveSheet.Paste

End Sub

Merci bcp

Christophe

Bonjour,

essaie ce code :

Sub listenc()
Dim DerCell As Range
With Sheets("Indicateur2")
    Set DerCell = IIf(.[A2] = "", .[A2], .[IV2].End(xlToLeft).Offset(0, 1))
End With
Sheets("feuil1").Range("B10:B500").Copy DerCell
End Sub

Bonne journée

Bonjour,

Sub listenc()
Dim CL%
    Sheets("feuil1").Range("B10:B500").Copy
        With Sheets("Indicateur2")
            CL = .Columns(256).End(xlToLeft).Column + 1
            .Paste .Cells(2, CL)
        End With
End Sub

Claude

édit: Salut cousinhub

Merci bcp, bcp, ca fait des jours entiers que je cherche et enfin CA MARCHE.

Merci encore

Morale

N'oublie pas la petite formalité, ici