Discussion :

[Novice72]

Bonjour à toutes et à tous,

Voici une formule qui fonctionne très bien mais qui possède un GROS problème.

Code :

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

1
2
3
4
5
6
 
Sub Macro2()
    Range("J20").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(R[-19]C[-9]:R[-10]C[-5])"
    Range("J20").Select
End Sub

Dans un premier temps je vous explique ( je pense que c'est nécessaire ) le fonctionnement de cette formule créée avec l'éditeur de macros
Cette formule signifie que je me positionne en cellule J20
Cette cellule calcule la moyenne d'un tableau défini comme suit : R[-19] ---> par rapport à J20 on se déplace vers la gauche de 19 lignes on arrive en J1
C[[-9] ---> par rapport à J1 on monte de 9 lignes on arrive en A1
Le tableau commence ( coin en haut à gauche ) en cellule A1
Après les " : " , c'est le coin inférieur droit R[-10] --> par rapport à J20 on se déplace vers la gauche de 10 lignes on arrive en J10
C[-5] --> par rapport à J10 on monte de 5 ligne on arrive en J5
Le tableau est donc ("A1:J5")

Voici mon problème : mon tableau étant variable, si je remplace au moins un chiffre par une variable par exemple :

Code :

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

1
2
3
4
5
6
7
8
 
 
Sub Macro2()
    Range("J20").Select
    p=-5
    ActiveCell.FormulaR1C1 = "=AVERAGE(R[-19]C[-9]:R[-10]C[p])"
    Range("J20").Select
End Sub

plus rien ne fonctionne. Même si j'attribue p=5 et j'écris C[-p]


Quelqu'un a-t-il une explication ?


Merci d'avance.

Novice72

[njhub]

Essayez avec

Code :

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

 ActiveCell.FormulaR1C1 = "=AVERAGE(R[-19]C[p]:R[-10]C[-9])"

[unparia]

Bonjour
Une formule est une CHAINE DE CARACTERES
Ta question revient donc à te demander comment construire par concaténation une chaîne de caractères contenant la valeur d'une variable ! (le B.A.BA, quoi ...)
exemple :

Code :

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

1
2
nb = 5
MsgBox "le petit frère de toto a " & nb & " ans"

vraiment trop élémentaire ...

[Novice72]

Bonjour njhub,

Pour répondre à ta proposition, j'ai déjà essayé.
c'est exactement mon problème.
Je souhaite remplacer ( dans un premier temps un chiffre par une variable ( préalablement définie ) ) et ça ne fonctionne pas.
Quand j'aurai trouvé la solution, je le ferai pour les 4 chiffres......


Encore merci pour ton aide.

Novice72

[Philippe Tulliez]

Bonjour,
Je pense avoir répondu à ta question dans ce fil

A lire également ces deux billets

• Ecrire une formule dans Excel à l'aide d'une procédure VBA
• Comment écrire une formule plus complexe dans une cellule ?

[Novice72]

bonjour Unparia,

Es-tu sûr que cela correspond à une chaîne de caractère ?

En effet, étant donné qu'il y a un " = " pour moi, c'est une formule.

Exemple
cells(20,20)= " le petit frère de toto a " & nb & " ans " affichera le petit frère de toto a 8 ans dans la cellule T20 ( dans le cas où nb = 8 ) ça je "maîtrise"

ici si je devais appliquer ce que tu me dis ( concatainer ),

cells(20,20)= "=AVERAGE(R[" & a & "]C[" & b & "]:R[" & c & "]C[" & d & "])" ici, j'ai laissé des espaces pour plus de clarté a, b, c, et d sont bien sûr les variables.



j'obtiendrais dans la cellule T20 l'affichage suivant: =AVERAGE(R[-19]C[-9]:R[-10]C[-5]) bien sûr dans le cas où a=-19, b=-9 , c=-10 et d=-5

C'est bien ça le problème.... Je ne veux pas un message, mais le résultat d'un calcul.


Merci pour ton aide.


Novice72

[Novice72]

Merci Philippe,

Je regarde ça dès maintenant


A bientôt.


Novice72

[Philippe Tulliez]

Bonjour Novice72,

Es-tu sûr que cela correspond à une chaîne de caractère ?
En effet, étant donné qu'il y a un " = " pour moi, c'est une formule

Une fonction en règle générale a un ou plusieurs arguments qui peuvent être une constante numérique ou alphanumérique (chaîne de caractères donc), la référence à une cellule ou une autre fonction (on parle alors de fonction imbriquée dans une fonction)
En VBA la valeur de la propriété Formula (que je préfère à la propriété FormulaR1C1 proposée par défaut par l'enregistreur de macros) lorsque le contenu de la cellule est une formule est une chaîne de caractères.
Extrait de l'aide d'excel pour cette propriété

Si la cellule contient une constante, la propriété la renvoie. Si la cellule est vide, cette propriété renvoie une chaîne vide. Si la cellule contient une formule, la propriété Formula renvoie la formule en tant que chaîne dans le même format que celui qui doit s'afficher dans la barre de formule (y compris le signe égal).

[riaolle]

Bonjour,

cells(20,20)= "=AVERAGE(R[" & a & "]C[" & b & "]:R[" & c & "]C[" & d & "])" ici, j'ai laissé des espaces pour plus de clarté a, b, c, et d sont bien sûr les variables.
j'obtiendrais dans la cellule T20 l'affichage suivant: =AVERAGE(R[-19]C[-9]:R[-10]C[-5]) bien sûr dans le cas où a=-19, b=-9 , c=-10 et d=-5

Oui, car il faut préciser que tu écris une formule, comme tu l'as fait avant d'introduire le problème des variables :

Code :

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

cells(20,20).FormulaR1C1= "=AVERAGE(R[" & a & "]C[" & b & "]:R[" & c & "]C[" & d & "])"

[Novice72]

Merci beaucoup à toi Riaolle,

J'ai résolu mes problèmes. Plage variable, cellule préparée à calculer une moyenne alors qu' elles sont vides au départ puisque tableau en création dans la même macro ( ce qui bloquait la macro ) BREF :


ENCORE MERCI RIAOLLE
Pour les personne qui aurait le même souci, je donne mon code :

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
16
17
 
' Le tableau étant défini à partir du coin haut gauche et bas droite,
' hg permet de se déplacer suivant les lignes pour rejoindre le coin haut gauche  -   si négatif on monte      ( par rapport à la cellule qui calcule la moyenne )
' gh permet de se déplacer suivant les colonnes pour rejoindre le coin haut gauche   - si négatif on se déplace vers la gauche
' De même pour bd et db : le premier comme hg  et le second comme gh    ( définit le coin bas droite )
 
subtest()
Dim hg As Integer
Dim gh As Integer
Dim bd As Integer
Dim db As Integer
hg = i - t
gh = -nombrevaluation
bd = 0
db = -1
ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & hg & "]C[" & gh & "]:R[" & bd & "]C[" & db & "])"
end sub