Recopie de cellule avec formule non compatible avec VBA

Bonjour,

Pourriez-vous m'assister, s'il vous plaît, en raison d'un problème que je rencontre avec un programme que j'ai mis en place après avoir suivi un tutoriel ?

Cet outil fonctionne parfaitement et répond exactement à mes besoins.

Voici le souci que je rencontre : dans le fichier joint, si je saisis un code UE en A2 pour déterminer qui intervient, que je clique sur le bouton de recherche (macro) et ensuite sur le bouton "Filtrer et...", tout se passe bien jusqu'à ce moment. Je saisis le critère (UE) et je l'enregistre sous un nom. Toutefois, la copie des dates et de l'intitulé de l'UE ne fonctionne pas en raison des formules présentes dans le tableau de A8 à I168.

Pensez-vous qu'une solution soit possible ?

Je vous suis reconnaissante d'avance pour le soutien que vous me fournissez.

Prya

Bonjour

j'ai supprimé ce fichier qui était faux

Crdlt

Re bonjour

Un exemple avec modification du code et cela fonctionne pour les dates en colonne A

Bonjour Joco7915,

Merci beaucoup ! Pourrirez-vous m'expliquer, SVP, pourquoi mon fichier était faux ?

En vous remerciant,

Bonne journée

Prya

Le fichier revu par vos soins fonctionne bien pour les dates mais il reste la non recopie "de l'intitulé de l'ECUE".

Merci beaucoup pour votre aide.

Bonne journée

Prya

Bonjour

Ton fichier en retour

Bonjour Joco7915,

EXCELLENT, C'est parfait !

MERCI beaucoup.

Bonne journée

Prya

Bonjour à tous,

@Joco n'hésite pas à expliquer un peu ta résolution dans les messages, c'est un peu "triste" d'envoyer un fichier sans explication : personne ne pourra reprendre ta solution pour un problème similaire.

Bonne journée

bonjour le fil,

ceci suffit, non ?

Sub test()
     With ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))     'ajouter nouvelle feuille

          ActiveSheet.Name = "ABC" & Mid(Rnd, 2)     'renommer feuille

          With Range("Tableau352").ListObject.Range     'le tableau de M2DCN
               .Offset(, -1).Resize(, .Columns.Count + 1).SpecialCells(xlVisible).Copy Range("A1")     'copier partie filtrée
          End With

          With .Range("A1").CurrentRegion
               .EntireColumn.AutoFit
               .EntireRow.AutoFit
          End With
     End With
End Sub

Bonjour,

Je me permets de revenir sur ce sujet pour lequel une solution efficace et opérationnelle a été trouvée.

Cependant, la taille du fichier atteint 42 743 Ko. Pourriez-vous, SVP, me dire quel code je dois ajouter à la fin du VBA pour améliorer la rapidité d'ouverture et de fermeture du fichier, ce qui pourrait également contribuer à réduire sa taille.

Je vous en remercie d'avance.

Cdt Prya

Bonjour,

C'est un peu difficile de vous répondre sans avoir le vrai fichier sous les yeux. Le poids est anormal je pense

Questions :
- savoir si vous n'avez pas de formule type matricielle. Genre Sommprod ou d'autres formules validées par CTRL + MAJ + ENTREE
- combien de lignes utilisez-vous dans vos feuilles ?

Solutions à tester :
- Vous pouvez essayer de réduire le poids en enregistrant le fichier avec l'extension XLSB
- Vérifiez que vous n'avez pas de couleur sur des cellules non utilisées. Utilisez plutôt l'option "aucun remplissage"
- Sélectionnez les toutes lignes et colonnes vides ou inutilisées (jusqu'à la dernière ligne 1048576 et colonne 16384), puis clic droite et choisir l'option --> "Effacer". Refaites la même chose puis choisir l'option --> "Supprimer"
- Ne mettez pas de formules dans les cellules inutilisées.

NB : je ferais un peu de ménage dans le gestionnaire de noms également

Crdlt