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

[alexanbat]

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]

Bonsoir.
Essayez peut être comme ça :

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]

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