Recopie de formule dans une plage

Bonsoir,

Je fait à nouveau appel à la communauté car je bute sur un petit problème. Dans le tableau B de mon fichier test je voudrais copier la formule en cellule F12 dans les cellules vertes en dessous. Dans mon projet initial certaines lignes du tableau B sont supprimées et le tableau re-trié. Ce qui implique une modification du numéro de cellule dans ma formule et donc plus de résultats. Dans la partie verte, je voudrais soit copier ma formule dans les cellules soit afficher le résultat. J'ai essayé différentes façons de regler mon problème mais rien ne fonctionne. Je partirais donc sur une boucle comme suit :

Sub Bouton1_Cliquer()

Dim i As Integer

For i = 13 To 19

Range("F" & i).Formula = "=IF($B13="""","""",$B13&" > "&$E13)"

Next

End Sub

Je ne sais pas si ça peut fonctionner. sachant que je voudrais remplacer le 13 par ma variable i. J'espère avoir été assez clair.

Merci par avance.

Bonsoir,

Mets ta formule dans le gestionnaire de Nom comme j'ai fait en F13 (Tu peux utiliser GALOPIN, LIBELLULE ou CERISE, on s'en fout...)

Ensuite :

Sub Bouton1_Cliquer()
Dim i As Integer
For i = 13 To 19
Range("F" & i).Formula = "=GALOPIN"
Next
End Sub

A+

Merci, c'est exactement ce que je voulais. c'est fou comme c'est plus simple.