jokapic
XLDnaute Junior
Bonjour le Forum ,
Hier j'avais fait un post concernant [ Macro Import/Tri/Mise en forme]
J'ai réussi a avancé comme un grand grâce à l'enregistrement de macro qui génère le code.
Et la j'ai un tout petit souci minime .
Ma macro va généré un tableau dont les données proviennent d'un fichier txt.
Ma macro vide mon fichier xls , puis fait l'import des données , convertir le tableau ( car l'import met les données sur une seul colonne donc je les défini) , puis elle fait un tri des données qui me sont inutiles , j'applique une mise en forme et la j'ai dans ma colonne I et J ( année, mois) une formule dans la case I2 et J2 que je voudrait mettre a l'ensemble de la colonne .
Donc j'ai ceci pour faire la copie de formule:
Sauf que la je prédéfini la fin de ma ligne, alors que je voudrait quel soit variable selon le nombre de ligne qui va etre généré a la fin du tableau.
J'aimerai utilisé ce code la :
( mais ceci ne me copie pas la formule et je ne sais comment utilisé le Selection.AutoFill Destination.
J'espère que j'aurai été clair dans ma démarche.
Je vous remercie d'avance pour votre aide.
Hier j'avais fait un post concernant [ Macro Import/Tri/Mise en forme]
J'ai réussi a avancé comme un grand grâce à l'enregistrement de macro qui génère le code.
Et la j'ai un tout petit souci minime .
Ma macro va généré un tableau dont les données proviennent d'un fichier txt.
Ma macro vide mon fichier xls , puis fait l'import des données , convertir le tableau ( car l'import met les données sur une seul colonne donc je les défini) , puis elle fait un tri des données qui me sont inutiles , j'applique une mise en forme et la j'ai dans ma colonne I et J ( année, mois) une formule dans la case I2 et J2 que je voudrait mettre a l'ensemble de la colonne .
Donc j'ai ceci pour faire la copie de formule:
Code:
Range("I2:J2").Select
Selection.AutoFill Destination:=Range("I2:J3215")
Range("I2:J3215").SelectSauf que la je prédéfini la fin de ma ligne, alors que je voudrait quel soit variable selon le nombre de ligne qui va etre généré a la fin du tableau.
J'aimerai utilisé ce code la :
Code:
Range("I2:J2").Select
Range(Selection, Selection.End(xlDown)).SelectJ'espère que j'aurai été clair dans ma démarche.
Je vous remercie d'avance pour votre aide.
Dernière édition: