Formule "FiltreActuelNo(3)

Fermé

excelmann Messages postés 66 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 7 mai 2015 - 18 mars 2015 à 17:01
Raymond PENTIER Messages postés 58406 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 5 mai 2024 - 18 mars 2015 à 22:49

Bonjour,

J'essaye de reporter une valeur filtrée par filtre automatique dans une cellule avec la formule =FiltreActuelNo(3), et ça me renvoie le message suivant #NOM?
Je suis sous excel 2004 sur mac.

Je ne trouve plus la solution. Pouvez vous m'aider? merci d'avance

En colonne C1 je mets "=COLONNE()" ça me renvoie la veleur "3"
Mon filtre automatique est placé sur C10

J'aimerais avoir en A5 la valeur (textuelle) filtrée en colonne C. Par ex COC ou CCW ou encore SW

A voir également:

Formule "FiltreActuelNo(3)
Formule excel - Guide
Formule si et - Guide
Formule moyenne excel - Guide
Picasa 3 - Télécharger - Albums photo
Formule excel pour additionner plusieurs cellules - Guide

3 réponses

Réponse 1 / 3

Raymond PENTIER Messages postés 58406 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 5 mai 2024 17 102
18 mars 2015 à 17:06

La fonction FiltreActuelNo n'existe pas dans Excel.
Où as-tu trouvé la formule =FiltreActuelNo(3) ?

Raymond PENTIER Messages postés 58406 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 5 mai 2024 17 102
Modifié par Raymond PENTIER le 18/03/2015 à 17:10

Même en relisant plusieurs fois ta demande, je n'arrive pas du tout à deviner ce que tu essaies de faire.
Envoie ton fichier Excel, avec le plus d'explications possibles, à l'aide de https://www.cjoint.com/

excelmann Messages postés 66 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 7 mai 2015
18 mars 2015 à 17:15

report_filtre_automatique.xls
voila le lien vers le document

excelmann Messages postés 66 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 7 mai 2015
18 mars 2015 à 17:17

oups erreur de manip.
https://www.cjoint.com/c/ECsrDWp3uN3

excelmann Messages postés 66 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 7 mai 2015
18 mars 2015 à 17:28

Je viens de retrouver le lien vers ce tableau de l'époque.
https://www.cjoint.com/c/DAqxFUozqNP

Réponse 2 / 3

excelmann Messages postés 66 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 7 mai 2015
18 mars 2015 à 17:09

J'avais déja posé ce sujet ici il y a longtemps, et c'est là qu'on m'avait donné cette solution. Mais je n'arrive plus à la faire fonctionner sur un nouveau tableau.

Raymond PENTIER Messages postés 58406 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 5 mai 2024 17 102
Modifié par Raymond PENTIER le 18/03/2015 à 17:15

C'est probablement parce que l'auteur de la solution avait créé une formule personnalisée.
Mais sans le fichier, impossible de deviner ce qu'il avait mis dedans !

Réponse 3 / 3

Raymond PENTIER Messages postés 58406 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 5 mai 2024 17 102
Modifié par Raymond PENTIER le 18/03/2015 à 17:48

Salut.

J'ai examiné TON fichier ; j'aurais aimé voir le fichier qui avait résolu ton problème la première fois ...
Il n'y a vraiment que 4 possibilités (CCW, COC, FAR, SW) ?
Je ne vois pas bien l'intérêt d'une formule, alors qu'il est si facile et rapide de saisir en A5 ce qu'on lit juste à côté, en dessous de C10 !
Que se passe-t-il si l'utilisateur du fichier filtre deux valeurs au lieu d'une seule ?

C'est bien, la retraite ! Surtout aux Antilles ... :-)
Raymond (INSA, AFPA, CF/R)

excelmann Messages postés 66 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 7 mai 2015
18 mars 2015 à 17:52

Re,
Non il peut y avoir jusqu'à 12 possibilités voire plus.
Il n'y aura toujours qu'une valeur de filtrée sur ce champ.
L'utilité est liée à plusieurs utilisateurs qui ne sont pas forcément des "habitués".
Je crée donc chaque fois que possible des "automatismes" pour éviter les loupés et les erreurs.
Le lien vers le fichier où cela fonctionnait
Merci d'avance, même si on ne trouve pas la solution là maintenant.:)

excelmann Messages postés 66 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 7 mai 2015
18 mars 2015 à 17:53

Oups, encore loupé une manip. Je fatigue Dsl
https://www.cjoint.com/c/DAqxFUozqNP

excelmann Messages postés 66 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 7 mai 2015
18 mars 2015 à 18:05

Je pense qu'il a du créer une macro pour y arriver. Et ça je ne sais pas faire.
Dommage

Raymond PENTIER Messages postés 58406 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 5 mai 2024 17 102 > excelmann Messages postés 66 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 7 mai 2015
18 mars 2015 à 22:15

L'examen de ce dernier fichier m'a montré qu'il ne s'agit ni d'une formule person-nalisée, ni bien entendu d'une fonction ; il semblerait plutôt que ce soit le nom d'une macro. Mais je n'ai pas trouvé trace de cette macro dans le fichier !
Désolé ...

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 943
Modifié par Mytå le 18/03/2015 à 22:28

Salut le Forum

Il existe bien une fonction personnalisée dans le fichier.

Function FiltreActuelNo(col, Optional typeCol As String)
' de Myta-CCM
 feuille = Application.Caller.Parent.Name
 Application.Volatile
 If Sheets(feuille).FilterMode Then
    If Sheets(feuille).AutoFilter.Filters.Item(col).On Then
      temp = ActiveSheet.AutoFilter.Filters.Item(col).Criteria1
      If Left(temp, 2) = ">=" Or Left(temp, 2) = "<=" Then
         o = Left(temp, 2): n = Mid(temp, 3)
      Else
         If Left(temp, 1) = "=" Or Left(temp, 1) = ">" Or Left(temp, 1) = "<" Then
           o = Left(temp, 1): n = Mid(temp, 2)
         Else
           n = temp
         End If
      End If
      If typeCol = "D" Then n = Format(n, "dd/mm/yy")
      temp = o & n
      '---
      If Sheets(feuille).AutoFilter.Filters.Item(col).Operator Then
          oper = IIf(Sheets(feuille).AutoFilter.Filters.Item(col).Operator = 1, " ET ", " OU ")
          On Error Resume Next
          Err = 0
          temp2 = Sheets(feuille).AutoFilter.Filters.Item(col).Criteria2
          If Err = 0 Then
              If Left(temp2, 2) = ">=" Or Left(temp2, 2) = "<=" Then
                 o = Left(temp2, 2): n = Mid(temp2, 3)
              Else
                If Left(temp2, 1) = "=" Or Left(temp2, 1) = ">" Or Left(temp2, 1) = "<" _
                 Then o = Left(temp2, 1): n = Mid(temp2, 2)
              End If
              If typeCol = "D" Then n = Format(n, "dd/mm/yy")
              temp2 = o & n
           Else
              oper = ""
           End If
       End If
       FiltreActuelNo = temp & oper & temp2
    Else
      FiltreActuelNo = ""
    End If
  Else
      FiltreActuelNo = ""
  End If
End Function

Mytå

Discussions similaires

Que signifie cet emoji :3

Signification de " :3 "

exo pix

je veut créer des codes

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters