cedric_hiss
XLDnaute Junior
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 :
et mon fichier :Regarde la pièce jointe compare by func.xlsm
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 :
Code:
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 Subet mon fichier :Regarde la pièce jointe compare by func.xlsm