Contenu récent par Ozzoun

Bien entendu, alors pour mieux t'expliquer le soucis. Je pense que cela est avant tout de ma faute, j'ai sans doute dans mes MFC des cellules lié à ma feuille "Mois", après avoir fait une copie de cette feuille et renommer, la MFC reste liée à la cellule de mon modèle. Du coup en changeant le...

@_Thierry Je viens de l'essayer sur un tableau de 35x125 c'est nickel ! Le temps d’exécution est un peu long (~20s), mais vu ce qu'elle traite, on peut la pardonner :) Je pense que mon soucis est résolu désormais ^^ Merci pour tout

Petit plus, j'ai peut-être mal fouiller le forum avant de poster.. Je viens de tomber sur ce post avec pour solution le code suivant, si j'ai bien compris, je pourrai exécuter quelque chose de ce style sur la feuille exportée afin de définir les couleurs puis supprimer la MFC ? J'ai peur d'avoir...

Bonjour @_Thierry , @Dudu2 Alors pour détailler un petit peu plus, il s'agit d'un planning pour un suivi d'heure. J'ai une feuille "Mois" où je viens sélectionner le mois en cours et l'année, puis je saisis les heures correspondant à la journée et au numéro d'affaire traité. J'ai des MFC pour...

Bonjour, J'ai crée un petit macro qui permet d'exporter le tableau actuel qui sert de modèle, dans une feuille à part. Sur ce premier tableau j'ai de multiple mise en forme conditionnelle.. Actuellement, mes feuilles exportées, reprennent la mise en forme conditionnelle en fonction de mon...

Bonjour, Merci pour l'aide, j'ai réussi à avoir un fonctionnement proche de celui souhaiter. Bonne journée

Ci-joint le fichier excel test

Bonjour, @mapomme, avez-vous une idée de pourquoi j'ai une erreur ici ? J'ai tenté plusieurs reformulation de cette instruction mais rien de fructueux.. Merci d'avance Sub Complete2() Dim xcell, xrg As Range Application.ScreenUpdating = False With Sheets("Data") If .FilterMode...

Bizarre, j'ai effectuer la modification, désormais j'ai une erreur 1004 "Erreur définie par l'application ou par l'objet" qui pointe sur "xrg.EntireRow.Resize(, 35).Offset(, 7).Delete xlShiftUp"

J'ai remplacer la ligne indiqué par: If Not xrg Is Nothing Then xrg.EntireRow.Delete.Resize(, 34).Offset(, 8).xlShiftUp Pour voir progressivement comment cela fonctionne, mais à l’exécution j'ai un message d'erreur Erreur d'exécution '424': Objet requis Qui pointe sur...

Nickel, tout est bon :D Par curiosité,il faudrait modifier quoi pour le faire également sur "Planning" Pour la longueur, on as le premier numéro d'affaires en B8 (7 l'intitulé des colonnes) jusqu'à AI8 (AI9 est le total) sur environ 120 ligne

Le problème, est que j'ai quelque calcul sur cette même page. Je peux m'adapter si jamais.

Très efficace en effet, juste un petit soucis. :confused: Est-ce possible de faire de même sans faire de Delete côté Data ? Sur la Feuille Planning cela ne devrait pas être dérangeant. Si c'est trop compliqué à gérer, je peux toujours voir pour réaménager le reste de ma feuille Date. Merci pour...

@mapomme Voici un petit test, j'ai pour le moment laissé ma macro très lourde en visuel, le temps d'adapter ce que tu me propose. Data: Liste des numéros d'affaires (j'ai déjà supprimer quelque contenu pour le test), avec le bouton d’exécution de la macro. Planning: Copie de la liste des...

Merci de ta réponse @mapomme , je vais étudier ça plus en détail. J'ai une copie de cette liste dans une autre feuille et je me retrouve avec des #REF! Une idée de comment résoudre ce soucis ? Passer un coup de macro pour les supprimer ?