Discussion :

[zeralium]

Je suis debutant en VB, j'ai un souci...
Je souhaite appliquer une formule sur les cellules de la colonne "L:L", si les cellules de la colonne "A:A" ne sont pas vides. A la premiere cellule vide de la colonne "A:A" (fin de mes datas), on arrete d'appliquer la formule.
Pour l'instant j'applique betement la formule de la cellule "L2" a "L2000", mon soucis est que mon nombre de ligne peut etre variable. D'ou le soucis d'adaptation. Mon code est dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("L2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]="""","""",IF(RC[-5]="""","""",RC[-5]&""_""&(RC[-4]+100)&""_""&(RC[-3]+100)))"
    Range("L2").Select
    Selection.AutoFill Destination:=Range("L2:L2000"), Type:=xlFillDefault
    Range("L2:L2000").Select

Merci.

[dadavyvy]

Il faut utiliser UsedRange.Rows.Count qui te donne le nombre de lignes utilisées (si tu a commencé à la ligne 1) ou alors range("a2").End(xlDown).row.
Tu obtiens alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
derniere_ligne = range("a2").End(xlDown).row
' ou derniere_ligne = ActiveSheet.UsedRange.Rows.Count
Range("L2").AutoFill Destination:=Range("L2:L" & derniere_ligne), Type:=xlFillDefault

Les Select ne servent à rien...

[zeralium]

Ok Ca marche je te remercie pour ton aide.