Coller dans la dernière cellule vierge

tupinius · 18 Janvier 2010

Salut à tous,

Dans la feuille de calcul Feuil2, en cellule E4, je calcule une valeur en appuyant sur un bouton contrôle.

Je voudrais que cette valeur soit collée dans la feuille de calcul Feuil1, en colonne E, à la dernière ligne vierge (avec pour limite la ligne 100).

J'ai réalisé la macro suivante :

For j = 5 To 100
If Worksheets("Feuil1").Cells(j, 5) = " " Then
Worksheets("Feuil2").Cells(j, 5).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Else: Next j
End If
End Sub

L'ennui c'est qu'elle ne fonctionne pas. Pourtant, mon raisonnement me paraît logique. Qui saurait me débloquer ? Merci.

Tupinius

gilbert_RGI · 18 Janvier 2010

Re : Coller dans la dernière cellule vierge

Bonjour

comme ceci

Code:

Sub test()
    For j = 5 To 100
        If Worksheets("Feuil1").Cells(j, 5) = "" Then
            Worksheets("Feuil2").Cells(j, 5).Copy Worksheets("feuil1").Cells(j, 5)

        End If
    Next j
End Sub

Efgé · 18 Janvier 2010

Re : Coller dans la dernière cellule vierge

Bonjour tupinius,
Votre code semble ne coller en colonnes E de la feuille 2 la cellule E5 de la feuille 1 si elle est vide.
Pour coller la cellule E4 en fin de liste de la feuille 2:

Code:

Sub copier()
i = Sheets("Feuil1").Range("E65536").End(xlUp).Row + 1
If i < 101 Then
Sheets("Feuil1").Cells(i, 5).Value = Sheets("Feuil2").Cells(4, 5).Value
End If
End Sub

Cordialement

Efgé · 18 Janvier 2010

Re : Coller dans la dernière cellule vierge

Edit : Bonjour gilbert RGI

tupinius · 19 Janvier 2010

Re : Coller dans la dernière cellule vierge

Super, ça fonctionne ! Merci pour votre aide, vous avez sauvé la situation !

Coller dans la dernière cellule vierge

tupinius

XLDnaute Nouveau

gilbert_RGI

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

tupinius

XLDnaute Nouveau

Discussions similaires