XL 2019 mise en forme VBA d'une base de données

• Sub Reformate_Bd pour les point 1 et 3 (même cheminement que @MP59 mais pour un tableau structuré)
  
  
• Function ProfDu pour le point 2
  ( mise en formule dans les cellules correspondantes du Tableau )
  la formule est propagée automatiquement lors d'un ajout de ligne

MP59 à dit:

Bonjour youpi457032
voici le fichier avec "Sub mise_en_forme_MP59" qui règle les points 1 et 3.
le point 2 n'est pas clair pour moi.

Cliquez pour agrandir...

fanch55 à dit:

Bonjour @youpi457032 ,@MP59 ,

Module Mod_Fanch55:

• Sub Reformate_Bd pour les point 1 et 3 (même cheminement que @MP59 mais pour un tableau structuré)
  
  
• Function ProfDu pour le point 2
  ( mise en formule dans les cellules correspondantes du Tableau )
  la formule est propagée automatiquement lors d'un ajout de ligne

J'ai supprimé toutes les lignes vides en queue du tableau1,
elles ne sont pas nécessaires pour un tableau structuré .
A ce propos, pourquoi ne pas avoir mis toutes les colonnes dans le tableau,
les colonne Ab et BO auraient pu avoir des formules automatiques également ?

Sinon, il y a 199 boutons dans la feuille BD pointant vers une macro 'g:\Users\PC_PAPA\Downloads\Malafretaz 2021 copie de travail.xlsm'!minuscule

Cliquez pour agrandir...

fanch55 à dit:

Bonjour,
ProfDu est une fonction de cellule personnalisée,
elle doit absolument rester une fonction qui retourne une chaine .
Affichez la feuille BD, faites Ctrl+" et allez en colonne M, vous pouvez voir en colonne N :
Regarde la pièce jointe 1118965

Si vous lui changez son nom, il faut modifier les formules des cellules où cette fonction est appelée :

Regarde la pièce jointe 1118966

Regarde la pièce jointe 1118967

Regarde la pièce jointe 1118968

Si vous changez quelque chose en feuille références, pour que les modifs soient propagées immédiatement à la feuille BD, il faut rajouter le code ci-dessous dans la feuille références

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Columns("B:E")) Is Nothing Then Application.CalculateFull
End Sub

Le bouton Jaune Prof Correspondant ne devrait servir à rien ..

Vous trouverez ci-joint le classeur fourni modifié pour ce faire .

Cliquez pour agrandir...

youpi457032 à dit:

Merci Fanch55 pour cette superbe macro ! du grand art vraiment !
IL m'a fallu un temps pour capter son fonctionnement ....., mais cà y est !!!
Et en effet ça marche du feu de Dieu.... Un grand bravo ! un grand merci !!

par ailleurs, pour finir mon fichier, j'ai besoin de retravailler une macro mail qui fonctionnait bien avec mon ancien fichier. Le principe était le suivant. Je lançais mon userform filtre, le triais ce que l'avais besoin.... mes resultats apparaissait dans la listbox juste en dessous des critères filtres (j'avais un seul critère), ensuite je lançais une macro mail qui faisait deux choses l'une après l'autre : temps 1 extraction des données de listbox ayant reçu les résultats filtrées, copie vers une autre feuille du résultat de l'extraction, puis au départ de cette nouvelle feuille ayant reçu les données extraites , récupération sur trois colonnes des adresses mail (mail eleve, mail maman, mail papa) , enfin ouverture de ootlook et transfert de ces adresses mail SANS DOUBLON vers le destinataire To.... de outlook....

Comme j'ai remanié et ma base et mon filtre ( plusieurs choix en cascade), bien evidemment cette macro mail n'est plus totalement adaptée. Pourtant j'aurai grand besoin de récupérer cette fonction mail, puisque c'est précisement le but du filtrage : Faire du mailing ciblé en fonction des critères de filtrage....
SErait-il possible de jeter un oeil à ce besoin ?
J'ai copié l'ancienne macro mail dans un module "envoyer_mail" pour que vous puissiez voir l'architecture de la macro qui allait avec mon ancien fichier si celza peut vous éclairer ....

Je vous renvoie le nouveau fichier en cours qui a besoin de recevoir cette fonction mail, fonction impérative....
Mon fichier fonctionne très bien, formulaire élève, formulaire filtrage.... me manque plus que la fonction mail....

Cliquez pour agrandir...

youpi457032 à dit:

en faisant un " = lieu[@[ site_de_danse]], la formule me renvoie une erreur directe de " reference circulaire"

Cliquez pour agrandir...

=mise_a_jour_profs([@[Votre premier cours]])

Cliquez pour agrandir...