Afficher l'origine du résultat vba

Bonjour, j'ai un petit problème, après avoir codé VBA j'obtiens tout mes résultats "en dur", comme 12 par exemple et j'aimerais qu'il soit affiché dans la bar de formule l'origine du résultat afin qu'une personne ne sachant pas coder vba puisse lire le fichier et voir l'origine des valeurs.

Ex: C1=12 et je copie C1 dans A1 avec VBA, en A1 j'ai 12 et j'aimerais que dans la barre de formule s'affiche =C1. Si quelqu'un a une solution je suis preneur! Toute aide est la bienvenue.

Merci d'avance.

Citation:

---

Envoyé par Rougiel

Ex: C1=12 et je copie C1 dans A1 avec VBA, en A1 j'ai 12 et j'aimerais que dans la barre de formule s'affiche =C1.

---

Code:

---

Range("A1").Formula = "=C12"

---

Merci beaucoup, j'ai compris le principe mais je n'arrive pas à le mettre en place pour toute une range et d'une feuille à une autre (l'outil range renvoie une erreur et l'outil cells mets dans la cellule w.Cells(1,1+i) par exemple) je mets mon programme en copie.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub miseenforme() Dim i As Integer Dim rgd As Range Dim w As Worksheet ThisWorkbook.Activate Set rgd = ThisWorkbook.Worksheets("Tab détails").Range("B2").Resize(10, 3) Set w = ThisWorkbook.Worksheets("Détails") For i = 1 To 10 ThisWorkbook.Worksheets("Tab détails").Cells(1 + i, 2) = ThisWorkbook.Worksheets("Détails").Cells(5, 67 + i) ThisWorkbook.Worksheets("Tab détails").Cells(1 + i, 3) = ThisWorkbook.Worksheets("Détails").Cells(6, 67 + i) ThisWorkbook.Worksheets("Tab détails").Cells(1 + i, 4) = ThisWorkbook.Worksheets("Détails").Cells(7, 67 + i) Next

---

Bonjour

Code:

---

1 2 3 4 5 6 7

Set wbk1 = ThisWorkbook.Worksheets("Tab détails") Set wbk2 = ThisWorkbook.Worksheets("Détails") For i = 1 To 10 wbk1.Cells(1 + i, 2).Formula = "=" & Replace(wbk2.Cells(5, 67 + i).Address, "$", "") wbk1.Cells(1 + i, 3).Formula = "=" & Replace(wbk2.Cells(6, 67 + i).Address, "$", "") wbk1.Cells(1 + i, 4).Formula = "=" & Replace(wbk2.Cells(7, 67 + i).Address, "$", "") Next

---

Merci pour le code, ça marche bien quand les données sont sur la même feuille malheureusement quand je passe d'une feuille à une autre ça n'affiche que des 0 et/car ça renvoie aux cellules de la feuille de destination.

Code:

---

wbk1.Cells(1 + i, 2).Formula = "=" & wbk2.Cells(5, 67 + i).Address(False, False, , True)

---

Merci beaucoup ça marche!