Contenu récent par job75

Ici la macro est assez évidente, il suffit de récupérer les lignes dont la colonne "Description" n'est pas vide : Private Sub Worksheet_Activate() Dim tablo, resu(), i&, n& With [Tableau2] 'tableau structuré If Not .ListObject.DataBodyRange Is Nothing Then tablo = .Resize(, 11)...

Bon OK j'ai compris, le tableau source est Tableau2. Et le résultat est dans la feuille "Original", c'est curieux mais pas vraiment original :cool:

J'avoue avoir du mal à comprendre, dans ton fichier v3 du post #23 où est le résultat ? Quel est le tableau source et à quoi sert l'onglet "Original" ?

Bonsoir Laurent, Pourquoi une collection ? Nommer les plages est quand même plus simple non ? A+

Cette solution (2) est plus légère mais la rapidité reste la même : Private Sub WorkSheet_Activate() Dim tablo, ub&, resu(), i&, n&, mem1 As Variant, mem2 As Variant With [Tableau1_1] 'tableau structuré If Not .ListObject.DataBodyRange Is Nothing Then tablo = .Resize(.Rows.Count + 1)...

Bonjour guypont, Cousinhub, le forum, Voici une solution VBA avec cette macro dans le code de la feuille "Résultat" : Private Sub WorkSheet_Activate() Dim tablo, ub&, resu(), i&, n&, j& With [Tableau1_1] 'tableau structuré If Not .ListObject.DataBodyRange Is Nothing Then tablo =...

Bonjour KTM, le forum, Amusant, laurent950 cherche des solutions de plus en plus compliquées et moi de plus en plus simples : Sub Export() Dim nom$, plage As Range nom = ActiveSheet.DrawingObjects(Application.Caller).Text Set plage = Evaluate(Replace(nom, " ", "_")) 'plage nommée...

Bonjour le forum, Avec cette formule en F4 il est plus simple de ne rien mettre du tout en colonne D : =SOMMEPROD((B$4:B$50<>"")*(MOIS(B$4:B$50)=LIGNES(F$4:F4))) A+

Bonsoir Dennnisss, En F4 à tirer vers le bas : =SOMMEPROD((B$4:B$50<>"")*(MOIS(B$4:B$50)=MOIS("1/"&D4))) En D5 vous aviez oublié l'accent. Plusieurs dates sont des textes mais la fonction MOIS les convertit en nombres. A+

Bonjour romss1982, Nain porte quoi, le forum, Il serait utile d'avoir un exemple d'URL stockée en colonne A. Récupérer une image stockée sur SharePoint est souvent problématique. Peut-être est-il plus simple d'ouvrir le fichier image en mettant en B2 la formule =LIEN_HYPERTEXTE(A2;A2) C'est...

Bonjour le forum, Avec le solution que j'ai donnée les fichiers obtenus sont des fichiers PDF. Si l'on veut obtenir des classeurs Excel on utilisera cette macro : Sub Exporter() Dim titre$, choix$, plage As Range titre = IIf(Application.Caller = "Graph1", "BCG", "VAR") Do choix =...

Cette solution avec 2 boutons vous plaira peut-être davantage : Sub Exporter() Dim titre$, choix$, s As Boolean, nom$ titre = IIf(Application.Caller = "Graph1", "BCG", "VAR") Do choix = InputBox("Données à Copier : " & vbCrLf & _ " 1- Graphique" & vbCrLf & _ " 2- Base de Données"...

Bonsoir KTM, Nain porte quoi, Une solution très simple mais pas sûr que KTM sera content : Sub Exporter() Dim choix$ choix = InputBox("Données à Copier: " & vbCrLf & _ " 1- Graphique" & vbCrLf & _ " 2- Base de Données", "Exportation") If IsError(Application.Match(choix, Array("1", "2"), 0))...

Bonjour jeanmi, Piment, S'il n'y a pas de Shape nommée "TAMPON" il y aura un bug pour vous avertir, il ne faut pas en avoir peur c'est fait pour ça : Private Sub Worksheet_Activate() Dim cel As Range With ListObjects(1).Range: Set cel = .Cells(.Rows.Count, 2): End With With Shapes("TAMPON")...

Bonjour le forum, Pour terminer, vous aurez sûrement compris qu'avec NB.SI.ENS la concaténation en colonne AX n'était pas nécessaire : =REPT("Nouveau";NON(NB.SI.ENS(AX:AX;B5;AY:AY;C5))*ESTTEXTE(C5)) A+