XL 2019 macro Couper ligne coller dans autre feuille toujours en tête de liste

[paul347]

Bonjour à tous,

j'ai une feuille nommée 'Saisie' dans laquelle je souhaite que l'utilisateur saisisse des infos de la zone A4 à G4

Je souhaiterais bénéficier d'une macro qui coupe ces infos et les colle dans une feuille existante nommée bdd.
Ces infos seraient ajoutées en tête de liste.
La feuille saisie ne devrait pas perdre ses indications de mise en forme.

je mets un classeur pour exemple.

Merci d'avance aux gens qui répondent !

Cordialement,

Paul

 

[natorp]

Bonjour Paul

Avez-vous essayer l'enregistreur de macro ?

Cordialement, Gérard

 

[paul347]

Bonjour Paul

Avez-vous essayer l'enregistreur de macro ?

Cordialement, Gérard

Bonjour,
Oui, mais ça (je) cafouille énormément à l'étape "créer une nouvelle ligne" dans la feuille bdd

 

[Phil69970]

Bonjour @paul347 , @natorp

Je te propose ce fichier :

*Je suis parti du principe que les données de la feuille "saisie" ne sont que sur 1 ligne et ne sont pas supprimé après la copie (on peut facilement modifié ses 2 points il suffit de préciser ta demande)

*Merci de ton retour

@Phil69970

 

[Phil69970]

Bonjour @paul347

*Merci de ton retour

Tu n'as même pas regardé le fichier (Dernière activité : Jeudi à 15:37)
Ça donne envie d'aider pour la prochaine fois

@Phil69970

 

[paul347]

Bonjour @paul347



Tu n'as même pas regardé le fichier (Dernière activité : Jeudi à 15:37)
Ça donne envie d'aider pour la prochaine fois

@Phil69970

Bonjour,
votre temps est peut être différent du mien, je suis très occupé, et j'ai été accaparé tout le week end.
Je regarderai votre fichier et reviendrai vers vous.

Bien cordialement.
Paul

 

[paul347]

Bonjour @paul347



Tu n'as même pas regardé le fichier (Dernière activité : Jeudi à 15:37)
Ça donne envie d'aider pour la prochaine fois

@Phil69970

La macro copie colle, je modifierai pour qu'elle coup et colle.

merci.

Cordialement,

paul

 

[Phil69970]

Bonjour @paul347

Pour supprimer les données il suffit par exemple de rajouter :

Feuil1.[A4:G4].ClearContents

@Phil69970

 

[paul347]

Bonjour @paul347

Pour supprimer les données il suffit par exemple de rajouter :

Feuil1.[A4:G4].ClearContents

@Phil69970

Merci !