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

XL 2016 Mettre en application INDEX et SOMMEPROD en BVA

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

candido57

XLDnaute Occasionnel
Bonjour,

J'ai une formule qui est très longue .
Je voudrais m'en servir en BVA, mais je connais pas le code. Pouvez vous me mettre le code
La formule ci-dessous elle va chercher le dernier résultat de la liste > Date saisi en C2.
J'ai dû mettre esterreur car sans ça j'ai une #VALEUR!
J'ai dû faire cette formule car sur le PC au boulot , je n'ai pas RECHERCHEX version Excel trop ancienne
Est ce qu'il y a une formule plus courte ?

Merci beaucoup pour votre aide

=@SI(ESTERREUR(@SI($H$1>=24;"Pas de couche";INDEX(t_Base[Date];SOMMEPROD((t_Base[N° de carte + Prénom]=$C$2)*("T4"=t_Base[Taille])*LIGNE(t_Base[N° de carte + Prénom]))-6)));"";SI($H$1>=24;"Pas de couche";INDEX(t_Base[Date];SOMMEPROD((t_Base[N° de carte + Prénom]=$C$2)*("T4"=t_Base[Taille])*LIGNE(t_Base[N° de carte + Prénom]))-6)))
 

Pièces jointes

Solution
C
sousou à dit:
Bonjour
REgarde ceci
Une nouvelle fonction autrederdate() avec trois arguments

regarde "i2 à i6" en bleue pour voir si c'est ca
à developer sur les autres cellules
Cliquez pour agrandir...
Bonjour Sousou,
Oui c'est exactement ça, je trouve avec ta macro , il renvoie la bonne date.
Par contre lorsque j'ouvre mon fichier d'origine, il faut 5 secondes pour que les formules fonctionne, Excel lent, même lorsque je cherche une semaine dans le menu déroulant, le résultat s'affiche 5 secondes plus tard. Est ce que j'ai trop de formule? Trop de feuille ?
Que faire pour le booster?

Merci beaucoup pour ton aide

Bonne journée
Trier par date Trier par votes
Donc pas semaine?
Dans ce cas tu ne peux pas utiliser le format, tu dois en colonne o mettre une formule qui te renvois du texte du genre
=No.semaine() & "/" & année()
Avec du texte tu pourras compter
 
Vote positif 0 Vote négatif
sousou à dit:
Donc pas semaine?
Dans ce cas tu ne peux pas utiliser le format, tu dois en colonne o mettre une formule qui te renvois du texte du genre
=No.semaine() & "/" & année()
Avec du texte tu pourras compter
Cliquez pour agrandir...
Ok Je regarderai et je reviens vers toi. Je t'avais poser une question. Tu m'avais fait une macro derdate, je voulais savoir s'il y a une possibilité de l'adapter pour trouver les dernières dates dans le tableau car sur le fichier original, il ne trouvent pas la dernière date.
 
Vote positif 0 Vote négatif
RE
Voici un essai pour compter .
ici j'ai modifiier les formule colonne o, j'ai conservé mois? bien que la colonne soit marqué semaine
si tu souhaites voir pour les semaines, remlace mois("n2") par no.semeina(ne)
pour derdate pour moi ca fonctionne,
regarde dans la feuille article semaine en G23
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour,
Pour la macro derdate , elle est faite pour la feuille "Articles" pour cette feuille , je ne veux rien toucher, ça fonctionne, mais je souhaiterais l'adapter pour le tableau qui se trouve en feuille "Commande", je trouve que ta macro donne la date juste ( La dernière date).
Actuellement, la macro derdate, il va chercher toujours une cellule E2 'Articles" nommé Carte et un autre critère qui est T2 ou un autre article.
Mais sur mon tableau feuille "Commande", j'ai une liste de noms et en entête un article , c'est différent. non !

En tout cas merci beaucoup pour ton aide
 
Vote positif 0 Vote négatif
sousou à dit:
oui
mais je n'ai toujours pas compris comment tu veux l'utiliser dans la feuille commande et quel resultat dans quelle colonne😉
Cliquez pour agrandir...
Re,
Voir le tableau feuille "Commande" la première ligne > exemple: cellule I2 > 2 critères en I1 (T2) et H2 (15 L), trouver la dernière date dans feuille "Base" colonne B. La même chose H2 et J1, la même chose en H2 et K1, la même H2 et L1.
Puis toutes les lignes jusqu'à ligne 59 de la colonne H à L . encadrée en rouge
Si j'ai 2 dates sur la même ligne , prendre en compte la date la plus à droite, les autres mettre vide.
 

Pièces jointes

Vote positif 0 Vote négatif
sousou à dit:
Bonjour
REgarde ceci
Une nouvelle fonction autrederdate() avec trois arguments

