Incrémenter formule dans macro

[TOFEIGHT]

Bonjour,

J'ouvre un fichier excel qui peut contenir plusieurs lignes, j'insère une nouvelle colonne dans laquelle je mets une formule simple '=D1/100' j'aimerai que cette formule s'applique à chaque cellule non vide de la colonne D. Tout ceci dans une macro évidemment.

Merci de m'éclairer.

 

[Jacques87]

Bonjour



For I = 2 to 20
Range('D' & I).FormulaLocal = '=D1/100'
Next I

te permettra de recopier la formule '=D1/100' de la ligne 2 à la ligne 20, dans la colonne D

Bon courage

 

[TOFEIGHT]

Merci pour la réponse mais cela ne m'avance pas car avec ta solutions la formule se mettra dans les 20 1ère lignes or ce qu'il faut s'est que la formule se mette en fonction du nombre de ligne qu'il y a et ce nombre peut varier de 1 à 200.

Il y a peut être une autre solution mais pour cela je t'explique ma procédure.

J'exporte des factures à partire d'un programme spcifique. Le fichier est en .TXT ma macor ouvre le fichier adapte les colonnes, le format de cellule etc. Le hic c'est que le montant des facture s'affiche sans décimale. La macro doit ensuite copie le tableau complet vers un autre classeur excel préformaté (banque). Dans ce second classeur il me faut les décimale et je ne peut y mettre de formule.

La macro copie la colonne de prix et fait un collage spéciale (valeur uniquement) dans le second classeur.

Le problème c'est pour copier uniquement les valeur > 0.

Je ne sais pas si je suis clair mais bon je débute dans excel et c'est pas évident.

Merci.

 

[PascalXLD]

Bonjour

pour reprendre la macro de Jacques

For I = 2 to range('D65536').end(xlup).row
Range('D' & I).FormulaLocal = '=D1/100'
Next I

Bon courage

 

[TOFEIGHT]

C'est presque ca sauf que la formule =D1/100 doit se trouver en ligne, en ligne 2 la formule doit être =D2/100, etc.

Merci.

 

[PascalXLD]

RE

mais en cellule D2 tu ne peux pas avoir une formule =D2/100

c'est circulaire

 

[TOFEIGHT]

Je me suis mal fait comprendre en fait la formule ce met en D mais la cellule de référence est en C, donc si C1 etc n'est pas vide on applique la formule dans D1 etc.

En fait ce que j'essaie de faire c'est que les valeurs en c soient divisées par 100 si la cellule en C n'est pas vide.

Merci.

 

[PascalXLD]

RE

essaies

For I = 2 to range('C65536').end(xlup).row
if range('C' & I) ‹› '' then Range('D' & I).FormulaLocal = '=C' & I & '/100'
Next I

 

[TOFEIGHT]

Nikel, Merci