faire une somme pour tous les numéro de réservation identiques

[oz2007]

Bonjour,

Je souhaite rédiger une formule qui me permet d'additionner les montants de la colonne C si les numéros de vente de la colonne A sont identiques;
Ci-joint le fichier excel car c'est beaucoup plus clair avec un exemple concret...

Merci d'avance à tous....

 

[oz2007]

Re : faire une somme pour tous les numéro de réservation identiques

Alors:
- nettoyage: déjà fait j'ai gardé le minimum
- mode manuel: c'était une super solution sauf pour mes formules =D2 & SI(NB.SI($H3:H$100000;H2)=0;""; "-" & RECHERCHEV(H2;H3:$M$100000;5;0)) qui doivent être trop lourdes --> message d'excel: "Excel ne peut pas terminer cette tâche avec les ressources disponibles. Sélectionner moins de données ou fermez des applications"
- macro: j'avais déjà essayé et j'ai quand même des bugs!

 

[oz2007]

Re : faire une somme pour tous les numéro de réservation identiques

Bonjour,

Allez je vais compliquer encore un peu ma demande. Donc j'ai utilisé la formule =J2 & SI(NB.SI(H3:$H$99999;H2)=0;""; "-" & RECHERCHEV(H2;H3:$L$99999;4;0)) pour rapatrier sur une ligne des données de plusieurs lignes en fonction d'une variable commune (nomprénom). Cependant, je souhaite faire pareil mais en supprimant les doublons dans la cellule. C'est mieux expliqué dans la fiche excel en PJ. Je ne suis même pas sûre que ce soit faisable avec des formules. Donc si vous y arrivez, mes révérences

 

[ERIC S]

Re : faire une somme pour tous les numéro de réservation identiques

Bonjour

essaie

=J2 & SI(NB.SI(H3:$H$99999;H2)=0;""; SUBSTITUE("-" & RECHERCHEV(H2;H3:$L$99999;4;0);"-" & J2;))

par contre il faut que les métiers soient bien écrits : soit avec majuscule, soit sans

 

[CISCO]

Re : faire une somme pour tous les numéro de réservation identiques

Bonsoir à tous, bonsoir ERIC S, oz2007

Une autre possibilité en pièce jointe. Il y a un petit trait en trop à la fin, mais bon...

@ plus

 

[klin89]

Re : faire une somme pour tous les numéro de réservation identiques

Bonsoir le forum,

Personnellement, je pense que c'est un joyeux b.....
Pour le fun et pour l'exercice :

Option Explicit

Sub fusion()
'fusion des doublons colonnes J et D par rapport à la colonne H
Dim a, i As Long, j As Long, n As Long, dico As Object, w
    With Sheets("Feuil1").Range("A1").CurrentRegion
        a = Application.Index(.Value, Evaluate("row(1:" & _
                                               .Rows.Count & ")"), Array(8, 10, 4))
    End With
    n = 1
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For i = 2 To UBound(a, 1)
            If Not .exists(a(i, 1)) Then
                n = n + 1
                a(n, 1) = a(i, 1)
                Set dico = CreateObject("Scripting.Dictionary")
                dico.CompareMode = 1
                For j = 2 To UBound(a, 2)
                    a(n, j) = a(i, j)
                    If a(i, j) <> "" Then dico(a(i, j)) = Empty
                Next
                .Item(a(i, 1)) = VBA.Array(n, dico)
            Else
                w = .Item(a(i, 1))
                For j = 2 To UBound(a, 2)
                    If a(i, j) <> "" And Not w(1).exists(a(i, j)) Then
                        a(w(0), j) = a(w(0), j) & ", " & a(i, j)
                        w(1)(a(i, j)) = Empty
                    End If
                Next
                .Item(a(i, 1)) = w
            End If
        Next
    End With
    Application.ScreenUpdating = False
    With Sheets("Feuil2").Cells(1)
        .CurrentRegion.Clear
        With .Resize(n, UBound(a, 2))
            .Value = a
            .Font.Name = "calibri"
            .Font.Size = 10
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .Borders(xlInsideVertical).Weight = xlThin
            .BorderAround Weight:=xlThin
            With .Rows(1)
                .Font.Size = 11
                .Interior.ColorIndex = 38
                .BorderAround Weight:=xlThin
            End With
            .Columns.AutoFit
        End With
        .Parent.Select
    End With
    Application.ScreenUpdating = True
End Sub

...et cela ne répond pas véritablement à la question.

klin89

 

[oz2007]

Re : faire une somme pour tous les numéro de réservation identiques

Bonjour,

C'est super ça marche parfaitement! je ne pensais pas qu'on pouvait faire autant de chose avec Excel ;-)
Une dernière petite question est après mon fichier sera au top:

Colonne K: si en colonne H j'ai des doublons, je souhaite faire la somme des montants de la colonne E correspondant aux lignes "frais de gestion"

Merci encore à tous pour votre aide précieuse!!

 

[CISCO]

Re : faire une somme pour tous les numéro de réservation identiques

Bonjour

Essaye avec

=SI(H2<>H1;SOMMEPROD((H$2:H$11=H2)*(J$2:J$11="frais de gestion")*E$2:E$11);"")

@ plus

 

[oz2007]

Re : faire une somme pour tous les numéro de réservation identiques

Bonjour Cisco,

Merci pour ta réponse rapide!
Alors ça fonctionne par contre il faut connaitre le nombre exacte de ligne (hors mon fichier change toutes les semaine). Si je remplace le 11 par 1000000 par exemple cela me donne des N#A

 

[CISCO]

Re : faire une somme pour tous les numéro de réservation identiques

Bonjour

Es-tu certain d'avoir remplacé tous les 11 par un 1000000 ?

@ plus

 

[oz2007]

Re : faire une somme pour tous les numéro de réservation identiques

effectivement j'avais du en oublier un! merci!!

 

[oz2007]

Re : faire une somme pour tous les numéro de réservation identiques

Hello,

Pour faire suite à la conversation, j'applique la formule suivante qui marche très bien pour passer des donner en colonnes sur une seule ligne à partir d'une clé unique:

=K2 & SI(NB.SI(B3:$B$500000;B2)=0;"";" ; " & RECHERCHEV(B2;B3:$O$500000;13;0))

Cependant je souhaite inclure dans cette formule l'idée de ne pas recopier les doublons...

Car quand j'ai des doublons je me retrouve à une cellule où j'ai pleins de répétitions.

Merci d'avance

 

[DevThomy]

Re : faire une somme pour tous les numéro de réservation identiques

Bonjour à tous.
Voici ci-joint un fichier avec les doublons qui sont en colonne H et les données à concaténer en colonne C additionné avec la formule. Ensuite tu na qu’a tiré la formule vers le bas pour le copier.

 

[oz2007]

Re : faire une somme pour tous les numéro de réservation identiques

Coucou DevThomy,

Merci pour ta réponse mais il n'y a pas de pièce jointe. Peux tu la déposer stp?

Merci d'avance
Vanessa