FormulaR1C1 avec variable gelée

Version imprimable

Bonjour tout le monde,

J'ai besoin de vos conseils en vba.
Je voudrais utiliser ActiveCell.FormulaR1C1 avec une variable gelée.

la formule qui fonctionne est la suivante:
Code:

1 2 3 Range(ad1).Select Selection.Offset(2, 2).Select ActiveCell.FormulaR1C1 = "=index(mat,match(RC[-3],ref,0),match(R[-1]c[-2],pi,0))"
Pour la duplication de cette ligne par l'utilisateur, j'aimerais que la cellule définie tel que R[-1]c[-2] soit figée.
Ne trouvant pas de solution simple à mon problème je tente le bidouillage (Je prie les puristes de bien vouloir m'excuser). J'ai donc défini les coordonnées de la cellule que je veux geler dans adpi.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim adpi As String Dim ligne As Integer Dim colonne As Integer adpi = [b1:b63520].Find(what:=don, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Offset(1, 0).Address Range(adpi).Select ligne = ActiveCell.Row colonne = ActiveCell.Column colonne = Asc("colonne") Range(ad).Select Selection.Offset(2, 2).Select ActiveCell.FormulaR1C1 = "=index(mat,match(RC[-3],ref,0),match( R " & ligne & " C " & colonne & " ,pi,0))"
Mais celà ne fonctionne pas... Merci d'avance pour vos lectures et réponses!

Bien cordialement
Valou

Par exemple

Code:

1
2
3
4
5
6
7
With Worksheets("Feuil1")
    Set Adpi = .Range("B:B").Find(what:=don, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns)
    If Not Adpi Is Nothing Then
        Adpi.Offset(2, 2).FormulaR1C1 = "=INDEX(" & Mat & ",MATCH(RC[-3]," & Ref & ",0),MATCH(" & Adpi.Offset(1, 0).Address(True, True, xlR1C1) & "," & Pi & ",0))"
        Set Adpi = Nothing
    End If
End With

08/08/2012, 09h54
valou94250

Bonjour mercatog,

Merci, c'est exactement ce que je voulais faire, j'ai juste remodifié la syntaxe car pi, ref et mat sont des plages de cellules. Mais ca fonctionne du feux de dieu!

Pourrais tu, stp, me confirmer que j'ai bien compris cette partie du code pour que je sois moins bête ce soir en me couchant:
" & Adpi.Offset(1, 0).Address(True, True, xlR1C1) & "

les true sont pour obtenir les coordonnées en reférences absolues, c'est donc ce qui me permet d'ajouter le signe $ et xlR1C1 permet de retourner les valeurs sous forme de coordonnées ?