Discussion :

[ouioui_cmoi]

Bonjour,
Je voudrais que dans une cellule s’inscrive s’inscrive la formule « =sheet1! » plus une référence cellule qui va varier, mais dont j’ai déterminé le numéro de ligne et de colonne, par les variables ligne et colonne.
Néanmoins tous mes essais me mènent à un message d’erreur…
Si quelqu’un pouvait me conseiller, je ne pense pas que ce soit très difficile.
Pour le moment ma formule est : (« c » est une cellule selectionnée auparavant)

Code :

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

1
2
 
c.Offset(0, -2).FormulaR1C1 = "=sheet1!" & Cells(ligne, colonne)

Merci par avance de votre réponse

[ouskel'n'or]

Teste avec formulalocal

[tomy7]

Code :

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

activesheet.range("A1").formula = "=sheet1!"  & cells ( , ).address

[Gorfael]

Salut ouioui_cmoi
J'ai supprimé mon poste précédent, par ce qu'il ne répond pas à la question (Oups)

Code :

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

1
2
 
c.Offset(0, -2).FormulaLocal = "=sheet1!" & Cells(ligne, colonne)

avec, bien évidemment la cellule Ligne -colonne de la feuille active qui contient une adresse de cellule

On pourrait utiliser la FormulaR1C1, mais l'adresse de la cellule devra être donnée avec la syntaxe qui se rapporte à la formule

Code :

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

1
2
 
c.Offset(0, -2).FormulaR1C1 = "=sheet1!R" & ligne & "C" & colonne

L'usage de FormulaLocal me semble un tantinet plus simple.
Et tu peux tester la syntaxe directement sur la feuille, puis faire un copier/coller et remplacer les valeurs de ta formule par tes variables
A+

[ouioui_cmoi]

Merci pour vos réponses, mais malheureusement, ça ne marche toujours pas
J'ai essayé avec formulalocal
et avec cells().adress...
Je vous envoie mon code, si vous voyez l'erreur....sachant qu'a l'execution, il plante à la ligne c.offser().formulalocal
Il me met l'erreur :
"Run-time error 438 Object doesn't support this property or method"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
   Worksheets(1).Activate
    With Worksheets(1).Range("N1:P100")
    Set d = .Find("eur   1", LookIn:=xlValues)
    If Not d Is Nothing Then
        e = d.Offset(0, 1).Select
 
        ligne = ActiveCell.Row: colonne = ActiveCell.Column
    End If
    MsgBox (d)
    MsgBox (e)
    MsgBox (ligne)
    MsgBox (colonne)
 
    End With
    Worksheets(3).Activate
    With Worksheets(3).Range("N1:P100")
    Set c = .Find("eur   1", LookIn:=xlValues)
    If Not c Is Nothing Then
 
 
        c.Offset(0, -2).FormulaLocal = "=sheet1!" & Cells(ligne, colonne).adress
 
 
    End If
End With

Merci d'avance pour votre aide

[tomy7]

juste avec le avec formula et avec formulalocal?

deja adress s ecrit address...!!!!!!

[ouioui_cmoi]

oups, merci beaucoup...
en fait je l avais aussi fait avec formulalocal sans address, ça ne marchait pas non plus...
mais avec formula et .address c'est bon ça marche
donc merci encore