MFC Ligne de couleur et collage de formule

[jebibo]

Bonjour à tous

j'utile souvent des bases de données avec plussieur lignes, pour facilité mon travail
j'ai inclus une MFC afin de coloré la ligne ou je me trouve dans mon tableau, j'ai également
inclus un champactif avec MFC pour l'utilisation des filtres.
Cependant mon problème est le suivant:
j'ai une formule dans céllule G3 je dois la copier G8 à G16 et lorsque je fais un copier et options
collage ça ne fonctionne pas.
Est-ce mon code ou ma MFC qui à un problème.

Merci de votre attention.

 

[reve24]

Re : MFC Ligne de couleur et collage de formule

bonjour
fais seulement
Sub Macro1()
'
' Macro1 Macro
'

'
ActiveCell.FormulaR1C1 = "=RC[-1]*(100-RC[1])/100"
Range("G8").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*(100-RC[1])/100"
Range("G8").Select
Selection.AutoFill Destination:=Range("G8:G16")
Range("G8:G16").Select
Range("B1").Select
End Sub

pas catholique mais efficace

 

[jebibo]

Re : MFC Ligne de couleur et collage de formule

Merci reve 24

Toutes fonctionne
Au plaisir

 

[jebibo]

Re : MFC Ligne de couleur et collage de formule

Boisoir reve24

Est-ce possible de modifier le vba pour pouvoir copier une formule dans tt le fichier. Car la macro que tu m'as faite fonctionne seulement pour cette céllule. Je dois copier d,autre formule dans d'autre cellule.
Merci pour ton aide.

A+