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

Aurel60540

XLDnaute Nouveau
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

XLDnaute Nouveau
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

1620120441612.png

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 :
1620120730569.png

Merci par avance
Aurel
 

Pièces jointes

  • SuiviProjets04052021.xlsm
    220.7 KB · Affichages: 1

Discussions similaires

Haut Bas