Arreter copier si cellule vide

Bonjour.
Ajoute cette ligne avant la copie :
if activecell.value="" then exit sub
Cordialement.
Daniel
"fred" <fred@hotmail.com> a écrit dans le message de news:
Ov7oacT5FHA.3496@TK2MSFTNGP10.phx.gbl...

Bonjour a tous,
j'ai un bout de code qui ressemble a sa
Sheets("Floor 1").Select
ActiveCell.Offset(2, 0).Select
ActiveCell.Copy
Sheets("Feuil1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial
Sheets("Floor 1").Select
ActiveCell.Offset(2, 0).Select
ActiveCell.Copy
Sheets("Feuil1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial

je voudrait savoir quand je retourne dans ma feuille Floor1 pour copier et
bien si la cellule est vide et bien qu'il arrete tout ?
est-ce possible ? sinon il j'ai pas fini de faire des offset pis je c'est
jamais comment de cellule il peut y avoir avec des choses d'écrit.

merci de votre aide

ok merci sa semble fonctionner !
mais le "ik" c'est que je ses jamais si j'en est 3 ou 10 a copier au total
mais je vais en mettre plus que pas asser :)

Merci Daniel !
"fred" <fred@hotmail.com> a écrit dans le message de news:
Ov7oacT5FHA.3496@TK2MSFTNGP10.phx.gbl...

Bonjour a tous,
j'ai un bout de code qui ressemble a sa
Sheets("Floor 1").Select
ActiveCell.Offset(2, 0).Select
ActiveCell.Copy
Sheets("Feuil1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial
Sheets("Floor 1").Select
ActiveCell.Offset(2, 0).Select
ActiveCell.Copy
Sheets("Feuil1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial

je voudrait savoir quand je retourne dans ma feuille Floor1 pour copier et
bien si la cellule est vide et bien qu'il arrete tout ?
est-ce possible ? sinon il j'ai pas fini de faire des offset pis je c'est
jamais comment de cellule il peut y avoir avec des choses d'écrit.

merci de votre aide

Bonjour Fred,

Tu pourrais utiliser quelque chose comme ceci :

Évidemment, elle a besoin d'être adapté à ton application.

'______________________________
Sub Copier()
Dim Rg As Range, DerLig as Long
With Sheets("Feuil1")
'Défini la plage à copier
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
With Sheets("Floor 1")
'défini la dernière ligne + 1 où sera copiées les données
derlig = Range("B65536").End(xlUp)(2).Row
'Copie les données
.Range("B" & derlig).Resize(Rg.Count) = Rg.Value
End With
End Sub
'______________________________


Salutations!


"fred" <fred@hotmail.com> a écrit dans le message de news: Ov7oacT5FHA.3496@TK2MSFTNGP10.phx.gbl...
Bonjour a tous,
j'ai un bout de code qui ressemble a sa
Sheets("Floor 1").Select
ActiveCell.Offset(2, 0).Select
ActiveCell.Copy
Sheets("Feuil1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial
Sheets("Floor 1").Select
ActiveCell.Offset(2, 0).Select
ActiveCell.Copy
Sheets("Feuil1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial

je voudrait savoir quand je retourne dans ma feuille Floor1 pour copier et
bien si la cellule est vide et bien qu'il arrete tout ?
est-ce possible ? sinon il j'ai pas fini de faire des offset pis je c'est
jamais comment de cellule il peut y avoir avec des choses d'écrit.

merci de votre aide