[XL-2003] Macro pour recopie de formule particulier

[jul123]

Bonjour à tous,

Je pense que vous allez trouver ça simple mais voici un petit fichier pour m'expliquer. En fait, il y a une macro déjà présente qui insère une ligne à chaque fois que l'on clique sur le bouton que j'ai shématisé ici en rouge. La ligne insérée est tout le temps à l'emplacement 9. Le problème c'est que je voudrais qu'a chaque fois que j'insère une ligne les formules G10, H10, I10, J10 et K10 soient prolongées sur la nouvelle ligne 9 automatiquement. Je n'arrive pas à le faire simplement est ce que quelqu'un aurait un code VBA qui marcherait bien?

Autre question, puis je insérer ce code à la suite de la macro nouvelle ligne qui existe déjà ou dois je créer une nouvelle macro? Merci de votre aide et bonne journée!

[Cocotte278]

Bonjour Jul123 ,

Tu dois pouvoir mettre le code à la suite de ta première macro.

Je pense que tu dois traiter les cellules une par une.

Code :

1
2
3
 
    Range("G9").Select 'cellule dans laquelle tu veux mettre ta formule
    ActiveCell.FormulaR1C1 = "=R[-2]C+R[-1]C" 'réécris la formule qui va bien

Fais cela pour les 5 cellules (G9, H9 I9 J9 et K9). Mais il faut être sûr que ta nouvelle ligne sera toujours la même (n°9).

Vérifie que la formule reste qd tu rajoutes une autre ligne

[Sclarckone]

Bonjour,

J'ai pas testé mais ça devrait faire ce que tu veux:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Dim myRange, myCell As Range
 
Set myRange = Range("G9:K9")
 
For Each myCell In myRange
 
    myCell.FormulaR1C1 = myCell.Offset(1, 0).FormulaR1C1   'si tu n'es pas en coordonnées de type R1C1 ça risque de ne pas faire ce que tu veux donc essaie alors d'utiliser la méthode PasteSpecial pour copier/coller la formule
 
Next myCell
 
Set myCell = Nothing
Set myRange = Nothing

Tu peux placer ça après le bout de code qui insère la ligne 9.