Aide a une formule

apdf1 · 19 Septembre 2011

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

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 · 19 Septembre 2011

Re : Aide a une formule

Bonjour,

Peut être avec un PasteSpecial, comme ceci :

Code:

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

kjin · 19 Septembre 2011

Re : Aide a une formule

Bonjour,
Pourquoi copier ?

Code:

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 · 19 Septembre 2011

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 · 19 Septembre 2011

Re : Aide a une formule

Bonjour,

Ou :

VB:

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 · 19 Septembre 2011

Re : Aide a une formule

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

apdf1 à dit:
...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

Aide a une formule

apdf1

XLDnaute Impliqué

pijaku

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

apdf1

XLDnaute Impliqué

Kiseki

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

Discussions similaires

Aide a une formule

apdf1

XLDnaute Impliqué

pijaku

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

apdf1

XLDnaute Impliqué

Kiseki

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency