Copier formules dans une cellule pour la coller

[Cazinos]

Bonsoir le forum

Comment peut-on avec un macro récuperer une formule qui se trouve dans
"C2" pour la coller dans "C4" si "D4" contient une valeur

exemple de macro: si(D4<>"";copie C2 et colle-le dans C4) faire le test sur toutes les lignes de la colonne "D" qui contiennent une valeur

on peu tirer la formule vers le bas ou double-cliquer dans le coin en bas à droite mais le nombre de ligne change à chaque fichier

merci

 

[Cousinhub]

Re : Copier formules dans une cellule pour la coller

Re-
il doit manquer End Sub à la fin....Scuse....

Sub Macro1()
Dim DerLig1 As Long, DerLig2 As Long
DerLig1 = [D65000].End(xlUp).Row
DerLig2 = [I65000].End(xlUp).Row
For Each cel In Range("D4:D" & DerLig1).SpecialCells(xlCellTypeConstants, 23)
    cel.Offset(, -1).FormulaR1C1 = "=VLOOKUP(RC[-1],Code_Rubrique,2,FALSE)"
Next cel
For Each cel In Range("I4:I" & DerLig2).SpecialCells(xlCellTypeConstants, 23)
    cel.Offset(, 1).FormulaR1C1 = "=IF(RC[-5]=421100,RC[-2],0)"
    cel.Offset(, 2).FormulaR1C1 = "=IF(RC[-6]=421100,RC[-2],0)"
Next cel
End Sub

 

[Cazinos]

Re : Copier formules dans une cellule pour la coller

bonjour le forum,

Voici ce que j'ai modifier dans la macro et ca fonctionne bien par contre j'ai essayé de faire la même chose dans mes onglet "bx" "cf" "cp" "sg" ca marche pas il faudrait que cette macro copie les formules au même endroit et l'est recopie aussi dans : "bx" "cf" "cp" "sg" en "j2:k2"

merci

Sub CopierFormule()

Dim DerLig As Long
DerLig = [I65000].End(xlUp).Row
Range("J2:K2").AutoFill Destination:=Range("J2:K" & DerLig)
Range("J3:K3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = xlNone
With Selection.Font
.Name = "Times New Roman"
End With

End Sub

 

[Cazinos]

Re : Copier formules dans une cellule pour la coller

bonsoir,

J'ai fait quelque modification à la macro ca fonctionne bien
par contre je sais pas comment coller les mêmes données en ("J2:K2") des onglets "bx, cf, cp, sg"

merci



Sub CopierFormule()


Sheets("BDD TEXTE PAYE").Select


Dim DerLig As Long

DerLig = [I65000].End(xlUp).Row
Range("J2:K2").AutoFill Destination:=Range("J2:K" & DerLig)

Range("J3:K3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = xlNone
With Selection.Font
.Name = "Times New Roman"

End With

End Sub

 

[Cazinos]

Re : Copier formules dans une cellule pour la coller

bonsoir,

J'ai fait quelque modification à la macro ca fonctionne bien
par contre je sais pas comment coller les mêmes données en ("J2:K2") des onglets "bx, cf, cp, sg"

merci



Sub CopierFormule()


Sheets("BDD TEXTE PAYE").Select


Dim DerLig As Long

DerLig = [I65000].End(xlUp).Row
Range("J2:K2").AutoFill Destination:=Range("J2:K" & DerLig)

Range("J3:K3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = xlNone
With Selection.Font
.Name = "Times New Roman"

End With

End Sub

 

[Cazinos]

Re : Copier formules dans une cellule pour la coller

scuse pour les doublons je voyais pas tout à l'écran