regarde "i2 à i6" en bleue pour voir si c'est ca
à developer sur les autres cellules
Cliquez pour agrandir...
Bonjour Sousou,
Oui c'est exactement ça, je trouve avec ta macro , il renvoie la bonne date.
Par contre lorsque j'ouvre mon fichier d'origine, il faut 5 secondes pour que les formules fonctionne, Excel lent, même lorsque je cherche une semaine dans le menu déroulant, le résultat s'affiche 5 secondes plus tard. Est ce que j'ai trop de formule? Trop de feuille ?
Que faire pour le booster?

Merci beaucoup pour ton aide

Bonne journée
 
Vote positif 0 Vote négatif
Solution
candido57 à dit:
Re je sais que tu n'as pas de problème, c'est normal car le fichier original à plus de données.
Je pensais qu'il y avait une astuce pour le booster.
En tout cas tu m'as bien aidé, Merci beaucoup.
Bonne journée
Cliquez pour agrandir...
Bonjour Sousou,
J'ai essayé d'utiliser ta macro pour un autre fichier , mais ça bloque au niveau tableau. J'ai mis en gras où ça bloque.
Pourtant t_Base3, c'est juste, le nom de la feuille "Base" c'est juste aussi, le nom du tableau aussi.
Serait-il possible me dire où ça pourrait bloqué ?
Merci

Function autrederdate1(valeur, article, carte)

Application.Volatile

'Initialisation
'Carte = ThisWorkbook.Names("Carte").RefersToRange.Value
'Numéro de carte trouvé dans les celule nommées


Set tableau = Sheets("Base").ListObjects("t_Base3") 'Définit le tableau
coldate = tableau.ListColumns("Date").DataBodyRange.Column 'Numéro de la colonne ou trouver la date
colCarte = tableau.ListColumns("N° de carte + Prénom").DataBodyRange.Column 'Numéro de la colonne ou trouver le numéro de carte

For Each i In tableau.ListColumns(article).DataBodyRange 'pour chaque lignes de la colonne du tableau

'MsgBox i.Parent.Cells(i.Row, 3) & "/" & i & "/" & i.Parent.Cells(i.Row, 2)
'trim supprime les espaces avant et après
'ucase convertit tout en majuscule
'si i = la valeur et que le numéro de carte correspond

If Trim(UCase(i)) = UCase(valeur) And i.Parent.Cells(i.Row, colCarte) = carte Then

'alors si la date est supérieure à la précédente mémorise la date

If CDate(i.Parent.Cells(i.Row, coldate)) > madate Then madate = CDate(i.Parent.Cells(i.Row, coldate))
End If

Next

'renvoi la date

autrederdate1 = madate
If autrederdate1 = 0 Then autrederdate1 = ""
End Function
 

Pièces jointes

  • Capture d'écran 2025-02-14 164943.png
    75.2 KB · Affichages: 5
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
XL 2013 rechercher la dernière date
Réponses
4
Affichages
166
candido57
C
C
  • Résolu(e)
XL 2013 Renvoyer 2 dans la cellule
Réponses
2
Affichages
183
candido57
C
D
  • Résolu(e)
Microsoft 365 recherche avec critères date début et fin
Réponses
3
Affichages
117
dd_76
D
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
248
p56
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
94
KRUG WOO
K
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
C
  • Question Question
XL 2013 erreur dans une formule excel Sommeprod
2
Réponses
24
Affichages
388
Gégé-45550
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
77
piga25
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
331
Gestionnaire_rh
G
C
  • Question Question
XL 2013 Extraction et saisi donné dans texbox
Réponses
7
Affichages
526
candido57
C
  • Question Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
457
Dranreb
  • Question Question
XL 2021 Besoin de conseils pour une sélection de multiples éléments
2
Réponses
18
Affichages
1 K
jeff1494
I
  • Question Question
Microsoft 365 SOMMEPROD en vba excel
Réponses
12
Affichages
491
iliess
I
M
  • Question Question
XL 2019 Historique, affichage antichronologique des sorties
Réponses
3
Affichages
394
Lolote83
L
S
  • Question Question
XL 2016 Nombre de facture close
Réponses
11
Affichages
479
JHA
J
Z
  • Résolu(e)
Microsoft 365 Récupérer les éléments d'une liste en fonction de leur position
Réponses
2
Affichages
580
Zarnir
Z
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
393
Chaton77
S
  • Résolu(e)
Microsoft 365 planning - griser samedi dimanche + mettre en surbrillance une date
Réponses
3
Affichages
1 K
Sofia32
S
M
  • Résolu(e)
Microsoft 365 SOMPROD et difficulté à trouver résultat suivants plusieurs critères
Réponses
7
Affichages
474
mcfv
M
M
  • Résolu(e)
XL 2016 statistiques
Réponses
10
Affichages
616
JHA
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…