Contenu récent par job75

Bonjour à tous, =PLAFOND(B3;2) fait passer de 842,03 à 844,00 A+

Avec la macro de mon post #6 les agences ne sont pas filtrées. J'ai eu du mal à en trouver la raison. En fait il ne faut pas nommer "Agence" la cellule B3 car c'est une en-tête de colonne. En la nommant "Ag" plus de problème : Sub Worksheet_Change(ByVal Target As Range)...

Avec ce code 100 clients sont filtrés : Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False [B2].Name = "Mois" [B3].Name = "Agence" Application.EnableEvents = False Range("A6:B" & Rows.Count).Delete With Sheets("BDD CLIENTS AGENCE").[A1].CurrentRegion .Cells(2, 6)...

Bonjour Jaykerz, le forum, Dans la feuille BDD il n'y a aucune valeur numérique donc aucune raison de limiter la liste à 20. A+

La fonction VBA fonctionne sur toute version Excel, par formule Excel voyez le fichier joint.

Function Compte_Unique(P1 As Range, Optional P2 As Range) Dim d As Object, c As Range If P2 Is Nothing Then Set P2 = P1 Set d = CreateObject("Scripting.Dictionary") For Each c In Union(P1, P2) If CStr(c) <> "" Then If Not d.exists(CStr(c)) Then Compte_Unique = Compte_Unique + 1 Next End Function

Bonjour shitoryu, chris, Votre fichier avec le nom défini T : =DECALER(listing!$A$4;1;;EQUIV("zzz";listing!$A:$A)-4;2) et la MFC sur H4:I72 : =NON(SOMMEPROD(($H4="")+($H4&CAR(1)&$I4=INDEX(T;;1)&CAR(1)&INDEX(T;;2)))) Avec un tableau structuré dans la feuille "listing" on n'aurait pas besoin du...

Bonjour, Pas besoin de fonction SI pour la MFC : =(A1>=4)*(A1<=7) A+

Je trouve curieux qu'en 2019 personne n'ait songé au lien hypertexte.

Bonjour Deuch230, Vous avez dû voir qu'il fallait mettre les lignes des dates au format Date et les lignes des durées au format [h]:mm. A+

Bonjour à tous, Il suffit de créer un lien hypertexte sur chaque objet et d'utiliser cette macro : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, [A2:A3]) Is Nothing Then Exit Sub [A1].Select If Target.Address = "$A$2" Then ecran_grand If Target.Address =...

Pourquoi inconnu ? Il suffit de savoir lire et d'appliquer la commande "Dissocier". Voir mon post #18.

Bonsoir Deuch230, chris, Téléchargez les fichiers joints dans le même dossier et exécutez cette macro : Sub MAJ() Dim chemin$, fichier$, ncol%, fich$, c As Range, col%, cc As Range chemin = ThisWorkbook.Path & "\" fichier = Dir(chemin & "*.xlsx") '1er fichier du dossier ncol = 16 'nombre de...

Bonsoir Patrick, Une solution qui fonctionnera dans tous les cas de figure sera forcément assez compliquée. En adaptant la macro à chaque cas particulier c'est normalement plus simple : ma macro du post #15 ne fait que 19 lignes. A+

On peut simplifier la macro mais c'est moins parlant : Sub TEST1() With Sheets("Feuil1") If .[P2] <> "groupe 14" Then .Shapes("Group 14").Ungroup If .[P2] = "groupe 10" Or .[P2] = "groupe 11" Then .Shapes("Group 12").Ungroup .Shapes(.[P2]).Visible = LCase(.[Q2]) = "oui" If .[P2]...