IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Le précédent avant le MAX [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    330
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Juin 2007
    Messages : 330
    Par défaut Le précédent avant le MAX
    Bonsoir,

    En colonne A j'ai une liste de codes avec des doublons, en colonne B des dates associées, je voudrais dans une autre feuille récupérer par code la date Maxi et la date précédente à cette date Maxi.

    Par exemple code 78 "01/01/2017"
    Code 78 "30/09/2016"

    Comment faire ?

    Merci d'avance,
    Phil

  2. #2
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    pour trouver le "juste avant MAX", il faut déjà trouver le MAX

    soit un tableau structuré Tableau1 (pour faciliter la formule) contenant deux colonnes [DATE] en A et [CODES] en B
    on écrit en colonne D les codes

    la formule pour trouver le max, avec le code écrit en D2 :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =MAX(SI((Tableau1[CODES]=$D2);Tableau1[DATE]))
    à valider par Ctrl+Maj+Entrée car formule matricielle

    maintenant qu'on a la date max, on va réutiliser une formule similaire, sauf que cette première formule devient un critère supplémentaire pour écarter le MAX
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =MAX(SI((Tableau1[DATE]<MAX(SI(Tableau1[CODES]=$D2;Tableau1[DATE])))*(Tableau1[CODES]=$D2);Tableau1[DATE]))
    toujours à valider comme une formule matricielle

    Nom : dvp_70.png
Affichages : 258
Taille : 20,8 Ko


    Voici une solution sans VBA. Si ce dernier s'avère nécessaire, il suffit d'utiliser cette formule dans la procédure, y'a plusieurs mécaniques possibles... en premier lieu on s'aide de l'enregistreur de macro

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    330
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Juin 2007
    Messages : 330
    Par défaut
    Bonjour et merci beaucoup,

    C'est bien ça !
    Bonne journée,
    Cordialement,
    Philippe

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [WD-2007] Récupérer fichier précédent avant enregistrement
    Par herved62 dans le forum Word
    Réponses: 2
    Dernier message: 06/10/2015, 10h03
  2. Exécution d'une ligne de code avant la fin d'exécution de la précédente
    Par Patrice Henrio dans le forum Débuter avec Java
    Réponses: 3
    Dernier message: 19/07/2010, 15h22
  3. E4X : récupérer le noeud avant le noeud précédent
    Par gambic dans le forum ActionScript 3
    Réponses: 0
    Dernier message: 27/11/2009, 19h58
  4. Valeur Max (avant dernier)
    Par LP-mpascolo dans le forum Langage SQL
    Réponses: 1
    Dernier message: 10/01/2008, 11h55
  5. [Wamp] Session perdue avant le temps max
    Par Invité dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 34
    Dernier message: 22/10/2006, 12h47

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo