Copier 4 cellules sur une autre feuille

Pierrot93

XLDnaute Barbatruc

• 17 Mai 2013

• #2

Re : Copier 4 cellules sur une autre feuille

Bonjour,

les copier sur ma feuil2 a la dernière ligne dispo sans mise en forme ni de couleurs ni de caractères.

Cliquez pour agrandir...

qu'entends tu pas "ni de caractères" ???

bon après midi
@+

 

Vote positif 0 Vote négatif

M

Michel_91380

Guest

• 17 Mai 2013

• #3

Re : Copier 4 cellules sur une autre feuille

Je ne veux pas importer la taille de caractères de feuil1 ni la mise en forme.Apres un copier coller je retrouve en feuil2 des cellules sous forme de liste je ne voudrais que les valeurs des 4 cellules de feuil1
Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Mai 2013

• #4

Re : Copier 4 cellules sur une autre feuille

Re,

regarde peut être ceci, à adapter :

Code:

Option Explicit
Sub test()
Dim c As Range
For Each c In Sheets("Feuil1").Range("B5,D5,F10,H15")
    Sheets("Feuil2").Range("A65536").End(xlUp)(2).Value = c.Value
Next c
End Sub

 

Vote positif 0 Vote négatif

M

Michel_91380

Guest

• 18 Mai 2013

• #5

Re : Copier 4 cellules sur une autre feuille

Bonjour Pierrot 93

Impec ta solution mais la copie en feuil2 ne se fait que dans la colone A et je voudrais que les quatre cell copiées se fasse en ligne

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 18 Mai 2013

• #6

Re : Copier 4 cellules sur une autre feuille

Bonjour, Michel_91380, Pierrot 🙂, le Forum,

Peut-être ainsi :

Code:

Option Explicit
Sub Valeurs_copier()
With Sheets("Feuil2")
.Range("a65536").End(xlUp)(2).Value = Sheets("Feuil1").Range("b5").Value
.Range("b65536").End(xlUp)(2).Value = Sheets("Feuil1").Range("d5").Value
.Range("c65536").End(xlUp)(2).Value = Sheets("Feuil1").Range("f10").Value
.Range("d65536").End(xlUp)(2).Value = Sheets("Feuil1").Range("h15").Value
End With
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

M

Michel_91380

Guest

• 18 Mai 2013

• #7

Re : Copier 4 cellules sur une autre feuille

Merci beaucoup Double zéro ça marche impec bonne journée

 

Vote positif 0 Vote négatif