Copier une formule dans une cellule d'une ligne ajoutée

[dascoco]

Bonjour à tous,

VBA et moi ca fait 3 voir 4 et je cherche depuis un moment.
J'ai trouvé un code qui me permet d'ajouter une ligne lorsqu'une cellule n'est pas vide, le code marche. Maintenant je souhaite qu'une fois la ligne 27 est ajouté la formule en H26 soit copiée en H27.

Voici le code pour ajouter la ligne.

Private Sub Worksheet_Change(ByVal Target As Range)
' teste si la cellule juste au dessus est remplie
If Range("A27").Offset(-1) <> "" Then
' ajoute une ligne - la ligne s'insère au dessus
Application.EnableEvents = False ' pour ne pas se mordre la queue
Range("A27").EntireRow.Insert xlShiftDown
Application.EnableEvents = True
End If

End Sub



Si vous avez une solution je suis preneur, merci d'avance.

 

[Temjeh]

Re : Copier une formule dans une cellule d'une ligne ajoutée

Bonjour

À la fin du code

Range("H27") = Range("H26").Formula

A+

Temjeh

 

[dascoco]

Re : Copier une formule dans une cellule d'une ligne ajoutée

merci pour ta réponse, ta formule fonctionne mais m'affice le résultat de H26 [ =SI(G26>0;F26+RECHERCHEV(G26;$C$29:$D$30;2)*G26;"") ] alors que je souhaite les résultats de H27,H28,H29, ..., s'adapte à leur propre référence de ligne.

Désolé si je me suis mal fait comprendre.

 

[job75]

Re : Copier une formule dans une cellule d'une ligne ajoutée

Bonjour dascoco, salut Temjeh,

Pour que la formule s'adapte en H27 il faut écrire :

Range("H27") = Range("H26").FormulaR1C1

Maintenant vous aviez écrit :

J'ai trouvé un code qui me permet d'ajouter une ligne lorsqu'une cellule n'est pas vide, le code marche. Maintenant je souhaite qu'une fois la ligne 27 est ajouté la formule en H26 soit copiée en H27.

Alors si vous voulez d'autres lignes que la ligne 27, il faut nous dire quels sont les critères qui définissent la ligne à traiter.

La boule de cristal a ses limites

A+

 

[dascoco]

Re : Copier une formule dans une cellule d'une ligne ajoutée

Bonjour,

désolé du retard, je viens juste de rallumer mon PC.
Ca marche impec, par contre comment faire pour copier également en colonne F

Range("H27") = Range("H26").FormulaR1C1
Range("F27") = Range("F26").FormulaR1C1

Quand j'essaye ce code excel plante.
Merci d'avance

 

[dascoco]

Re : Copier une formule dans une cellule d'une ligne ajoutée

personne pour me repondre?

 

[job75]

Re : Copier une formule dans une cellule d'une ligne ajoutée

Bonjour,

personne pour me repondre?

dascoco, vous vous fichez du monde :

La boule de cristal a ses limites

Vous ne daignez même pas indiquer la formule qu'il y a en F26, ou mieux joindre le fichier avec la macro...

Alors débrouillez-vous tout seul.

A+

 

[dascoco]

Re : Copier une formule dans une cellule d'une ligne ajoutée

Bonjour,
excusez moi mais je ne vous ai pas envoyé chir comme cela alors que vous n'avez pas su répondre à ma question.

Premièrement je ne peut vous joindre le fichier vu qu'il s'agit d'un fichier professionnel.
Deuxièmement la première formule de recopie fonctionne alors je vois pas pourquoi il n'est pas faisable de m'informer de la formule adéquate pour faire de même dans une seconde colonne, mais si vous avez rééllement besoin de connaitre le calcul en F26, =D26*E26


Cordialement