Bonjour,

je souhaite effectuer une petite opération sous Excel mais je rencontre une difficulté.

En fait, j'essaye d'insérer des formules dans plusieurs cellules d'une zone (qui se trouve sur une feuille) qui me permettent de répéter la valeur de diverses cellules d'une autre zone (qui se trouvent sur une autre feuille) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
debut_zone = CELLULE DE DEPART DE LA ZONE DE DESTINATION
debut_zone_orig = CELLULE DE DEPART DE LA ZONE D'ORIGINE
 
    Dim i As Integer
    Dim formula_temp As String
 
    Sheets("feuil2").select
 
    ' Copier la valeur des cellules
    For i = 0 To 20
        formula_temp = "=feuil1!" & Sheets("feuil1").Range(debut_zone_orig).Offset(0, i).Address()
        Range(debut_zone).Offset(0, i).FormulaR1C1 = formula_temp
    Next
Ce code ne fonctionne pas. J'ai passé un bon moment à essayer de comprendre pourquoi mais je n'arrive pas à comprendre pourquoi ça plante.

Est-ce que vous auriez une idée pour me premettre de résoudre cette difficulté ?

Merci d'avance.