S
Sébbb
Guest
Re-bonjour à tous,
J'ai à nouveau une question.
Voilà, mon but est de créer des feuilles automatiquement avec des formules sur des colonnes.
J'obtiens donc par exemple sur une feuille mes colonnes de A à M complétées automatiquement jusqu'à la ligne 100(le nombre de lignes remplies est variable (pour l'exemple 100 mais possibilité de n'importe quelle valeur). En N1 je rentre une formule en macro.
Au départ, je ne me suis pas soucié du nombre de ligne présentes de A à M, j'ai recopier par macro la formule de la cellule N1 jusqu'à la cellule N10000; mais maintenant les calculs sont trop long donc je souhaiterai recopier ma formule que si en A j'ai une valeur.
J'ai essayé avec
dim L as integer
L = Range('A' & '65536').End(xlUp).Row
et plus loin,
Range('N1').Select
ActiveCell.FormulaR1C1 = '=LEFT(RC[-8])'
Selection.AutoFill Destination:=Range('N1:J & L'), Type:=xlFillDefault
mais ca ne marche pas, peut être encore un pb de synthaxe.
Je vous soumets donc mon pb et vous remercie pour votre aide.
Sébbb.
J'ai à nouveau une question.
Voilà, mon but est de créer des feuilles automatiquement avec des formules sur des colonnes.
J'obtiens donc par exemple sur une feuille mes colonnes de A à M complétées automatiquement jusqu'à la ligne 100(le nombre de lignes remplies est variable (pour l'exemple 100 mais possibilité de n'importe quelle valeur). En N1 je rentre une formule en macro.
Au départ, je ne me suis pas soucié du nombre de ligne présentes de A à M, j'ai recopier par macro la formule de la cellule N1 jusqu'à la cellule N10000; mais maintenant les calculs sont trop long donc je souhaiterai recopier ma formule que si en A j'ai une valeur.
J'ai essayé avec
dim L as integer
L = Range('A' & '65536').End(xlUp).Row
et plus loin,
Range('N1').Select
ActiveCell.FormulaR1C1 = '=LEFT(RC[-8])'
Selection.AutoFill Destination:=Range('N1:J & L'), Type:=xlFillDefault
mais ca ne marche pas, peut être encore un pb de synthaxe.
Je vous soumets donc mon pb et vous remercie pour votre aide.
Sébbb.
)
