XL 2016 VBA copier/coller un contenu avec une variable dans un nouvel onglet

alexanbat

XLDnaute Junior
Bonjour

Je suis en train d'écrire ma 1ère macro. Par contre je bloque déjà sur mon 1er probleme au bout de quelques lignes et je ne trouve pas "Pourquoi" ca bloque.

L'objectif de ma macro (au stade ou elle en est) est simple. Je souhaite copier/coller une colonne d'un onglet dans un autre (Sheet 1 à Sheet2) avec une variable (le numéro de la derniere ligne).

Or avec mon code, rien ne plante mais rien ne se passe non plus !!!
Pourquoi ?

Sub Macro1()

With Sheet1

'Definition du nombre de ligne non vide
Dim Cel_Ref As Range
Set Cel_Ref = Range("B7")

Dim Nb_ligne As Long
Nb_ligne = Cel_Ref.End(xlDown).Row - Cel_Ref.Row + 1

End With

'Instruction pour copier/coller valeur dans nouvel onglet
Sheet2.Range("B7:B" & Nb_ligne) = Sheet1.Range("B7:B" & Nb_ligne)

End Sub


Merci de votre retour
AL
 

Dranreb

XLDnaute Barbatruc
Bonsoir.
Essayez peut être comme ça :
VB:
With Intersect(Sheet1.Range(B7:B1000000), Sheet1.UsedRange)
   Sheet2.Range("B7").Resize(.Rows.Count).Value = .Value
   End With
En tout cas vous avez un With Sheet1 qui ne sert à rien. Si vous mettez derrière Range("B7") au lieu de .Range("B7") il assume Activesheet.Range("B7")
 

Discussions similaires


Haut Bas