Discussion :

[valou94250]

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 :

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

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 :

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

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

[mercatog]

Par exemple

Code :

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

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

[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 ?