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
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
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
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