XL 2010 créer des macros pour calculer le nombre total des noms qui se repetent

adkheir

XLDnaute Occasionnel
je m'excuse je n'ai pas pu m'exprimer clairement, le problème consiste a trouver le nombre de fois qu'un nom 1 et prénom 1 soient répétés dans le tableau de données ensuite additionner la quantité et l'affiché , pour la date je n'ai besoin que du mois et l'année.
merci
 

Fichiers joints

Dernière édition:

jp14

XLDnaute Barbatruc
Bonjour
Il est plus simple de comprendre avec une image.
Ci joint le fichier avec un résultat identique a l'image pour les deux dernières colonnes. A modifier pour la colonne "nom père".

A tester

JP14
 

Fichiers joints

adkheir

XLDnaute Occasionnel
Bonjour
Un grand merci JP14 .
il me reste une toute petite chose a savoir que le format de la date sur la recap qui doit être MM/AAAA , ou tout simplement il faudrait supprimer les jours JJ de la recap pour que je puisse savoir quel nom a eu la plus grande quantité et le plus grand nombre de fois .
une fois de plus merci , très satisfait .
 

jp14

XLDnaute Barbatruc
Bonjour

Ci joint une solution
Code:
Private Sub UserForm_Initialize()
Dim I1 As Long
Dim Mois As String, Annee As String

Erreur
travdem
With ListBox1
.Clear
'.ColumnCount = 6
'.ColumnWidths = "100,100 ,100,50 ,20,50"
        .AddItem "Nom"
        .List(.ListCount - 1, 1) = "Prénom"
        .List(.ListCount - 1, 2) = "Nom p"
        .List(.ListCount - 1, 3) = "Date"
        .List(.ListCount - 1, 4) = "Nombre"
        .List(.ListCount - 1, 5) = "Quantité"


For I1 = LBound(Tbl, 1) To UBound(Tbl, 1)
    If Tbl(I1, 0) <> "" Then
    'If Tbl(I1, 4) > 1 Then
        .AddItem Tbl(I1, 0)
        .List(.ListCount - 1, 1) = Tbl(I1, 1)
        .List(.ListCount - 1, 2) = Tbl(I1, 2)
        'solution 1
        'Date1 = "'" & Month(Tbl(I1, 3)) & "/" & Year(Tbl(I1, 3))
        '.List(.ListCount - 1, 3) =Date1
        'solution 2
        Mois = Str(Month(Tbl(I1, 3)))
        Annee = Str(Year(Tbl(I1, 3)))
        .List(.ListCount - 1, 3) = Mois & "/" & Trim(Annee)
        .List(.ListCount - 1, 4) = Tbl(I1, 4)
        .List(.ListCount - 1, 5) = Tbl(I1, 5)
    'End If
    End If
Next I1
End With
End Sub
A tester

JP14
 

adkheir

XLDnaute Occasionnel
Bonsoir
Merci pour le code , j'ai aussi essayé de modifier le format de la date et ça a marché.
autre chose peut on augmenter le nombre de ligne a
j'ai envie augmenter les ligne sur la feuille1 a 65536 est ce possible?

merci
a++
 

jp14

XLDnaute Barbatruc
Bonjour

Le code
Dl1 = .Range(Col1 & .Rows.Count).End(xlUp).Row
indique la dernière ligne utilisée, quelque soit le nombre de lignes.

JP14
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas