Discussion :

[Rougiel]

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.

[Menhir]

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 :

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

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

[Rougiel]

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 :

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

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

[patricktoulon]

Bonjour

Code :

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

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

[Rougiel]

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.

[Menhir]

Code :

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

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

[Rougiel]

Merci beaucoup ça marche!