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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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")
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
11
Affichages
947
Retour