Modifier la formule

[Clochard]

Bonjour le Forum,

Je sollicite votre aide afin de modifier un peu une formule que j'utilise déjà dans un autre fichier, mais que j'ai une certaine difficulté à l'adapter dans un autre fichier...

C'est une formule que vous m'avez suggérée d'ailleurs

Je joins donc le fichier...

Merci beaucoup d'y regarder

Clochard

 

[Victor21]

Re : Modifier la formule

Bonjour, Clochard.

Pour la 1° question : voyez (de mémoire) application.proper.
Pour la 2° question, en O28 :

=SI(OU($O28="Maryse";$O28="Claude";$O28=0);"";SIERREUR(ADRESSE(PETITE.VALEUR(SI($J$5:$L$223=$O28;LIGNE($J$5:$L$223));COLONNE(A:A));MOD(PETITE.VALEUR(SI($J$5:$L$223=$O28;LIGNE($J$5:$L$223)*10^5+COLONNE($J$5:$L$223));COLONNE(A:A));10^5);4);""))

 

[Victor21]

Re : Modifier la formule

Re,

J'y reviens :

Function SansDoublonsTrié(champ As Range)
  Set mondico = CreateObject("Scripting.Dictionary")
  temp = champ
  For Each c In temp
  c = WorksheetFunction.Proper(c)
...

Mais "David " sera toujours différent de "David"
Pour éviter ce genre de désagrément, pourquoi ne mettez-vous pas en place une liste déroulante ?


Edit : ou Essayez :

Function SansDoublonsTrié(champ As Range)
  Set mondico = CreateObject("Scripting.Dictionary")
  temp = champ
  For Each c In temp
  c = Trim(WorksheetFunction.Proper(c))

 

[Clochard]

Re : Modifier la formule

Merci beaucoup Patrick,

J'apprécie ton aide...

Avec tes suggestions... j'ai finalement trouvé une façon de fignoler mon fichier pour qu'il fonctionne à mon goût...

Bonne soirée
Clochard