Discussion :

[Lechette]

Voici mon code:

Code :

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

.Cells(r, c + 2) = Sheets("TdP").Cells(i, 13)

Ce petit bout de code me colle la valeur affichée de la cellule d'origine. Est-il possible de coller plutôt la formule qu'elle contien?
Merci d'avance!!

[tomy7]

Code :

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

1
2
3
Cells(r, c + 2).Copy
    Sheets("TdP").Cells(i, 13).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

pas teste...

bye
tom

[ouskel'n'or]

pour écrire ça

.Cells(r, c + 2) = Sheets("TdP").Cells(i, 13)

teste ça

Code :

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

Cells(r, c + 2).Formula = "=TdP!" & Cells(i, 13).Address(0, 0)

A+

[Lechette]

en fait c'est l'inverse ma cellule cible est

Code :

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

.Cells(r, c + 1)

et ma origine doit être

Code :

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

Sheets("TdP").Cells(i, 13)

merci de ton aide!!

[tomy7]

teste aussi ce que tu dis ouskel nor , ta plus de chance que sa marche qu avec moi. LOl

sinon si tu veux tester mon code inverse juste : Cells(r, c + 1) /
Sheets("TdP").Cells(i, 13)

[Lechette]

J'ai testé

Code :

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

Cells(r, c + 2).Formula = "=TdP!" & Cells(i, 13).Address(0, 0)

Ca ne marche pas...ca colle les valeurs mais pas les formules

[ouskel'n'or]

Non, ça colle bien le formule. Place-toi sur la cellule et place-toi dans la barre de formule.