XL 2016 Rechercher plus grande valeur dans une colonne avec données combinant chiffre puis texte

soan à dit:

@pilote301152 (salut job75)

tu as écrit : « Mais s'il n'y a pas de notation "4 - Fort" comment extraire la plus forte existante ? » ; alors voici une autre solution, avec une fonction personnalisée :​

VB:

Function NivMax() As String
  Application.Volatile
  Dim n&: n = Cells(Rows.Count, 3).End(3).Row: If n < 7 Then Exit Function
  Dim s$, i&, j&, k As Byte, m As Byte
  For i = 7 To n
    s = Cells(i, 3)
    If s <> "" Then
      k = Asc(Left$(s, 1)) - 48: If k > m Then m = k: j = i
    End If
  Next i
  If m > 0 Then NivMax = Cells(j, 3)
End Function

formule en B1 : =NivMax() ; y'a pas d'colonne D, et tu peux ajouter d'autres données sous C17 : elles seront automatiquement prises en compte, sans devoir changer la macro ; si y'a pas de "4 - Fort" dans les données, c'est "3 - Moyen" qui sera affiché (s'il y en a) ; idem pour les niveaux qui sont moins bons ; exemple : va en C15, et supprime le "4 - Fort" ➯ en B1, il y a maintenant : "3 - Moyen" ; accessoirement, tu peux voir que ça marche même si y'a une cellule vide au milieu des autres données. ​

---

j'ai essayé la formule de job75 ; en l'adaptant à ton fichier, ça donne :

=RECHERCHEV(MAX(SIERREUR(--GAUCHE(C7:C100);))&"*";C7:C100;1;0)​

(formule matricielle, à valider par Ctrl Maj Entrée)

bien sûr, il ne faudra pas oublier d'adapter le C100 (2×) si tu ajoutes beaucoup de données et que ça dépasse la ligne 100.​

)soan

Cliquez pour agrandir...

soan à dit:

Bonsoir job75,

j'ai utilisé Application.Volatile afin que le résultat soit mis à jour même si on change une donnée de la plage C7:C17 (modification ou suppression) ; mais bien sûr, c'est mieux si ta méthode est plus efficace que ma sub et se passe de Application.Volatile ! ​

soan

Cliquez pour agrandir...

pilote301152 à dit:

Vous êtes super merci à vous pour toutes ces astuces et conseils

Cliquez pour agrandir...

pilote301152 à dit:

Merci Soan pour cette proposition. Malheureusement il n'est pas possible de scinder la "notation" (ce n'est pas moi qui ait la main sur la base des données initiales) . Mon problème quant à la recherche du "max" tenait justement à cette cohabitation de chiffre et texte. Ceci étant je te remercie pour les idées associées à ta dernière proposition et aurai encore une question sur le code VBA:
IIf(chn = "@", Empty, chn)
que signifie cette formule conditionnelle avec If (deux I !!!!) ?
Merci encore

Cliquez pour agrandir...

soan à dit:

@pilote301152

c'est dommage que tu n'aies pas la main sur les données initiales ! tant pis... peut-être que mon long post #26 pourra quand même être utile à d'autres lecteurs de cette conversation ?​

1) le if avec 2 i est l'équivalent VBA de la fonction Excel SI() ; il y a donc 3 arguments :
* le 1er est la condition : si chn = "@" (c'est le cas où vx n'est pas un nombre de 1 à 4)
* le 2ème est pour le cas où le test est Vrai : Empty ; on efface la cellule de droite
* le 3ème est pour le cas où le test est Faux : chn ; on met chn à droite

2) effectivement, on peut quand même saisir 5 en cliquant sur le bouton "Oui" ; je trouve aussi que c'est un inconvénient, mais hélas, je n'ai pas la main sur ce comportement : c'est Microsoft qui a créé Excel, pas moi ! toutefois, j'ai fait le nécessaire pour réduire cet inconvénient : même si 5 est affiché, la cellule de droite est vide et B1:C1 est vide aussi. après tout, l'utilisateur de ton classeur Excel n'a qu'à saisir un nombre valide de 1 à 4 ; ce n'est pas encore quelque chose de trop difficile à faire ... à condition qu'il sache compter jusqu'à 4 ! et ne t'inquiètes pas : s'il veut absolument saisir un nombre autre que 1 à 4, il se lassera vite de la boîte de dialogue Erreur de saisie ! mébon, je ne perds pas de vue que ces infos ne te serviront pas à toi puisque tu ne peux pas utiliser cette solution ; ces infos seront donc pour d'autres éventuels lecteurs intéressés par cette conversation.​

soan

Cliquez pour agrandir...