Discussion :

[julieng31]

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.

[aliasjadawin]

attention c'est "Feuil" et pas "feuil"
et "Address" et pas "Address()"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
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

tu devrais également déclarer debut_zone et debut_zone_orig comme des string

[julieng31]

Je viens de transformer address() en address. J'ai toujours le même plantage.

Ce que je ne comprends pas, c'est que quand j'affiche 'formula_temp', j'obtiens bien : =Feuil1!$D$33 qui est ce que je veux mettre dans ma cellule et qui marche quand je le mets directement dans une cellule dans excel (sans passer par VBA).

D'autre part, les débuts de zone sont les paramètres de ma fonction :
Function nommer(ByVal debut_zone As String, ByVal debut_zone_origine As String).

Enfin, pour le nom de la feuille, elle a été nommée avec des minuscules donc c'est cohérent.

[mercatog]

Formula au lieu de FormulaR1C1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 0 To 20
    formula_temp = "=feuil1!" & Sheets("feuil1").Range(debut_zone_orig).Offset(0, i).Address()
    Sheets("feuil2").Range(debut_zone).Offset(0, i).Formula = formula_temp
Next

[julieng31]

Merci Mercatog, c'était bien cela. Erreur bête de ma part :-)