VBA nommer dernière cellule vide

[Rafilo13]

Bonjour,

Dans mon projet je dois tirer une formule, j'aimerai savoir si quelqu'un connais une methode pour designer la dernière cellule vide d'une colonne (qui n'est pas toujours la même).

je m'explique :

Voici mon code :

Sheets("Vision Siret").Range("J19").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],BVPN!R2C1:R9666C2,10,FALSE)"
Range("J19").Select
Selection.AutoFill Destination:=Range("J19:J12000")

j'aimerai savoir comment remplacer "Range("J19:J12000") par un synthaxe qui veux dire "jusqu'a la première cellule vide de la K" cette cellules vide ne devant pas être comprise.

je ne sais pas si je suis très claire et je m'en escuse merci par avance

Bonne journée a tous

 

[Robert]

Re : VBA nommer dernière cellule vide

Bonjour Rafilo, bonjour le forum,

j'aimerai savoir comment remplacer "Range("J19:J12000") par un synthaxe qui veux dire "jusqu'a la première cellule vide de la K" cette cellules vide ne devant pas être comprise.

Essaie comme ça :

Range("J19:J" & Cells(Application.Rows.Count, 11).End(xlUp).Row)

Tu adapteras K et 11 ou J et 10 car c'est pas très clair..

 

[flyonets44]

Re : VBA nommer dernière cellule vide

Bonjour
Public Sub Mfast()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
K= Cells(65536, 10).End(xlUp).Row+1
range("J19: J" & K).name="ici"
application.Calculation = xlCalculationAutomatic
End Sub

 

[jpb388]

Re : VBA nommer dernière cellule vide

bonjour
Selection.AutoFill Destination:=Range("J19:J" & activecell.end(xldown).row)
jp

 

[Rafilo13]

Re : VBA nommer dernière cellule vide

Merci pour toutes ces reponses ! bonne journée a vous