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

Microsoft 365 afficher la date du dernier RdV pris

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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Me re-voilà avec un nouveau besoin que je ne sais pas résoudre.
J'ai bien tenté, testé mais c'est hors de ma portée 😡

Je fais donc à nouveau appel à votre expertise.
Voici mon besoin :
- Dans la feuille "RendezVous", j'ai tous les RdVs pris pour nos Clients avec les dates d'appels,
- Dans la feuille "Derniers_RdVs", je voudrais que s'affiche en face de chaque Client concerné les dates des :
- 3 derniers RdVs pris (si y'a au moins 3),
- 2 derniers RdVs pris (si y'a pas 3),
- dernier RdV pris (si y'a pas 2),

Auriez-vous la solution formule ou macro ?

Je joins le fichier test,
Avec mes remerciement,
Je vous souhaite, à toutes et à tous, une belle journée 🙂
Ammicalement,
lionel,
 

Pièces jointes

Solution
Re, salut Bruno,

Oui nous allons bien mais nous sommes prudents et nous nous confinons en Normandie.

De mon coté j'ai élaboré ces 4 macros affectées aux 4 boutons :
VB: 
Sub tri_RdV()
With ThisWorkbook.Sheets("RendezVous")
    .Visible = xlSheetVisible 'si la feuille est masquée
    Application.Goto .[A1], True
    .Rows.Hidden = False
    .Rows("2:" & Application.CountA([A:A])).Sort .[A1], xlAscending, Header:=xlYes 'tri sur le numéro de RdV
End With
End Sub

Sub tri_Clts()
With ThisWorkbook.Sheets("RendezVous")
    .Visible = xlSheetVisible 'si la feuille est masquée
    Application.Goto .[A1], True
    .Rows.Hidden = False
    .Rows("2:" & Application.CountA([A:A])).Sort .[F1], xlAscending, Header:=xlYes 'tri sur le numéro de clienr
End...
Trier par date Trier par votes
Bonjour JHA,
Merci pour la solution et le fichier.
ça fonctionne très bien 🙂
Toutefois, j'aimerais (si possible) éviter les matricielles.
Je garderai ta solution si pas possible sans matricielle.
Un grand merci 🙂
lionel,
 
Vote positif 0 Vote négatif
Re-Bonjour,

Je teste et re-teste.
j'ai un souci car si des lignes ou les lignes d'un Client sont supprimées , j'ai une erreur dans les cases.
J'ai tenté de recopier la formule mais ça ne fonctionne plus.

Je cherche comment faire.
lionel,
 
Vote positif 0 Vote négatif
bonsoir usine à gaz bonsoir jha bonsoir le forum

Si le client est supprimé dans l'onglet rendez vous, il n'y a rien à présenter dans l'onglet dernier rdv, donc la formule renvoie une erreur. Normal.

Pour ne pas avoir de code erreur utiliser la fonction sierreur
VB: 
=SIERREUR(GRANDE.VALEUR(SI(RendezVous!$F$3:$F$999=Derniers_RdVs!$D32;RendezVous!$L$3:$L$999);1);"")
validation matricielle
cordialement
galougalou
 
Vote positif 0 Vote négatif
Bonjour à toutes et à tous,
Je vous souhaite un bon WE 🙂
Ne souhaitant pas utiliser de formules matricielles, j'ai revu ma copie lol.
Et réduit ma demande à la recherche du dernier RdV fait au lieu des 3 derniers.

J'ai fait cette formule qui fonctionne mais qui ne me semble pas bien faite :

"=SI(MAX(SI(RendezVous!$F$3:$F$1000=Derniers_RdVs!$D3;RendezVous!$L$3:$L$1000);0)=0;"Priorité";MAX(SI(RendezVous!$F$3:$F$1000=Derniers_RdVs!$D3;RendezVous!$L$3:$L$1000);0))"

Pourriez-vous me corriger ?
Avec mes remerciements,
lionel,
 
Vote positif 0 Vote négatif
Bonjour Lionel, le fil,

Pour visualiser facilement le ou les derniers rendez-vous il suffit de trier manuellement ou par macro le tableau sur les 2 colonnes F et L, cette dernière du plus récent au plus ancien.

A+
 
Vote positif 0 Vote négatif
Re-Bonjour BrunoM45,
Effectivement, je suis d'accord car ce n'est pas dans mes habitudes.
Mais j'avais posé la question sur Excel-pratique il y a quelques temps et le fil a disparu ... c'est pour cela que je l'ai posté ici 🙂
Merci à toi de m'avoir apporté une fonction personnalisée qui fonctionne super bien 🙂
J'allais en informer le forum en mettant le lien :

Trouver le dernier Rdv fait pour chaque Client

Je vous souhaite un beau WE. Je bute sur une formule que je ne sais pas faire. dans le fichier test joint Tel qu'exemple en colonne "G" - Dans la feuille "Re...
forum.excel-pratique.com

Bonjour Gérard, merci pour ta réponse mais en automatisant, cela me fait gagner du temps 🙂
lionel,
 
Vote positif 0 Vote négatif
Re, salut Bruno,

Oui nous allons bien mais nous sommes prudents et nous nous confinons en Normandie.

De mon coté j'ai élaboré ces 4 macros affectées aux 4 boutons :
VB: 
Sub tri_RdV()
With ThisWorkbook.Sheets("RendezVous")
    .Visible = xlSheetVisible 'si la feuille est masquée
    Application.Goto .[A1], True
    .Rows.Hidden = False
    .Rows("2:" & Application.CountA([A:A])).Sort .[A1], xlAscending, Header:=xlYes 'tri sur le numéro de RdV
End With
End Sub

Sub tri_Clts()
With ThisWorkbook.Sheets("RendezVous")
    .Visible = xlSheetVisible 'si la feuille est masquée
    Application.Goto .[A1], True
    .Rows.Hidden = False
    .Rows("2:" & Application.CountA([A:A])).Sort .[F1], xlAscending, Header:=xlYes 'tri sur le numéro de clienr
End With
End Sub

Sub tri_dates()
With ThisWorkbook.Sheets("RendezVous")
    .Visible = xlSheetVisible 'si la feuille est masquée
    Application.Goto .[A1], True
    .Rows.Hidden = False
    .Rows("2:" & Application.CountA([A:A])).Sort .[L1], xlDescending, Header:=xlYes 'tri sur les dates, les plus récentes en haut
End With
End Sub

Sub Filtre()
Dim num, R As Range
Application.ScreenUpdating = False
With ThisWorkbook.Sheets("RendezVous")
    .Visible = xlSheetVisible 'si la feuille est masquée
    .Activate
    num = .Cells(ActiveCell.Row, 6) 'numéro de client sélectionné
    .Rows.Hidden = False
    With .Rows("2:" & Application.CountA([A:A]))
        .Sort .Columns(6), xlAscending, , .Columns(12), xlDescending, Header:=xlYes 'tri sur 2 colonnes
        .AutoFilter 6, num
        Set R = .SpecialCells(xlCellTypeVisible).EntireRow
        .AutoFilter 'filtre automatique
        .Hidden = True
        R.Hidden = False
    End With
    Application.Goto .[A1], True
End With
End Sub
Le bouton Filtre fait le travail demandé sur ce fil.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
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

F
  • Résolu(e)
Autres Date automatique en fonction du mois et de l'année sans dimanche
Réponses
6
Affichages
745
Fitgy
F
  • Résolu(e)
Microsoft 365 Récupérer la date contenue dans le nom du classeur actif
2
Réponses
18
Affichages
2 K
job75
  • Résolu(e)
Microsoft 365 MFC difficile pour moi
Réponses
9
Affichages
853
Usine à gaz
  • Question Question
Microsoft 365 Ne pas ouvrir, supprimer un fichier si pas date du jour dans son nom et vider la corbeille
Réponses
2
Affichages
1 K
Usine à gaz
  • Question Question
Microsoft 365 fonction qui peut contenir du texte ou une date
2 3
Réponses
43
Affichages
3 K
patricktoulon
  • Résolu(e)
Microsoft 365 Compter les Appels du mois en cours par catégorie
Réponses
7
Affichages
878
Usine à gaz
  • Résolu(e)
Microsoft 365 fonction qui renvoie son résultat à la ligne
Réponses
14
Affichages
930
Usine à gaz
  • Question Question
Microsoft 365 Afficher UNIQUEMENT l'agenda du Client pour lequel je travaille
2
Réponses
17
Affichages
2 K
Usine à gaz
  • Résolu(e)
Microsoft 365 Image : pourvoir afficher la même image dans tous mes onglet
2
Réponses
16
Affichages
2 K
Usine à gaz
  • Résolu(e)
Microsoft 365 ajouter date de MODIFICATION devant le nom du fichier
4 5 6
Réponses
85
Affichages
7 K
patricktoulon
  • Résolu(e)
Microsoft 365 Import informations classeurs fermés - nv besoin
Réponses
5
Affichages
807
Usine à gaz
T
  • Question Question
XL 2019 Somme si date = Dernier jour du mois
Réponses
7
Affichages
2 K
Tom_Jerry
T
  • Question Question
Microsoft 365 mettre des infos dans des colonnes selon dates et critères
Réponses
12
Affichages
1 K
Usine à gaz
  • Résolu(e)
Microsoft 365 affichage en plein écran = plus d'accès à la barre des tâches
Réponses
3
Affichages
2 K
Usine à gaz
  • Question Question
XL 2013 Transfert infos RdV d'excel > agendas Gmail
2
Réponses
21
Affichages
3 K
eriiic
  • Question Question
XL 2010 Résolu par mutzik : stopper exécution code en fermant listbox par la croix
Réponses
13
Affichages
1 K
Usine à gaz
  • Question Question
XL 2010 Résolu par Job75 et JHA : afficher le contenu des cellules de la dernière ligne
2
Réponses
20
Affichages
3 K
Usine à gaz
  • Question Question
XL 2010 Résolu par Mapomme : Calendrier Roland "Renvoyer à la ligne"
Réponses
5
Affichages
1 K
laurent950
S
  • Question Question
XL 2013 [RESOLU]Combiner des fonctions Somme.SI + NB.SI + Dates
Réponses
8
Affichages
3 K
gosselien
B
  • Question Question
copier coller des lignes de différents onglets dans un nouvel onglet avec variable
Réponses
7
Affichages
3 K
titiborregan5
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…