Référence dans formule Excel depuis VBA

Version imprimable

12/09/2008, 16h43
Neosquall2

Référence dans formule Excel depuis VBA

Bonjour à tous,

Voilà ce que je voudrais faire, et dont je n'ai pas la solution:
Alors mon but est de mettre à jour des cellules contenant une formule. Je prends direct un exemple pour expliciter mes propos.

J'ai une des cellules dont le contenu est "=AA30/O73". Et ce que je veux faire c'est qu'il y ait écrit après passage de la macro "=AD30/O73", c'est-à-dire un décalage de 3 cases vers la droite du numérateur. Cela pour tout une plage de cellules. Et là j'avoue que je sèche. J'en suis à penser de faire une reconnaissance de caractères qui fasse ceci, mais il doti y avoir plus simple. Sinon je me demandais s'il existait une fonction permettant d'obtenir les cellules de référence de ma formule dans ma case.
Je m'explique, imaginons que "=AA30/O73" soit écrit dans la case A1, j'aimerais que MaFonction(A1) me renvoie un tableau composé de AA30 et de O73.

Auriez-vous une idée ?

Merci.
12/09/2008, 18h43
will Igetit

une methode

ecris ta formule simplement =A1/B3 va dans tools/option/general et clique sur R1C1 ensuite retourne dans ta case ou tu a la formule et tu obtiens son ecriture sous vba
ensuite tu copie cette nouvelle ecriture dan ta fonction ici
cells(whatever that is)=RC[-1]/R[2]C pour decaler tu fait
cells(whatever that is)=RC[2]/R[2]....
c pas tres clair j'avoue mais bon ..
enfait R veut dire ligne et C colonne don tu demande de bouger de trios colonnes.

en esperant que tu comprennes quelquechose:lol:

Bonsoir,

tiens en utilisant par exemple split, offset et replace..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub YaDecal3()
 Dim MaPlageAtraiter As Range
 Dim YaCel As Range
 Dim tb
 Set MaPlageAtraiter = ThisWorkbook.Sheets("Feuil1").Range("E2:E8")
 MaPlageAtraiter.Select
 For Each YaCel In MaPlageAtraiter
   tb = Split(YaCel.Formula, "/")
    If UBound(tb) <> 1 Then
      MsgBox "Erreur formule incorrecte en " & YaCel.Address & vbCrLf & YaCel.Formula
      Else
        Debug.Print YaCel.Formula;
        tb(0) = Mid(tb(0), 1) 'Enleve le signe egal
        YaCel.Formula = "=" & Range(tb(0)).Offset(1, 3).Address & "/" & tb(1)
        Debug.Print "==>" & YaCel.Formula
        'S'il faut enlever les $ rajoute par exemple
        'YaCel.Formula = "=" & Replace(Range(tb(0)).Offset(1, 3).Address, "$", "") & "/" & tb(1)
    End If
 Next
End Sub

13/09/2008, 07h37
alsimbad
peut etre qu'indirect te conviendrais et serais plus simple a mettre en oeuvre
Code:

1 2 =INDIRECT(A1) / INDIRECT(A2)
disons que tu ai aa30 en a1 et o73 en A2 elle te renverra
contenuAA30 / contenuO73
si tu écris AD30 en A1 tu obtiendra
AD30/O73
et si c'est pas une division que tu veux mais composer une adresse, tu peux aussi esayer
Code:

1 2 INDIRECT(A1) & ":" & INDIRECT(A2)
15/09/2008, 09h09
Neosquall2

Ok !
Merci à vous pour vos réponses, je devrais pouvoir m'en sortir :)