Copie de données dans une autre feuille dans Excel

BONJOUR

Après plusieurs jours de recherche dans votre site, et désespéré de ne pas avoir votre niveau de compétence pour inventer une macro qui

1- sélectionne automatiquement les données de la cellule C5 à G… de la feuille 'gestion journalière' en fonction du nombre de casiers vendus

2- fait une copie spéciale sans formule

3- la copie se glisse automatique à la suite des autres copies dans la feuille VENTE

4- Les chiffres indiqués dans la colonne casier de la feuille 'gestion journalière' soient effacés

J'aimerai aussi à partir de ce nouveau tableau dans la feuille VENTE, qui évolue chaque jour,

faire ressortir, dans une autre fonction, les casiers qui ne sont pas vendus au bout de 15 jours, et bien d'autres choses comme les heures les plus fréquentées ... MAIS N'ALLONS PAS TROP VITE !

Je vous remercie de remédier à mon petit problème informatique

Je joins mon fichier excel

Bonjour,

à tester,

Sub test()
Set sh1 = Sheets("gestion journalière")
Set sh2 = Sheets("VENTE")
LastRow1 = sh1.Cells(Rows.Count, 2).End(xlUp).Row
LastRow2 = sh2.Cells(Rows.Count, 2).End(xlUp).Row + 1
n = LastRow2 + Application.CountA(sh1.Range("B5:B" & LastRow1)) - 1
sh2.Range(Cells(LastRow2, 2).Address, Cells(n, 7).Address).Value = sh1.Range(Cells(5, 2).Address, Cells(LastRow1, 7).Address).Value
sh1.Range(Cells(5, 2).Address, Cells(LastRow1, 7).Address).ClearContents
End Sub

ÉDIT:

en effacant les données de la feuille Sheets("gestion journalière")

on efface les formules

il faudrait modifier pour effacer uniquement les valeurs sur la colonne B

sh1.Range(Cells(5, 2).Address, Cells(LastRow1, 2).Address).ClearContents

Bonjour

Je testerai ce soir

En attendant merci beaucoup

Bonjour

Déjà un grand merci car cela fonctionne ... mais comment faire pour ne pas effacer les formules de la feuille "gestion journalière"

j'avais déjà donné la solution dans ma première réponse,

regarder la dernière ligne.

Sub test()
Set sh1 = Sheets("gestion journalière")
Set sh2 = Sheets("VENTE")
LastRow1 = sh1.Cells(Rows.Count, 2).End(xlUp).Row
LastRow2 = sh2.Cells(Rows.Count, 2).End(xlUp).Row + 1
n = LastRow2 + Application.CountA(sh1.Range("B5:B" & LastRow1)) - 1
sh2.Range(Cells(LastRow2, 2).Address, Cells(n, 7).Address).Value = sh1.Range(Cells(5, 2).Address, Cells(LastRow1, 7).Address).Value
sh1.Range(Cells(5, 2).Address, Cells(LastRow1, 2).Address).ClearContents
End Sub

Bonjour

Vous avez parfaitement répondu à ce problème. Encore merci et à bientôt pour d'autres questions.

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!

il faut juste cliquer sur la coche verte V qui est à droite du bouton EDIT.

Hello,

je sais que le sujet est clos.

Mais juste envie de proposer une version.