Transfert de données d'une feuille à l'autre

Résolu/Fermé
Fat17 Messages postés 87 Date d'inscription vendredi 25 août 2017 Statut Membre Dernière intervention 30 mars 2021 - 30 août 2017 à 18:08
 Fat17 - 31 août 2017 à 19:21
Bonjour le Forum,

Je voudrais apporter quelques modifications à la macro contenue dans le fichier ci joint :
Il y a 2 objectifs à atteindre après avoir cliqué sur le bouton de transfert :
- 1 : copier l'ensemble des lignes saisies dans la feuille "Saisie" et les transférer automatiquement dans la feuille "Report" intégralement, et chaque saisie à la suite de la précédente. (le nombre de lignes par saisie est variable et peut aller de 2 à 99)
- 2 : effacer automatiquement le contenu saisi (feuille "Saisie") après transfert à l'exception de la Ligne 5 et des colonnes A et O, ce qui nous permettra de procéder à une nouvelle saisie comprenant le numéro de fiche suivant celui déjà transféré (n+1).
Le bouton de transfert est placé dans la feuille "Saisie"

Merci de m'aider à résoudre ce problème et Bonne journée
Cordialement
Fath

Le fichier "Saisie-Report.xlsm" est sur le site "http://www.cjoint.com"
A voir également:

5 réponses

via55 Messages postés 14040 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 février 2023 2 550
30 août 2017 à 18:29
Bonjour

Ce n'est pas l'adresse du site que tu dois donner mais le lien qui a été crée lors du telechargement de ton fichier
Recommence l'opération (sur le site mon-partage.fr s'il s'agit d'un fichier en extension Xlsm), copies le lien créé et reviens le coller ici

Cdlmnt
Via
1
Bonsoir tout le monde,

Merci de m'avoir guidé pour poster correctement mon fichier.
Le voici
http://www.cjoint.com/c/GHEroNTlrd4

Bonne soirée
Cordialement
Fat
0
Encore un lien pour le fichier excel
https://mon-partage.fr/f/q7TNUlWK/
0
via55 Messages postés 14040 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 février 2023 2 550
30 août 2017 à 19:39
Re,

Rajoute ces 3 lignes en fin de la macro associée au bouton :
Range("B6:N" & LigneS).Select
    Application.CutCopyMode = False
    Selection.ClearContents


Cdlmnt
Via
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Merci pour la proposition.
Elle fonctionne parfaitement
A+
Cordialement
Fat
0