XL 2013 Modification d'un resultat et mettre le nouveau resultat dans une autre colonne

[cedric_hiss]

Bonjour a tous ,

je remerice tous les membres du forum pour toutes les aides que vous m'avez fournie ,je reviens vers vous encore une fois, je fais une comparaison entre deux release comme dans la photo


je compare le release 1 avec le release 2 pour savoir les nouvelles fonctionnalitées dans le release2 dans le resultat j'ai une colonne ou il y a les nouvelle fonctionnalitées et dans l'autre colonne j'affiche les communautées qui utilisent ces fonctionnalitées avec le pourcentage de leurs reservations (PNR) par rapport au total des reservations de toutes les communautées dans le deuxieme release .

Ce que je voudrais faire c'est d'afficher que les 5 premieres communautées dans la colonne O , et d'ajouter dans la colonne P un autre resultat ou il y a le total pourcentage des communautées qui ont utilisé cette fonctionnalité .

Par exemple : pour la fonctionnalités tyto en aura dans la colonnes P : total pourcentage des communautées est 37.97 % vu que toutes les communautées utilisent cette fonctionnalitées .
voila le code que j'utilise :

Sub essai()
Dim verif As Range, m As Range, dico As New Dictionary
x = Sheets(1).Range("C4:C" & Sheets(1).Range("C:C").End(xlDown).Row).Count
y = Sheets(1).Range("I4:I" & Sheets(1).Range("I:I").End(xlDown).Row).Count

For j = 3 To y + 3
If Not dico.Exists(Sheets(1).Cells(j, 10).Value) Then
dico.Add Sheets(1).Cells(j, 10).Value, Sheets(1).Cells(j, 10).Value
PNRt = PNRt + Sheets(1).Cells(j, 10).Value
End If
Next j

For j = 3 To y + 3

a = Sheets(1).Range("O1:O" & Sheets(1).Range("O:O").End(xlDown).Row).Count + 1

Set m = Sheets(1).Range(Sheets(1).Cells(3, 3), Sheets(1).Cells(x + 3, 3)).Find(Sheets(1).Cells(j, 9).Value)

If m Is Nothing Then
PNR = 1 - (PNRt - Sheets(1).Cells(j, 10).Value) / PNRt

PNR = Format(PNR, "0.00%")
Set verif = Sheets(1).Range("N:N").Find(Sheets(1).Cells(j, 9).Value)

    If verif Is Nothing Then
    Sheets(1).Cells(a, 14).Value = Sheets(1).Cells(j, 9).Value
    texte = Sheets(1).Cells(j, 7).Value & Sheets(1).Cells(j, 8).Value & ", pourcentage PNR : " & PNR
    Sheets(1).Cells(a, 15).Value = texte

    Else
    texte = Sheets(1).Cells(verif.Row, 15).Value
    texte = texte & "; " & Sheets(1).Cells(j, 7).Value & Sheets(1).Cells(j, 8).Value & ", pourcentage PNR : " & PNR
    Sheets(1).Cells(verif.Row, 15).Value = texte

    End If

End If
 Next j
Exit Sub


End Sub

et mon fichier :Regarde la pièce jointe compare by func.xlsm