Recherche valeur

Bonjour.

Une idée ? Absolument aucune pour le moment !
Mais ça pourrait évoluer si tu voulais bien joindre ton fichier Excel ...

 1) Aller dans https://www.cjoint.com/ 
 2) Cliquer sur [Parcourir] pour sélectionner le fichier (15 Mo maxi)
 3) Défiler vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint] 
 4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; faire un clic-droit dessus et choisir "Copier le lien"
 5) Revenir dans la discussion sur CCM, et dans votre message faire "Coller".

=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers 

Il existe aussi https://www.transfernow.net/ 

... (suite)

en effet, j'ai essayé de reconstituer ton fichier en suivant scrupuleusement ta description.

Si pour la Feuil 1 le tableau semble vraisemblable, celui de la Feuil 2 est carrément fantaisiste !

Raymond,

Avant tout, je te remercie de ta réponse rapide.

Pour vous faire une idée du tableau, voici les captures d'écran des 2 feuilles :

C'est déjà plus vraisemblable, et pas tout à fait conforme à la description initiale !
Et si j'ai bien compris, on n'aura pas le fichier Excel pour travailler dessus ?

Bonjour,
J' ai modifié votre dossier.
Dans une feuille AGENTS en ligne 1 les titres suivants; Col B NATHAN, Col C GUILLAAUME, Col D HERVE, Col E DOMINIQUE, Col F "A", col G "C"
.(Remplacer les A,B et C par les noms des remplaçants0
Ligne 4 en col A DATE colonnes B à H, mêmes titres que lignes 1, en I DATE
La ligne 5 doit rester vide, vous pouvez la friser et la protéger par Validation des données ------------>Personnalisé----------> >=1
En cellule 16 mettre le formule : SI'A6<>"";A6;"") et recopier vers le bas:
Ci dessous la Macro à enregistrer.

Macros
Sub ESSAI()
'
' ESSAI Macro
'

Range("B2") = Range("B65535").End(xlUp).Offset(0, 7).Value
Range("C2") = Range("C65535").End(xlUp).Offset(0, 6).Value
Range("D2") = Range("D65535").End(xlUp).Offset(0, 5).Value
Range("E2") = Range("E65535").End(xlUp).Offset(0, 4).Value
Range("F2") = Range("F65535").End(xlUp).Offset(0, 3).Value
Range("G2") = Range("G65535").End(xlUp).Offset(0, 2).Value
Range("H2") = Range("H65535").End(xlUp).Offset(0, 1).Value

End Sub

Cdt;
Jen Braconnier

Merci JB22.

Je vais essayé de faire ça mais je dois avouer que tu m'as un peu perdu la ^^

Dans la ligne 1 tu as les Noms des Agents et en ligne 2 les dates de la dernière intervention, résultats de la macro; réponse à ta demande.

Chez moi cela fonctionne bien.
Reviens nous voir si tu as des des problèmes.

Je peux encore compléter en ajoutant un contrôle de mise à jour suite à des interventions nouvelles.

Copie de la feuille de travail.
Sur la deuxième ligne tu as la date de la dernière intervention,
Ici le 05/12/21 pour GUILLAUME

NATHAN GUILLAUME HERVE DOMINIQUE Date Mise à jour
11/12/2021 05/12/2021 11/12/2021 05/12/2021

DATE NATHAN GUILLAUME HERVE DOMINIQUE A B C DATE
30/11/21 NATHAN 30/11/21
01/12/21 HERVE DOMINIQUE 01/12/21
02/12/21 GUILLAUME 02/12/21
03/12/21 GUILLAUME HERVE 03/12/21
04/12/21 NATHAN DOMINIQUE 04/12/21
05/12/21 GUILLAUME DOMINIQUE 05/12/21
11/12/21 NATHAN HERVE 11/12/21

Astuce pour le saisie; Faire un copier/coller du nom de l' intervenant.

Cdt.
JB22

"Je vais essayé de faire ça mais je dois avouer que tu m'as un peu perdu la ^^.

Le but n' était pas de te faire perdre la ^^...
As-tu réussi tes essais et résolu ton problème.

Cdt,
J.B.22 (1922 )