Discussion :

[Alex86]

Bonjour,

J'essaye de finaliser une macro avec dedans les fonctions Index et equiv.
Les difficultés sont que je souhaite utiliser formula pour avoir la formule dans la cellule et j'utilise des variables.

Le reste du code fonctionne, la ligne qui bug est celle avec index.

Le code

Ci-dessous le 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
18
 
For g = 9 To 300
While Cells(g, 3) <> ""
 
Cells(g, e + 2).Formula = "=Min(" & Range(Cells(g, 5), Cells(g, e - 1)).Address & ")"
Cells(g, e + 3).Formula = "=Max(" & Range(Cells(g, 5), Cells(g, e - 1)).Address & ")"
 
If Cells(g, e).Value <> 0 And Cells(g, e).Value <> "" And Cells(g, e + 3).Value <> 0 Then
Cells(g, e + 5).Value = (Cells(g, e + 3).Value) / (Cells(g, e).Value)
 
Cells(g, e + 3).Formula = "=INDEX(" & Range(Cells(8, 5), Cells(8, e - 1)): Range(Cells(g, 5), Cells(g, e - 1)) & ",1," & "MATCH("&Cells(g, e + 3).value", & Range(Cells(g, 5), Cells(g, e - 1) &",0))"
 
End If
 
g = g + 1
 
Wend
Next

En vous remerciant par avance

[parmi]

Bonjour,

2 choses:

- Que vaut e lorsque tu passes à cette ligne?
- Donne-nous la formule telle que tu l'inscrirais en français dans la barre de formule

[Menhir]

Regarde ton code : toute la fin est en rouge.
Ca, c'est mauvais signe.

L'éditeur de ce forum ne comporte pas (pas encore ?) de débugueur VBA mais il indique en rouge ce qui est entre guillemets.
Si la zone rouge se poursuit au delà de ce qui était prévu, c'est que les guillemets sont en nombre impaire, ce qui est rarement fonctionnel.

A mon avis, il en manque un juste avant ton dernier & Range.

Mais il est étonnant que le VBE ait laissé passer ça (ce que confirme le value sans majuscule qui précède) ...

[pijaku]

Bonjour,
Lors de concaténation avec &, ne surtout pas omettre l'espace avant le &.
"MATCH" & Cells....

[pijaku]

J'ajoute également que le signe : au milieu des deux Range me semble étrange. Tout comme les 2 Range utilisés (au lieu de leurs propriétés Address).....

[Alex86]

Bonjour,

Excusez moi pour le délai de réponse.

Pour parmi:
e = Cells(8, Columns.Count).End(xlToLeft).Column

Je souhaiterai écrire =INDEX($E$8:$H$10;1;EQUIV(L9;E9:H9;0)) sachant que mes variables interviennent (jamais le même nombre de colonnes d'où l'intervention de e et pouvoir le faire sur plusieurs ligne avec g).

Pour menhir:
Il y avait bien un problème de synthaxe, j'arrive maintenant à lancer le code, cependant il bug sur la ligne en question.

Pour pijaku:

Penses tu qu'il faut utiliser le .address?

Voilà où en est le 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
18
19
20
 
For g = 9 To 300
While Cells(g, 3) <> ""
 
Cells(g, e + 2).Formula = "=Min(" & Range(Cells(g, 5), Cells(g, e - 1)).Address & ")"
Cells(g, e + 3).Formula = "=Max(" & Range(Cells(g, 5), Cells(g, e - 1)).Address & ")"
 
 
 
If Cells(g, e).Value <> 0 And Cells(g, e).Value <> "" And Cells(g, e + 3).Value <> 0 Then
Cells(g, e + 5).Value = (Cells(g, e + 3).Value) / (Cells(g, e).Value)
 
Cells(g, e + 3).Formula = "=INDEX(" & Range(Cells(8, 5), Cells(8, e - 1)) & ":" & Range(Cells(g, 5), Cells(g, e - 1)) & ",1," & "MATCH(" & Cells(g, e + 3).Value & "," & Range(Cells(g, 5), Cells(g, e - 1)) & ",0))"
 
End If
 
g = g + 1
 
Wend
Next

En vous remerciant,