Copie de valeur

Bonjour à tous!

J'ai déjà eu quelques réponses pour en arrivée là ou je suis et je vous en remercie.

ceci dit je bloque sur une étape et j'ai besoin de votre aide.

J'ai créer une caisse enregistreuse pour le camion Pizza d'un ami.
Celle ci se compose comme suit;
une feuille Caisse
Une feuille Source
une feuille Recap
et une feuille Archiv

Je souhaite copier les valeurs du tableau croise Dynamique de la feuille Recap en feuille Archiv de façon a ce que chaque copier/coller se retrouve a la suite du tableau collé précédemment.

Pour cela j'ai dejà deux créer deux boutons;
Un "Archiver" et l'autre "Journée Suivante"

voici le code de "journée suivante":

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click()   Range("A2:c200").Select Selection.ClearContents Range("F9").Select   End Sub

---

Pour le bouton Archiver j'ai codé :

Code:

---

1 2 3 4

Private Sub CommandButton2_Click() Sheets("Recap").Range("e2:g50").Copy Destination:=Sheets("Archiv").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)   End Sub

---

Mais du coup lorsque je passe à la journée suivante les valeurs du tableau en Archiv se sont envollées!

pouvez vous m'aidez?

Je sais qu'il me faut utiliser .value mais je ne sais pas ou le placer j'ai tenté plusieur formule sans succés!

Merci à vous

Bonjour,

Un truc dans ce goût là ?

En PJ une proposition de code qui copie A2:C200 de Recap vers les colonnes A à C de Archiv à la suite des valeurs existantes.

En prime j'ai fait des contrôles supplémentaires pour enlever l'application éventuelle de filtres et afficher les lignes et colonnes masquées (sinon le report sera KO).

Teste et dis-nous.

Citation:

---

Envoyé par Alex020181

Bonjour,

Un truc dans ce goût là ?

En PJ une proposition de code qui copie A2:C200 de Recap vers les colonnes A à C de Archiv à la suite des valeurs existantes.

En prime j'ai fait des contrôles supplémentaires pour enlever l'application éventuelle de filtres et afficher les lignes et colonnes masquées (sinon le report sera KO).

Teste et dis-nous.

---

Merci Alex020181

Mais je vais mettre un moment a digéré ton code, le comprendre et l'intégré dans mon system...:roll:

Si j'ai trop de mal je reviens faire un appel au secourd.

Merci beaucoup

Pas de souci. J'ai mis des commentaires dans le code.

En résumé:
- je commence par désappliquer les filtres automatiques éventuellement appliqués sur les 2 feuilles
- puis j'affiche les lignes et colonnes masquées éventuellement sur les 2 feuilles
- ensuite je trouve le nombre de lignes déjà occupé dans la feuille "archiv" pour ne pas écraser les anciennes données. Je regarde colonne par colonne de "A" à "C" et prend la valeur max. On ne peux pas se contenter de prendre la valeur max de "A" car il se pourrait que dans la dernière ligne copiée "A" soit vide et "B" et "C" complétés. Il faut donc vérifier les 3 colonnes
- et enfin je reporte les données de "recap" vers "archiv"