Fonction vba

Résolu/Fermé

belba.yahya Messages postés 110 Date d'inscription mercredi 2 janvier 2019 Statut Membre Dernière intervention 5 août 2020 - 4 juin 2019 à 00:22
belba.yahya Messages postés 110 Date d'inscription mercredi 2 janvier 2019 Statut Membre Dernière intervention 5 août 2020 - 4 juin 2019 à 06:20

bonjour
pouvez vous me trouver un code vba ou une formule pour trouver le nom entre deux date en fonction d'un tableau de recherche dans 2 feuilles: feuil(Fiche)c'est la base des données et feuil (plan_men) le tableau ou s'envoie le résultat voici le lien de mon fichier excel, dans la feuille(plan_men) j'ai coloré en jaune les cases ou je veux appliquer les formules, je l'ai écris manuellement,mais si il y a une possibilité de trouver une solution automatique.
merci
https://www.cjoint.com/c/IFdwqF0eKnK

A voir également:

Fonction vba
Fonction si et - Guide
Fonction moyenne excel - Guide
Fonction miroir - Guide
Excel compter cellule couleur sans vba - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
4 juin 2019 à 05:55

Bonjour,

En D7 (colonne "REC") et à recopier sur les autres emplacements
=SIERREUR(SI(ET(INDEX(Fiche_Client!$E:$O;EQUIV(B7;Fiche_Client!$E:$E;0);8)<=$L$2;INDEX(Fiche_Client!$E:$O;EQUIV(B7;Fiche_Client!$E:$E;0);9)>$L$2;INDEX(Fiche_Client!$E:$O;EQUIV(B7;Fiche_Client!$E:$E;0);11)="REC");"REC";"");"")

en E7 (colonne "DEP") et à recopier sur les autres emplacements
=SIERREUR(SI(INDEX(Fiche_Client!$E:$O;EQUIV(B7;Fiche_Client!$E:$E;0);9)=$L$2;"DEP";"");"")

Avec le fichier
https://mon-partage.fr/f/P0VDb1ZK/

Cdlt

belba.yahya Messages postés 110 Date d'inscription mercredi 2 janvier 2019 Statut Membre Dernière intervention 5 août 2020
4 juin 2019 à 06:20

merci infiniment Monsieur Frenchie
c'est très pratiquant,j'ai résolu mon problème.
merci beaucoup
Cordialement

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

La fonction FILTRE n'est plus reconnue

Bonsoir à tous,

je vis une déconvenue des plus troublantes : hier soir je finalisais avec succès une formule incluant la fonction FILTRE, tout fonctionnait, super. Aujourd'hui je la rouvre, et la fonction FILTRE n'est plus du tout reconnue. A la place, il y a ça : _xlfn._xlws.FILTER. Ce qui veut dire qu'elle n'est pas prise en charge ; pourtant hier elle l'était...

Mon produit est bien à jour, il s'agit d'Office 2016. Et en effet, sur la version en ligne d'Excel, la formule est proposée. Moi je n'ai plus que la fonction FILTRE.XML qui l'est...

Le lien du fichier :
https://cjoint.com/c/MBhuxJvSDZH

Pour info, il s'agit d'une formule ...

Remplir une cellule (texte) en fonction d'une autre (texte).

Bonjour à tous,

Je vais encore vous embêter aujourd'hui avec mon registre/rapport.

Ma question est simple (enfin je crois).
J'ai une liste de client :
- Autocars truc
- Bidule Autocars
- ... etc

J'ai une adresse pour chaque client (sous forme de liste) :
- Pont de Ernest
- Chemin Départemental 6
- ... etc

J'ai un code poste pour chaque client (sous forme de liste) :
- 99548
- ... etc

Ma question est : Si en D18 je récupère l'information du nom de mon client, je veux en D19 son adresse, en E20 son code postal et en M20 sa ville en fonction des listes d'ad...