Copier 4 cellules sur une autre feuille

[Michel_91380]

Bonjour,
Un petit soucis avec un tableur, j'ai quatre cellules non contigues sur ma feuil1 se sont des listes et je voudrais les copier sur ma feuil2 a la dernière ligne dispo sans mise en forme ni de couleurs ni de caractères. J'ai regardé dans les archives du forum sans trouver mon bonheur, peut être que quelqu'un à une idée dans ce cas je suis preneur d'avance merci pour vos réponses.
Bonne journée à tous

 

[Pierrot93]

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.

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

bon après midi
@+

 

[Michel_91380]

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

 

[Pierrot93]

Re : Copier 4 cellules sur une autre feuille

Re,

regarde peut être ceci, à adapter :

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

 

[Michel_91380]

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

 

[DoubleZero]

Re : Copier 4 cellules sur une autre feuille

Bonjour, Michel_91380, Pierrot , le Forum,

Peut-être ainsi :

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

 

[Michel_91380]

Re : Copier 4 cellules sur une autre feuille

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