Ne trouve pas la cellule

Bonjour,

J'execute la partie du programme suivant, et une erreur s'affiche sur la 4 ème ligne. Et je ne vois pas d'où vient l'erreur.

Pourriez vous m'aider svp ?

If ComboBPI1.Value = "FI 1" Then
    Sheets("FI 1").Range("F7") = TextPI13.Value
    Sheets("FI 1").Range("F8") = TextPI4.Value
    Sheets("Resultat 1").Range("D34").FormulaR1C1 = "='FI 1'!R[-15]C[2]"
ElseIf ComboBPI1.Value = "FI 2" Then
    Sheets("FI 2").Range("F7") = TextPI13.Value
    Sheets("FI 2").Range("F8") = TextPI4.Value
    Sheets("Resultat 2").Range("D34").FormulaR1C1 = "='FI 2'!R[-15]C[2]"
End If

Je n'ai pas bien compris à quoi sert le " '!R[-15]C[2]" ", il me semble que c'est pour faire appel à la cellule F19 de la feuille " FI 1" ou de la fiche "FI 2".

Merci d'avance.

Bonjour,

Essaie ainsi :

If ComboBPI1.Value = "FI 1" Then
    Sheets("FI 1").Range("F7") = TextPI13.Value
    Sheets("FI 1").Range("F8") = TextPI4.Value
    Sheets("Resultat 1").Range("D34").FormulaR1C1 = "=FI 1!R[-15]C[2]"
ElseIf ComboBPI1.Value = "FI 2" Then
    Sheets("FI 2").Range("F7") = TextPI13.Value
    Sheets("FI 2").Range("F8") = TextPI4.Value
    Sheets("Resultat 2").Range("D34").FormulaR1C1 = "=FI 2!R[-15]C[2]"
End If

Bonjour,

Merci de votre réponse mais cela ne fonctionne pas.

Je suis toujours bloqué avec ce problème

Bonjour,

Je ne sais plus pourquoi j'ai répondu, et pourquoi, j'ai simplement recopié ton exemple ?

Cdlt.