Discussion :

[Magic Papy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Magic Papy]

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

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

Merci beaucoup

[Alex020181]

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"