XL 2019 connaitre la totalité de chaque réf.

[Kenzo1968]

Bonjour a tous

avec une Marco
je souhait créer un fichier qui permet de connaitre la totalité de chaque réf. repris entre A1 & J20

exp: Réf. Total CART097 16 776 CART148 8 640 FPOL107 534 312 ETUI082 66 520

j'ai joint mon fichier pour y voir plus clair


merci a vous

 

[Hasco]

bonsoir,

Après avoir nommé la zone 'Datas' j'ai compulsé les totaux par ref avec Power Query sur la feuille 'PQ'

Cordialement

 

[Kenzo1968]

merci
mais la zone repris entre A1 & J20 est susceptible de changer journalièrement sa serais bien da voire un bonbon pour activer la macro

merci

 

[Hasco]

Re,

sa serais bien da voire un bonbon pour activer la macro

Il s'agit d'une requête Power Query*, pas d'une macro.
Et en plus ça ne sort pas de la confiserie où vous trouverez des bonbons 🙂
Mais pour vous faire une macro qui lance la requête, il faudrait nous donner un exemple qui corresponde à votre situation dans la réalité.
Est-ce que ce sont des données importées ? Si oui d'où ?
Qui change la plage de données ? Par quelle méthode ?

* Sélectionnez une cellule du tableau du résultat puis dans le ruban, dans l'onglet 'Requête' cliquez sur le bouton 'Modifier'. Vous verrez à quoi ressemble une requête power query.

cordialement

 

[Kenzo1968]

merci Hasco sa fonction très bien avec la requête Nikel


Grand Merci pour ton aide 😎👍

 

[Kenzo1968]

re
je viens de voire que la plage A1 & J20 est trop petit
je rechech pour la modifie en A1 a O60

svp encore un peut besoin de toi 🙂

 

[cp4]

Bonsoir @Kenzo1968🙂 , @Hasco 😉,

En VBA, en utilisant un dictionnaire.

Option Explicit

Sub Somme_Ref()
    Dim Lig As Integer, Col As Integer
    Dim Rng As Range, c As Range, d As Object
    Set d = CreateObject("Scripting.Dictionary")

    With Sheets("besoin")
        .Range("L1").CurrentRegion.Offset(1).ClearContents
        Set Rng = .Range("A1").CurrentRegion
        For Each c In Rng
            If c <> "" Then
                If Not IsNumeric(c.Value) Then
                    d(Trim(c)) = d(Trim(c)) + c.Offset(, 1).Value    '
                End If
            End If
        Next c
        .Range("L2").Resize(d.Count, 1) = Application.Transpose(d.Keys)
        .Range("L2").Offset(, 1).Resize(d.Count, 1) = Application.Transpose(d.Items)
        .Range("L2").Offset(, 1).Resize(d.Count, 1).NumberFormat = "#,##0.00"
    End With
End Sub

Bonne soirée.

 

[Hasco]

je rechech pour la modifie en A1 a O60

A1:O60 = 15 colonnes. Votre plage doit avoir un nombre de colonne paires.

Pour modifier, dans le gestionnaire de noms, modifiez le noms Datas pour qu'il étende la plage de cellules.

Cordialement

 

[Kenzo1968]

merci a vous

 

[Kenzo1968]

je ne parviens pas a modifier pouvez vous m aider

B1:R101 = 18 colonnes.
Pour modifier, dans le gestionnaire de noms, modifiez le noms Datas pour qu'il étende la plage de cellules.

j'ai joint mon fichier pour y voir plus clair
Cordialement

 

[cp4]

Bonsoir,

à tester

Option Explicit

Sub Somme_Ref()
    Dim Lig As Integer, Col As Integer
    Dim Rng As Range, c As Range, d As Object
    Set d = CreateObject("Scripting.Dictionary")

    With Sheets("besoin")
        .Range("E109").CurrentRegion.Offset(1).Clear
        Set Rng = .Range("A2:R" & .Range("A" & Rows.Count).End(xlUp).Row)
        For Each c In Rng
            If c <> "" Then
                If Not IsNumeric(c.Value) Then
                    d(Trim(c)) = d(Trim(c)) + c.Offset(, 1).Value    '
                End If
            End If
        Next c
        .Range("E109").Resize(d.Count, 1) = Application.Transpose(d.Keys)
        .Range("E109").Offset(, 1).Resize(d.Count, 1) = Application.Transpose(d.Items)
        .Range("E109").Offset(, 1).Resize(d.Count, 1).NumberFormat = "#,##0.00"
        .Range("E109").CurrentRegion.Borders.LineStyle = xlContinuous
    End With
End Sub

 

[Hasco]

Bonjour,

Voici, voici... Vous avez des quantités sans Référence pour une quantité totale de 1 250 170,20
Il serait peut-être judicieux de mettre de l'ordre dans vos données avant traitement.
Pour adapter le nom Datas, il suffit d'ouvrir le gestionnaire de nom et de modifier le nom 'Datas'.
Onglet "Forumules" Bouton "Gestionnaire de noms"

Cordialement

 

[Kenzo1968]

Merci

 

[cp4]

Merci

Bonjour,

@Kenzo1968 : Je te rappelle que tu es membre d'une communauté d'entraide . Il faudrait qu'à ton tour tu participes à cette entraide en pointant la solution qui répond au mieux à ton problème. Ce qui facilitera la tâche à ceux et celles qui sont à la recherche d'une solution à un problème similaire au tien.

Bonne journée.

 

[Kenzo1968]

les deux solution répond à Mon problème.
une avec une macro & l autre avec une requête
j'ai choisie celle avec la requête par se que il fallait bien en choisirai une
merci a tous