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