Aide a une formule

[apdf1]

Bonjour,

Voila j'ai un petit souci je copier des cellule de la feuil1 vers la feuil5 le problème est que j'ai des formules dans une colonne "I" et il me recopie la formule alors que moi je souhaite juste le résultat.

Si quelqu'un peut m'aider je le remercie d'avance.

Ci-joint mon code

Sub Liste_Click()
 
    Sheets(1).Range("B5").Copy Sheets(5).Range("B2") ' Nom
    Sheets(1).Range("C5").Copy Sheets(5).Range("C2") ' Nom
    Sheets(1).Range("I5").Copy Sheets(5).Range("D2") ' Nom
    Sheets(1).Range("B6").Copy Sheets(5).Range("B3") ' Nom
    Sheets(1).Range("C6").Copy Sheets(5).Range("C3") ' Nom
    Sheets(1).Range("I6").Copy Sheets(5).Range("D3") ' Nom
    Sheets(1).Range("B7").Copy Sheets(5).Range("B4") ' N° Table
    Sheets(1).Range("C7").Copy Sheets(5).Range("C4") ' N° du Tour
    Sheets(1).Range("I7").Copy Sheets(5).Range("D7") '

Cordialement

Max

 

[pijaku]

Re : Aide a une formule

Bonjour,

Peut être avec un PasteSpecial, comme ceci :

Sheets(1).Range("I7").Copy
With Sheets(5)
    .Range("D7").PasteSpecial Paste:=xlPasteValues
End With

 

[kjin]

Re : Aide a une formule

Bonjour,
Pourquoi copier ?

Sheets(5).Range("B2") = Sheets(1).Range("B5")
Sheets(5).Range("C2") = Sheets(1).Range("C5")
Sheets(5).Range("D2") = Sheets(1).Range("I5")
Sheets(5).Range("B3") = Sheets(1).Range("B6")
Sheets(5).Range("C3") = Sheets(1).Range("C6")
Sheets(5).Range("D3") = Sheets(1).Range("I6")
Sheets(5).Range("B4") = Sheets(1).Range("B7")
Sheets(5).Range("C4") = Sheets(1).Range("C7")
Sheets(5).Range("D7") = Sheets(1).Range("I7")

A+
kjin

 

[apdf1]

Re : Aide a une formule

Bonjour pikaju, Kjin,

Oui pourquoi copier? quand on peut faire simple pour pas faire compliquer.

Tu as raison Kjin beaucoup plus simple.

Je vous remercie et vous souhaite une bonne fin d'après midi

@+ Max

 

[Kiseki]

Re : Aide a une formule

Bonjour,

Ou :

Dim S As Worksheet, D As Worksheet

Set S = ThisWorkbook.Sheets(1)
Set D = ThisWorkbook.Sheets(5)

D.Range("B2:C2") = S.Range("B5:C5").Value
D.Range("D2") = S.Range("I5")

D.Range("B3:C3") = S.Range("B6:C6").Value
D.Range("D3") = S.Range("I6")

D.Range("B4:C4") = S.Range("B7:C7").Value
D.Range("D7") = S.Range("I7")

Pour une grande plage ont utiliserai les variables tableaux.

 

[Dull]

Re : Aide a une formule

Salut apdf1, pijaku, Kjin 🙂, Kiseki, le Forum

...Oui pourquoi copier? quand on peut faire simple pour pas faire compliquer....

Je crois bien que Mth 🙂 t'avais donnée LA réponse ici 😕 Kjin a juste...donnélamêmeréponse... 😉

Bonne Journée