XL 2016 Macro pour copier une ligne d'une feuille dans un tableau excel

[Aurel60540]

Bonjour,

Je n'ai pas de connaissance en VBA et ce que je cherche à faire nécessite une macro et j'aimerai savoir comment.

Dans mon fichier j'ai déjà une macro qui duplique une feuille, efface les zones de saisies, renomme la feuille avec le nom du projet afin d'avoir une nouvelle feuille quand nous avons un nouveau projet qui arrive :

Sub dupliquer()

Dim nomprojet As String
nomprojet = InputBox("Nom du projet")

Sheets("Projet").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Range("_zonetexte").ClearContents

ActiveSheet.Name = nomprojet
ActiveSheet.Range("_nomprojet").Value = nomprojet
ActiveSheet.Range("_datecreation").Value = Now()

End Sub

J'aimerai savoir si c'est de possible qu'une macro puisse copier toutes les informations saisies dans les feuilles dans un tableau se trouvant dans une feuille "données"

Merci beaucoup pour votre aide les amis.

Aurel

 

[Aurel60540]

Bonjour
ci joint ma solution

A+ François

C'est parfait
Merci encore François
Aurel

 

[Aurel60540]

Bonjour
ci joint ma solution

A+ François

dans l’utilisation je viens de me rendre compte que des informations peuvent être saisies n'importe ou dans les rubriques de l'image ci-dessous, de ce fait elles ne sont pas toutes recopiées dans la feuille "Données". Je me suis dit que j'allais fusionner les cellules des lignes afin d'être sure que les informations soient bien recopiées

Après avoir fusionné les cellules de C10 à J10 de la feuille "NouveauProjet" pou tester et ainsi de suite mais j'ai cette erreur quand j'exécute la macro :

Merci par avance
Aurel

 

[fanfan38]

Bonjour
Va falloir te débrouiller ou faire appel à quelqu'un d'autre je pars en balade demain matin pour 15 jours / 3 semaines
A+ François

 

[Aurel60540]

Bonjour
Va falloir te débrouiller ou faire appel à quelqu'un d'autre je pars en balade demain matin pour 15 jours / 3 semaines
A+ François

Pas de problème et encore merci pour ta dispo
Bonne journée à toi
Aurel