Réaliser une macro

bob2024 Messages postés 3 Date d'inscription mardi 9 janvier 2024 Statut Membre Dernière intervention 15 janvier 2024 - 9 janv. 2024 à 19:52
bob2024 Messages postés 3 Date d'inscription mardi 9 janvier 2024 Statut Membre Dernière intervention 15 janvier 2024 - 15 janv. 2024 à 20:46

Bonsoir,

j'ai réalisé ces 2 formules qui fonctionnent parfaitement sur Excel. J'aimerais la simplifier ou alors la remplacer par une macro. Quelqu'un pourrait il m'aider s'il vous plait?

Je vous remercie infiniment par avance

=SI(OU(J3="";GAUCHE(O3;4)="radi";GAUCHE(O3;3)="rdc";GAUCHE(O3;8)="réaffect";GAUCHE(O3;5)="réint";GAUCHE(O3;5)="résil");"-";SI(GAUCHE(O3;19)="COMMENTAIRE relancé";"En cours";SI(GAUCHE(O3;7)="relancé";"En cours";SI(MOIS(DATE(ANNEE(J3);MOIS(J3);JOUR(J3)+1))>5;CONCATENER(ANNEE(DATE(ANNEE(J3);MOIS(J3);JOUR(J3)+1));"/0";MOIS(DATE(ANNEE(J3);MOIS(J3);JOUR(J3)+1))-5);SI(MOIS(DATE(ANNEE(J3);MOIS(J3);JOUR(J3)+1))<3;CONCATENER(ANNEE(DATE(ANNEE(J3);MOIS(J3);JOUR(J3)+1))-1;"/0";MOIS(DATE(ANNEE(J3);MOIS(J3);JOUR(J3)+1))+7);CONCATENER(ANNEE(DATE(ANNEE(J3);MOIS(J3);JOUR(J3)+1))-1;"/";MOIS(DATE(ANNEE(J3);MOIS(J3);JOUR(J3)+1))+7)))))).

=SI(Q3="De carrière";"sans";SI(P3="";"-";SI(OU(P3>J3;P3=J3;P3="fin det";GAUCHE(O3;4)="radi";GAUCHE(O3;5)="resil");"Ok";SI(MOIS(P3)<10;CONCATENER(ANNEE(P3)-1;"/0";MOIS(P3));CONCATENER(ANNEE(P3)-1;"/";MOIS(P3))))))

A voir également:

3 réponses

Le Pingou Messages postés 12094 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 30 mai 2024 1 436
14 janv. 2024 à 22:47

Bonjour,

Sans le fichier, impossible dans faire plus:


0
Raymond PENTIER Messages postés 58463 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 1 juin 2024 17 123
15 janv. 2024 à 04:59

Bonjour, ami Le Pingou, et Bonne Année !

Je vais quand même proposer une réponse à bob2024 :

* Une macro ? Cela me parait une mauvaise idée ...

* Une simplification de la seconde formule ? Il n'y en a pas, à mon avis.

* Une simplification de la première formule ? Peut-être :
Si elle est dans la cellule A1, on va dans FORMULE / Noms définis / Définir un nom et on crée le nom M qui fait référence à
=MOIS(DATE(ANNEE(Feuil1!J3);MOIS(Feuil1!J3);JOUR(Feuil1!J3)+1))
et le nom A qui fait référence à
=ANNEE(DATE(ANNEE(Feuil1!J3);MOIS(Feuil1!J3);JOUR(Feuil1!J3)+1))
On peut alors faire Rechercher/Remplacer pour insérer M et A à la place des 2 expressions, ce qui donne la formule
=SI(OU(J3="";GAUCHE(O3;4)="radi";GAUCHE(O3;3)="rdc";GAUCHE(O3;8)="réaffect";GAUCHE(O3;5)="réint";GAUCHE(O3;5)="résil");"-";SI(GAUCHE(O3;19)="COMMENTAIRE relancé";"En cours";SI(GAUCHE(O3;7)="relancé";"En cours";SI(M>5;CONCATENER (A;"/0";M-5);SI(M<3;CONCATENER(A-1;"/0";M+7);CONCATENER(A-1;"/";M+7))))))


0
bob2024 Messages postés 3 Date d'inscription mardi 9 janvier 2024 Statut Membre Dernière intervention 15 janvier 2024
15 janv. 2024 à 20:46

Bonsoir Raymond,

Je ne parvenais pas à lire votre réponse et j'en suis désolé. Merci d'avoir pris le temps pour moi. Je vais exploiter cela sur mon fichier et me permettre de revenir vers vous au besoin. Bon séjour aux Antilles :) Bien à vous

0