[VBA] Copier -> Mettre en forme -> Coller

Bonjour,

Tout d'abord merci pour les futurs retours/réponses que j'aurais à ce sujet.

Je vous conseil d'ouvrir mon fichier ci-joint pour pouvoir comprendre mes explications.

Le but de mon projet est de réaliser une feuille de type "formulaire d'ajout de projet" et grâce à un bouton de traiter puis envoyer les données vers une autre feuille.

Mon projet se présente sous 3 feuilles actuellement :

• 1 feuille avec le formulaire
• 1 feuille avec un tableau récapitulant tous les projets du chef "patrice"
• 1 feuille avec un tableau récapitulant tous les projets du chef "laurie"

J'ai réussit à avancer mais je suis bloqué sur un problème que je ne sais résoudre.

Je dois pouvoir associé la valeur de ma cellule "Client" à une variable (fait) puis garder en mémoire une plage de cellule (les numéros de commande : 151515, 161616, 181518, etc..) et enfin mettre le tout de la forme : 151515 - X , 161616 - X , 171717- X, etc...

Cette mise en forme est nécessaire car nous devons les coller sous cette forme dans la feuille récapitulant tous les projets du chef.

Vous retrouverez mon code dans la macro associé au bouton ainsi que ci-dessous :

Sub Bouton2_Cliquer()

ChefProj = Range("D8").Value 'NOM DU RESPONSABLE PROJET
ListCmd = Range("D12:D38").Value 'LISTE DES NUMEROS DE COMMANDE A METTRE EN FORME

If ChefProj = "patrice" Then 'TEST POUR SAVOIR QUELLE FEUILLE REMPLIR
Client = Range("D10").Value
Worksheets("Tableau-patrice").Activate
Range("A1").Select
Clientprim = ActiveCell.Value

While Clientprim <> "" 'TEST POUR ECRIRE A LA SUITE DES INFOS DEJA INSCRITE
ActiveCell.Offset(0, 1).Select
Clientprim = ActiveCell.Value
Wend

ActiveCell.Value = Client 'REMPLISSAGE DU TABLEAU MAIS CEST PAS TRES PROPRE COMME SOLUTION
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "Tous" 'NORME DE MON TRAVAIL, A NE PAS CALCULER
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ListeCmd 'LA JAIMERAIS DONC INSCRIRE LA LISTE JUSTE EN DESSOUS DE TOUS (VOIR LES EXEMPLES DANS LES FEUILLES)

'TOUT CE QUI CONCERNE LA MISE EN FORME, JE NE SAIS VRAIMENT PAS COMMENT FAIRE
'MERCI POUR VOTRE AIDE :D

End If

End Sub

Merci pour votre aide et n'hésitez pas à me demander des précisions !

Bonjour Merwan

J'ai un peu corrigé mais n'ai pas tout fait

Vois déjà si cela peut te convenir

Bonne soirée

Bonjour,

Merci pour ton aide !

Par contre, je n'ai pas tout compris à ton code et du coup j'ai un peu de mal à l'adapter à mon besoin.

Je comprends pas trop pourquoi tu met un "Else" alors que justement a condition était justement de vérifier la présence ou non du client dans le tableau.

Merci

Bonjour Merwan, bonjour le forum

J'espère que vous avez passé un bon weekend.

J'ai revu le fichier ...pas super

Amélioration

Bon courage

Bonjour Patty,

Merci énormement pour ton aide !

Le sujet est résolu grâce à ton fichier.

Pour les personnes dans le même cas que moi, avec la même problématique :

=> Je vous invite à télécharger le fichier du dernier post de Patty !