Discussion :

[curt]

Bonjour à tous,

j'ai la formule suivant que je souhaiterai inclure dans une macro

Code :

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

=INDEX(AC:AC;LIGNE(DECALER(DAS!AC6;NBVAL(DAS!AC:AC)-1;0))-1;1)

Si avec des formules "simples" je suis à l'aise, avec des imbrications de fonction (notamment OFFSET pour DECALER), je suis vite largué.

Pour l'instant j'en suis là :

Code :

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

msgbox application.WorksheetFunction.Index("AC:AC",rows(offset( ?????

Après je sèche.

Merci d'avance pour le coup de main.
Curt

[ARTURO83]

Bonjour,

A mon avis, vouloir traduire une formule excel en VBA ne me paraît pas être la bonne solution, surtout quand il y a beaucoup de fonctions imbriquées. Soit vous conservez la formule excel dans une cellule et vous récupérez le résultat que vous affichez dans un msgbox, soit vous faites un bout de code qui va chercher ce résultat.
1er cas, récupération du résultat d'une formule (exemple résultat en A1)

Code :

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

MsgBox [A1]

2ème cas, recherche par code(d'après la formule utilisée, il semblerait que vous alliez chercher le contenu de l'avant dernière cellule de la colonne AC de la feuille DAS), ceci pourrait se traduire par

Code :

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

MsgBox Sheets("DAS").Cells(Sheets("DAS").Range("AC" & Rows.Count).End(xlUp).Row - 1, "AC")

Reste à savoir si c'est bien ce que vous voulez

Cdlt

[Theze]

Bonjour,

Voici :

Code :

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

1
2
 
Range("A1").Formula = "=INDEX(AC:AC,ROW(OFFSET(DAS!AC6,COUNTA(DAS!AC:AC)-1,0))-1,1)"

[curt]

Bonsoir à tous,

et merci à vous deux.
Les deux solutions fonctionnent:

• comparer un résultat entre deux cellules calculées est une solution. Mais si l'utilisateur efface l'une ou les deux cellules, le traitement est mort. On peut évidemment protéger et/ou masquer les cellules mais c'est vouloir ajouter des étages à la fusée et (à mon sens) ça peut alourdir la maintenance du classeur (dans une moindre mesure évidemment)

• La solution par VBA est certes plus compliquée à mettre en œuvre (imbrication de fonction à "traduire" en VBA) mais elle a l'avantage de faire abstraction des suppressions involontaires. C'est cette solution que je retiens.

Merci en tout cas à vous deux pour l'éclairage et les solutions proposées. (un p'tit pouce+ à chacun )
Curt