Valeur texte la PLUS FREQUENTE sur LIGNE taille différentes

Bonjour,

C'est mon premier post ici car je commence tout juste à m'intéresser à VBA et auparavant je trouvais toujours ma solution quelque part sur le Net.

Je suis donc débutant et j'aimerai réaliser une manoeuvre pour un gros fichier.

Le but de ma manoeuvre est d'afficher la valeur la plus fréquente d'une ligne dans un tableau avec un nombre de colonnes non égales, donc avec des cellules vides

J'ai donc essayé avec des formules INDEX/EQUIV mais elles ne prennent pas en compte le fait que j'ai des cellules vides et me mettent donc comme valeur la plus fréquente : " " (comprendre vide)

Je me suis donc essayé à un code tel que :

 Sub ModeTexte()
Dim derligne As Long, dercol As Long

derligne = Range("A1").End(xlDown).Row
For w = 2 To derligne
    dercol = Range("IV" & w).End(xlToLeft).Column
    Application.WorksheetFunction.Index _
    ("C" & w & ":C" & dercol)MODE _
    (IF(ISNUM(EQUIV("C" & w & ":C" & dercol;"C" & w & ":C" & dercol;0)); _
    EQUIV("C" & w & ":C" & dercol;"C" & w & ":C" & dercol;0);FALSE)))
    Next w
End Sub
 

-> mais comme prévu, ça ne marche pas.

Ci joint une capture d'écran où pour exemple pour la première ligne vu que VILLE MONTLUCON apparait 2x et COM Montlucon 1x et bien alors dans ma deuxième colonne j'aimerai que s'affiche VILLE MONTLUCON.

Bonjour et bienvenue,

Merci de joindre un fichier à ta demande, pour une aide adaptée du forum.

Cdlt.

Merci pour la réponse rapide,

Voici le fichier

Up, peut-être quelqu'un pour m'aider ?

Merci d'avance

Bonjour,

Reprends ton fichier, supprime les formules, car il n'y a que des #VALUE!

Cdlt.

Oups my bad

Voilà le fichier

Bonjour,

Une proposition Récupérer et transformer (Power Query).

A te relire.

Cdlt.

let
    Source = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
    PivoteColumns = Table.UnpivotOtherColumns(Source, {"Numéro Tiers"}, "Attribute", "Value"),
    TrimText = Table.TransformColumns(PivoteColumns,{{"Value", Text.Trim, type text}}),
    RemoveColumns = Table.RemoveColumns(TrimText,{"Attribute"}),
    FilterRows = Table.SelectRows(RemoveColumns, each ([Value] <> "")),
    Grouped_Rows = Table.Group(FilterRows, {"Numéro Tiers"}, {{"GroupedRows", each _, type table [Numéro Tiers=number, Value=text]}}),
    AddMode = Table.AddColumn(Grouped_Rows, "Mode", each List.Mode([GroupedRows][Value])),
    RemoveColumns2 = Table.RemoveColumns(AddMode,{"GroupedRows"})
in
    RemoveColumns2

Incroyable c'est ce qu'il me fallait, merci Jean Eric.

Si tu as quelques minutes, peux-tu m'expliquer comment tu t'y es pris? Je t'avouerai ne pas tout comprendre

Re,

Tu ne comprends pas ?

Que ne comprends tu pas ?

Et commence par le début…

Cdlt.