aide sur un code - rapide

[alex53]

Bonjour a tous,

Voila un code, avec en jaune ce qu me pose probleme

Private Sub CommandButton1_Click()
Range("B2").Select
ActiveCell.FormulaR1C1 = TextBoxReportingPeriod
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B25"), Type:=xlFillCopy
Range("B2:B8").Select
Range("B9").Select

End Sub

J aimerais que le Fill Copy ne s arrete pas a B25, mais s arrete en fonction du nombre de ligne qu il y a dans le fichier.
En gros avoir un code du style =Range("B2:"Ben fonction du nombre de ligne"), Type:=xlFillCopy

Merci pour votre aide

 

[tbft]

Re : aide sur un code - rapide

Bonjour

perso, je passerai par une ligne intermédiaire pour trouver le nombre de ligne.
Il existe environ 36211 façon de trouver cette information.
exemple nb_ligne=activesheet.usedrange.rows.count (de tête)
Puis =Range("B2:"+cstr(nb_ligne)),

 

[STephane]

Re : aide sur un code - rapide

bonjour,

est-ce que la copie est bien nécessaire ?
sinon, tu peux écrire :
Range("B2:B" & nb_ligne).FormulaR1C1 = TextBoxReportingPeriod

pour déterminer le numéro de ligne de la dernière non vide dans la colonne B, tu peux écrire
nb_ligne = Cells(ActiveSheet.UsedRange.Rows.Count, 2).end(xlup).row

 

[MJ13]

Re : aide sur un code - rapide

Bonjour Alex, Tbft

Normalement avec ce code, si tu as moins de 65536 lignes, cela devrait le faire:

Selection.AutoFill Destination:=Range("B2:B" & Cells(65536, 2).End(xlUp).Row), Type:=xlFillCopy