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")
 

alexanbat

XLDnaute Junior
Le code est un peu plus complexe que ce que j'avais imaginé.
En tout cas ça marche.
Merci de ton aide.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas