Autres Problème de formule Excel

[theolepennec]

Bonjour, je n'arrive pas à traduire cette phrase en formule excel, quelqu'un aurait-il une idée,

Si une date de la colonne A est égale à la date d'aujourd’hui - 70 jours, alors afficher le nom et le numéro de téléphone de la ligne correspondante à la date si non afficher rien

Merci d'avance

Théo

 

[frangy]

Bonjour,

Tu peux tester une formule du type
=SIERREUR(INDEX(A:B;EQUIV(AUJOURDHUI()-70;A:A;0);2);"")
avec le nom en colonne B.

Cordialement.

 

[theolepennec]

Super merci, j'aimerais ajouter aussi dans l'affichage des autres cellules de la même ligne (C,D,E,F,G).

Merci d'avance

 

[frangy]

Bonjour,

Il suffit de compléter la formule ...
Exemple pour l'affichage des colonnes B et C :
=SIERREUR(INDEX(A:G;EQUIV(AUJOURDHUI()-70;A:A;0);2) & " " & INDEX(A:G;EQUIV(AUJOURDHUI()-70;A:A;0);3);"")

Cordialement.

 

[theolepennec]

Merci pour votre réponse

 

[theolepennec]

Autre petite question : si j'ai deux résultats, il m'en affiche seulement un, avez vous une solution pour ce problème ?

Merci d'avance.

 

[frangy]

Pour des résultats multiples, tu peux utiliser une formule matricielle ... mais cela devient vite beaucoup plus lourd à gérer.
Voir exemple.
Sinon, il y a VBA.

 

[theolepennec]

Merci pour le fichier, effectivement la ça devient assez compliqué pour mon niveau, je vais faire ce que je peux.

ci-joint vous trouverez mon fichier.

 

[frangy]

Tu as une solution simple avec un filtre avancé ...
Avec ce filtre, tu peux obtenir la liste complète des lignes correspondant au critère date fixé.

Cordialement.

 

[theolepennec]

le fichier est super mais je n'arrive plus à le débloquer, avez-vous une idée de comment le débloquer. De plus si j'ajoute une ligne au dessus en fonction de la date il faut qu'elle soit prise en compte je ne sait pas si c'est déjà le cas.

Sinon le macro affiche t-il les noms si la date est inférieur à aujourd’hui-70 jours ce qui serait top ?

Merci d'avance.

Théo

 

[frangy]

Bonjour,

Pour que le filtre soit opérant, le code utilise 3 plages :
La plage des données à filtrer, soit A1:E177 dans Feuil1,
La plage du critère, soit A2:A3 dans Feuil2,
L’en-tête de la plage de l’emplacement de la copie, soit A6:E6 dans Feuil2,
Si tu modifies ces plages, tu dois modifier le code.
Par contre, le nombre de lignes de la plage des données à filtrer peut évoluer, la détermination de la dernière ligne à prendre en compte étant effectuée par le code.
J’ai ajouté un report de critère (cellule A3 sur ligne 3 masquée) pour que les dates inférieures ou égales soient intégrées au résultat.

Code avec les commentaires :

Sub Filtrer()
Dim DerLig As Long
    'Feuille des données à filtrer
    With Sheets("Feuil1")
        'On recherche la dernière ligne renseignée dans la colonne A (Date)
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        'On applique le filtrage
        '.Range("A1:E" & DerLig) => Plage à filtrer
        'Range("A2:A3") => Plage Critère
        'Range("A6:E6") => En-tête emplacement copie
        .Range("A1:E" & DerLig).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A2:A3"), CopyToRange:=Range("A6:E6"), _
        Unique:=False
    End With
End Sub

Pour le visualiser :
Accéder à l'éditeur VBA, en utilisant le raccourci clavier ALT+F11
Si l’explorateur de projet n’est pas ouvert, utiliser le raccourci clavier CTRL+R
Puis double clic sur le module Module1

Cordialement.

 

[theolepennec]

C'est noté, merci pour les explications .

C'est super, merci encore

Théo