Contenu récent par laurent950

Bonsoir @patricktoulon c'est comme cela l'idée ? Option Explicit Option Compare Text Sub MainStatic() Application.ScreenUpdating = False Dim F1 As Worksheet Dim DossierRacine As String Dim DossierCherche As String Dim i As Long ' Changement Dim Resultats As...

Option Explicit Option Compare Text Sub Main() Application.ScreenUpdating = False Dim F1 As Worksheet Dim DossierRacine As String Dim DossierCherche As String Dim Resultats As New Collection Dim i As Long Dim Fso As Object ' Variable pour l'objet global...

Bonjour @Michou9 le code en Poste #35 ne gére pas les doublon : Un dossier est unique. A ) Le code Poste #35 s'arrêtait au premier dossier trouvé, ignorant les doublons. Autres Code = Autres demande. B) Demande d'un code gérant les doublons : (Code créer à vous envoyer sur une autre...

Bonsoir, Remerciez aussi @sylvanu et tous ceux qui vous ont aidé. Bonne fin de soirée. 😊

Bonsoir @Michou9 Avec votre fichier en Poste #5 VBA sans Module de classe. Option Explicit Option Compare Text Sub Main() ' Procédure VBA : ' A1 = le chemin complet du dossier générale ' B2 = le chemin complet du (nom du dossier exact en A20) qui noyer dans l arborescence du dossier générale...

Bonjour @Dranreb sans la gestion d'erreur avec l'astuce MOD Sub LLI() Dim s As Object Dim i As Integer Set s = ActiveSheet.DrawingObjects("Rectangle : coins arrondis 1") If s.Characters.Text = "LMNP" Then i = 0 ElseIf s.Characters.Text = "LLI" Then i = 1...

Bonjour @job75 Il suffit d'affecter cette macro à chacun des graphiques = Contrainte soit autant d'affectation que de graphique de plus si ils sont répartie sur toutes un classeur a divers endroit. le module de classe permet de se substitué à cette contrainte Code a coller dans : ThisWorkbook...

Bonsoir @job75, L’idée était de rendre cela dynamique, via un événement au clic sur le graphique, afin d’éviter de recopier les adresses. Oui, on peut les nommer via des plages, etc., mais cela reste statique puisqu’il faut tout définir à l’avance pour que cela fonctionne.

Bonsoir @job75 Sub Export() Dim FeuilSource As Worksheet Set FeuilSource = ThisWorkbook.Worksheets(ActiveSheet.Name) Dim colRefs As New Collection ' Les données Stoké en Static dans la FeuilSource Excel : Formule / Gestionaire de nom colRefs.Add Key:="BCG Graph"...

Bonsoir @KTM @job75 @Nain porte quoi le forum Code a coller dans : ThisWorkbook Option Explicit ' CE CODE EST DANS "ThisWorkbook" Dim CollecGraphiques As Collection Private Sub Workbook_Open() Dim ws As Worksheet Dim chrt As ChartObject Dim ClasseGraph As GestionGraphiques...

Bonsoir, Avec l'explication detailé c'est mieux.

Bonsoir Bonsoir KTM, @job75 , N'importe quoi Option Explicit Sub exporter_selection() ' --- DÉCLARATION DES VARIABLES (Tout au début pour Option Explicit) --- Dim chrt As ChartObject Dim choix As Variant Dim sFormula As String Dim arrParts As Variant Dim rngData As...

Bonsoir KTM, @job75 , N'importe quoi Option Explicit Sub exporter_selection() Dim chrt As ChartObject Dim choix As Variant Dim sFormula As String Dim arrParts As Variant Dim rngData As Range Dim wbNew As Workbook ' 1. Vérifier si un graphique est sélectionné...

Bonsoir, avec AGREGAT(sans matricielle) Ps : il faudrait borner la matrice : $H$5:$H pour $H$5:$H$100000 en exemple pour toutes les plages des formules 2023Taux Horaire Début N-2 (2023)Taux Horaire Fin N-2 (2023)Taux Horaire Début N-1 (2024)Taux Horaire Fin N-1 (2024)Taux Horaire Début N...

Bonjour, Avec une formule matricielle : Ps : il faudrait borner la matrice : $H$5:$H pour $H$5:$H$100000 en exemple pour toutes les plages des formules Pour les années : feuille "Table" ---->>> Cellules 2023 "Table" ---->>> $A$2 2024 "Table" ---->>> $A$3 2025 "Table" ---->>>...