Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Recherche de deux dernières informations

JMP56

XLDnaute Nouveau
Bonjour, dans un tableau de gestion de compte ne cessant de grossir, j'ai dans la colonne A des dates et dans la colonne D des rubriques en format texte de dépense ou de rentrée.
Afin de calculer les économies réalisées entre deux salaires je cherche une formule pour extraire vers deux cellules AE19 et AE20:
- en AE 19: la date notée en colonne A de l'avant dernier salaire mentionné "salaire" dans la colonne D
- en AE 20: la date notée en colonne A du dernier salaire mentionné "salaire" dans la colonne D
Merci de votre soutien.
 

JMP56

XLDnaute Nouveau
Bonjour,
J'aimerais mais il s'agit d'un fichier contenant des données confidentielles.
Mon fils m'a fait une macro mais elle fige le tableur et nécessite d'appuyer sur un bouton. Je préfère la formule qui raffraîchit les données en permanence. J'imagine que pour accélérer la recherche il convient de limiter la recherche à la dernière ligne rentrée (environ 1000 données par année).
Cordialement,
 

Staple1600

XLDnaute Barbatruc
Bonjour

J'aimerais mais il s'agit d'un fichier contenant des données confidentielles.
Pour infos
On ne joint jamais le fichier original
On prend le temps de créer un fichier ex nihilo
avec des choses du style
NOM1 PRENOM1 ADRESSE1 CP1VILLE TELEPHONE1
etc...
Cela prend en général moins de 23 minutes
Et les jours sans pluie (mais avec macros) moins de 7
 

Staple1600

XLDnaute Barbatruc
Re

On peut aussi s'aider de petits outils pour se faciliter la tâche
Un petit exemple tout juste sorti du four.
VB:
Sub Anonymizator()
Sheets.Add
[A1:K1] = "=""ENTETE""&COLUMN()"
[A2:K100] = "=COLUMN()&""-""&ADDRESS(ROW(),COLUMN(),4)"
With [A1].CurrentRegion
    .Borders.Weight = 2
    .Value = .Value
End With
End Sub
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour JMP, Djidji, Staple,
Un essai en PJ avec comme formules en AE19 et AE20 :
VB:
=INDEX(A:A;GRANDE.VALEUR(SI(D:D="Salaire";LIGNE(D:D));2))
=INDEX(A:A;GRANDE.VALEUR(SI(D:D="Salaire";LIGNE(D:D));1))
A valider par Ctrl+Maj+entrée car formules matricielles.
 

Pièces jointes

  • JMP.xlsx
    9.5 KB · Affichages: 15

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…