recopie formule

[gerard55]

Bonjour à tous
je cherche en vain, à recopier une formule contenue dans la ligne D. Et, je veux la recopier une colonne sur 2 sur 30 lignes vers le bas.
je ne parviens pas à réaliser la boucle pour avancer d'une colonne à l'autre.
Merci pour votre aide
à +

 

[pierrejean]

Re : recopie formule

bonjour gerard gesret

un peu plus de renseignements serait utile (a defaut d'un fichier exemple qui est toujours preferable)

par exemple : limite concernant les colonnes (sinon colonne IV ??)

 

[pierrejean]

Re : recopie formule

re

petit code a interpreter (et a tester)

Sub test()
 For n = 6 To 256 Step 2
  For m = 1 To 30
    Cells(m, n).Formula = Range("D1").Formula
  Next m
 Next n
 End Sub

 

[gerard55]

Re : recopie formule

bonjour PierreJean
je n'ai pas été assez explicite. je joins un morceau du fichier
Merci pour votre aide
à +

 

[pierrejean]

Re : recopie formule

re

voila

 

[gerard55]

Re : recopie formule

Encore une question
ça marche bien à partir de la cellule d 12 mais, dans la colonne E c'est en E12 au je récupère la formule, dans la colonne F, c'est en F 12 etc. Or, la formule proposée (range d12) reprend toujours la même formule.
Merci PierreJean

 

[pierrejean]

Re : recopie formule

re

voici la macro pour recuperer dans la colonne concernée
(a tester)

Sub test()
For n = 4 To 18 Step 2
 For m = 13 To 29
   Cells(12, n).Copy Destination:=Cells(m, n)
 Next m
Next n
End Sub

edition : je viens de tester et il y avait une erreur (toutes mes excuses)

 

[gerard55]

Re : recopie formule

PierreJean

ok ça marche très bien. j'avais identifier l'erreur.
dernière question. si je dois recopier uniquement les formules que dois-je ajouter.
Merci encore

 

[pierrejean]

Re : recopie formule

bonsoir

encore sans filet (flemme de tester)

[LEFT]Sub test()
For n = 4 To 18 Step 2
 For m = 13 To 29
  Cells(m, n).formula=  Cells(12, n).formula
 Next m
Next n
End Sub

[/LEFT]