Problème de recopie avec mise en forme
bonjour à toutes & tous,
Sur le fichier joint, et par exxemple sur l'onglet "vin", je voudrais qu'en cliquant sur l'icône du chariot, que cela me copie
les valeurs sur la feuille "liste courses", le tout en conservant le format de cellule.
J'espère être assez clair.
Merci par avance?
@ + de vous lire
Bonjour,
À tester :
Sub Image_ajout_courses_vin_Cliquer()
Dim ligne As Long
Sheets("liste courses").Visible = True
ligne = Sheets("liste courses").[B65000].End(xlUp).Row + 1
Sheets("vin").Range("E8:H8").Copy Sheets("liste courses").Cells(ligne, 2)
Sheets("vin").Range("E9:H9").Copy Sheets("liste courses").Cells(ligne + 1, 2)
Sheets("vin").Range("E10:H10").Copy Sheets("liste courses").Cells(ligne + 2, 2)
End Subric
bonjour,
et merci de ta réponse.
En l'état, le souci est que les formules se recopient alors que je ne voudrais que les valeurs.
@+
Bonjour,
Voir si ça convient :
Sub Image_ajout_courses_vin_Cliquer()
Sheets("liste courses").Visible = True
ligne = Sheets("liste courses").[B65000].End(xlUp).Row + 1
Sheets("vin").Range("E8:H8").Copy Sheets("liste courses").Range("B" & ligne)
Sheets("liste courses").Range("B" & ligne) = Sheets("liste courses").Range("B" & ligne).Value
Sheets("vin").Range("E9:H9").Copy Sheets("liste courses").Cells(ligne + 1, 2)
Sheets("liste courses").Cells(ligne + 1, 2) = Sheets("liste courses").Cells(ligne + 1, 2).Value
Sheets("vin").Range("E10:H10").Copy Sheets("liste courses").Cells(ligne + 2, 2)
Sheets("liste courses").Cells(ligne + 2, 2) = Sheets("liste courses").Cells(ligne + 2, 2).Value
End Subric
merci ,
mais ta proposition précédente je l'ai modifiée, et ça fonctionne très bien.
Dans ma formule initiale à copier, j'ai mis la valeur de référence entre crochets (genre : accueil!$G$3) afin que les lignes de la feuille
"liste courses" reprenne les mêmes valeurs.
C'est super, merci pour tout.