OVH Cloud OVH Cloud

probleme macro

2 réponses
Avatar
Simon
Bonjour a tous,
J'ai la formule suivante
********************
Sub Relative2Absolute()
For Each c In Selection
If c.HasFormula = True Then
c.Formula = Application.ConvertFormula(c.Formula, _
xlA1, xlA1, xlAbsolute)
End If
Next c
End Sub
*********************
qui me mes des signe de $$$ dans ma formule suivante

=RECHERCHEV(C54;K70:L74;2;FAUX)

qui devient ceci

=RECHERCHEV($C$54;$K$70:$L$74;2;FAUX)

y a t-il une facon que sa fasse sa a la place

de :
=RECHERCHEV(C54;K70:L74;2;FAUX)
a:
=RECHERCHEV($C$54;K70:L74;2;FAUX)

donc en résumer qu'il me change juste a une place les signe de $$

Merci de votre attention

2 réponses

Avatar
anonymousA
Bonjour,

p.e si la formule est =recherchev(B6;A1:A4;1;0) dans la cellule active,
la proc suivante transfromera la formule en =recherchev($B$6;A1:A4;1;0)

I = 6
chain1 = "B" & I & ";"
chain2 = "$B$" & I & ";"
activecell.FormulaLocal =
Application.WorksheetFunction.Substitute(ActiveCell.FormulaLocal,
chain1, chain2)

à adpater à ton problème bien sur

A+
Avatar
Simon
Merci a toi sa marche #1
:)
j'ai simplement changer sa

I = ActiveCell.Row

Merci encore

"anonymousA" a écrit dans le message de news:

Bonjour,

p.e si la formule est =recherchev(B6;A1:A4;1;0) dans la cellule active,
la proc suivante transfromera la formule en =recherchev($B$6;A1:A4;1;0)

I = 6
chain1 = "B" & I & ";"
chain2 = "$B$" & I & ";"
activecell.FormulaLocal Application.WorksheetFunction.Substitute(ActiveCell.FormulaLocal,
chain1, chain2)

à adpater à ton problème bien sur

A+