Créer 1à1 liste à partir de cellules répondant à des conditions

Salut weapon
lors du dépôt de fichier, clic droit sur le lien affiché, copier le lien et coller ici
en principe ça fonctionne bien (.. mais pas toujours)
crdlmnt

Ok, Merci

Salut,

Suffit de ne pas le mettre en gras..... Message modifié.

Mes amitiés à Vaucluse

A noter: il n'y aura pas de vide dans la liste éditée, comme le montre le tableau dans le fichier... mais restez avec Weapon en VBA, c'est sans doute mieux
Bonne route

Ah j'avais mal compris le fonctionnement de votre solution ! En fait elle marche !

Merci ;)

WeaponEDGE je n'ai plus besoin du code adapté du coup :)

Merci encore une fois de votre aide à tous les deux !

Au plaisir

Theo.R,

Voici le code modifié en fonction des critères que tu m'as donné.
Rajoutes dans ton fichier un onglet nommé "Liste Retard"
Les colonnes 1 et 2 seront alimenté par la macro.

J'ai rajouté des commentaires (il apparaitrons en vert lorsque tu copieras le code) pour t'aider à comprendre le code.

Ce qu'il faut savoir si tu veux toucher aux coordonnées :
Cells(1,1) signifie la cellule A1.
les coordonnée sont les suivante : cells(N° Ligne, N°Colonne)

sheets("Suivi Offres en attente").cells(2,1) fait référence à la cellule A2 de la feuille "Suivi Offres en attente")

Pour plus de facilité dans la modification des Macros je rentre toujours le nom des Feuilles dans des variables, à savoir ShtA et ShtB. Si tu dois modifier le nom tu as juste à modifier le contenu de la variable en début de code et ce sera pris en compte pour tous le reste de la macro.

Sub Recap_CD()
    'Nom de la feuille Source
    ShtA = "Suivi Offres en attente"
    'Nom de la feuille Destination
    ShtB = "Liste Retard"

    
    'Analyse le nombre de ligne occupé dans chaque Tableau
    Nb_LigneA = Sheets(ShtA).Cells(Rows.Count, 5).End(xlUp).Row
    Nb_LigneB = Sheets(ShtB).Cells(Rows.Count, 1).End(xlUp).Row
    
    'Mise à Blanc du Tableau Destination
    For i = 2 To Nb_LigneB
        Sheets(ShtB).Cells(i, 1) = ""
        Sheets(ShtB).Cells(i, 2) = ""
    Next i
    
    'Alimentation du Tableau Destination
    X = 2
    For i = 2 To Nb_LigneA
        Commentaire = Sheets(ShtA).Cells(i, 4)
        
        If Commentaire <> "" Then
            Sheets(ShtB).Cells(X, 1) = Sheets(ShtA).Cells(i, 5)
            Sheets(ShtB).Cells(X, 2) = Sheets(ShtA).Cells(i, 15)
            X = X + 1
        End If
    Next i
    
    MsgBox ("Traitement Terminé")
End Sub

Cette macro est évolutive. Si tu alimentes ton Tableau Source les données seront pris en compte lors du prochain lancement

Et dernière chose. Pour créer un bouton original, télécharge une image n'importe laquelle. Insert là sur ta feuille excel et fais un clique droit dessus puis "Assigner une Macro". clique sur Recap_CD puis OK (LaMacro est maintenant rattaché à l'image). Cliques n'importe où sur ta feuille pour désélectionner l'image et reclique dessus; La Macro se lancera.

Merci beaucoup je vais regarder ça :)

Je déterre le sujet fraîchement "résolu" car j'ai un double problème :

N.B: par rapport à mon dernier commentaire, j'ai du décaler mes colonnes M, N et O jusqu'à O, P et Q.

1. j'avais d'abord opté pour la solution avec formules de Vaucluse, qui marchait bien SAUF que l'insertion de ligne dans la feuille de saisie "Suivi Offres en attente" fait planter la colonne avec la formule :
=SI('Suivi Offres en attente'!O2=0;"";SI((AUJOURDHUI()-'Suivi Offres en attente'!O2>DelaiAvantRetard)*('Suivi Offres en attente'!A2="OeA");MAX($A$1:A1)+1;""))

J'ai en effet un saut dans la succession A2 ; A3 ; A4 .... au numéro où j'ai inséré une ligne ..

La solution ne me convient donc plus puisque les utilisateurs de mon document ont besoin de pouvoir insérer des lignes..

2. j'ai alors regardé le code proposé par WeaponEDGE : j'ai bien saisi comment marche les références et j'ai mis à jour le tout, mais quand j'exécute la macro ça n'a aucun effet à part m'afficher la fenêtre "Traitement terminé".

Il me faudrait donc :
1. soit un code permettant en VBA d'étirer en 'Gestion des Retards'!A2:A2000 la formule
=SI('Suivi Offres en attente'!O2=0;"";SI((AUJOURDHUI()-'Suivi Offres en attente'!O2>DelaiAvantRetard)*('Suivi Offres en attente'!A2="OeA");MAX($A$1:A1)+1;""))

2. soit un code VBA reprenant tout depuis le début, i.e me permettant d'afficher en liste sans espaces les références des seules lignes d'un tableau qui répondent à la condition suivante (exemple pris pour la ligne 2) :
(AUJOURDHUI()-'Suivi Offres en attente'!O2>DelaiAvantRetard)*('Suivi Offres en attente'!A2="OeA")

Pour la solution 1, j'ai cherché sur plein de sujets déjà traités, mais je n'ai pas réussi à trouver un code qui marche dans mon cas alors que ça a l'air plutôt simple : étirer une formule par VBA...

Merci d'avance !

Le délai est fixé à 5 jours pour l'instant, dsl de l'imprécision

Comme je l'ai précisé dans mon commentaire de relance leurs solutions ne répondent pas totalement à la demande, notamment à cause de l'insertion de ligne (les cellules fusionnées ne posaient pas de pb pour les formules)

--

Bonjour WeaponEDGE,

Merci pour ce nouveau code ! Il marche bien ! J'ai juste quelques demandes complémentaires pour qu'il soit parfait :
- j'ai besoin d'ajouter une condition au tri des lignes clients, à savoir : la cellule en A:A doit contenir strictement le texte "OeA", dans le cas contraire, la ligne n'est pas à prendre en compte.
- j'aimerais un saut de ligne plutôt qu'un "&" entre PM et Agent à partir de M5 sur la feuille Gestion des retards

-Bonus : le "fin de la liste" ne m'arrange pas tellement même si je peux faire avec, il n'y a pas de solution pour faire sans ? Le pb est que je l'ai mis pour l'instant en E9000 pour avoir de la marge, mais du coup l'exécution du code met bien plus de temps (30 secondes de freeze).

Voilà merci encore pour votre aide, j'espère qu'on bouclera pour de bon ce dossier ;)

En fait le mot "FIN DE LA LISTE" doit être positionné juste après le dernier client ?
Quand vous insérez des lignes il descendra naturellement.

Le "FIN DE LA LISTE" peux être surpprimé à condition qu'il y ait une colonne dont les information sont systématiquement rempli (où il n'y a pas de blanc).

En fait pour calculer combien de ligne fait le tableau La macro se positonne sur la dernière ligne de la colonne 5 et effectue l'équivalent CTRL+SHIFT+Flêche du haut.
ce qui à par incidence de remmonter le curseur jusqu'à la première cellule de pleine.
ça fonctionne bien si le dernier client n'est pas une cellule fucionné, mais dans votre exemple il y a 3 cellule fucionné donc pour lui la fin du tableau se situera sur la permière ligne du dernier client au lieu de la 3eme. c'est pour celà que j'ai rajouté le terme (après j'ai mis FIN DE LISTE mais vous pauvez mettre ce que vous voulez, sauf du vide)
Je suppose que la colonne date de demande est forcément remplie, Si vous me confirmez j'axerais le calcul sur cette colonne et le terme pourra disparaitre.

Il n'y a pas de soucis pour ajouter le critère OeA.

A la place du "&" je peux mettre un espace à la place. En revanche je sais pas coder un retour à la ligne en VBA (et oui mes connaisses sont limités :-) ).

En fait, les utilisateurs de la feuille "Suivi Offres en attente" remplissent petit à petit les lignes, l'insertion étant utile pour revenir entre des lignes déjà saisies. Donc le "Fin de la liste" n'ira pas de lui même en dessous si les lignes sont simplement remplies petit à petit.

Petite précision : le client dans la colonne E peut être fusionné, mais ce n'est pas le cas des colonnes A, O, P et Q. En clair, si j'ai un même client fusionné sur E1:E10, alors j'aurai des lignes remplies entre E2 et E10, la différence étant que je n'aurai plus "OeA" en A, ni les dates/raisons renseignées en O, P et Q. Mais il y aura d'autres colonne renseignées, comme la L par exemple.

J'attends votre nouveau code avec la condition OeA en colonne A du coup

Pour le saut de ligne ou "&", tant pis, en attendant merci de mettre un "/" plutôt qu'un "&".

Merci d'avance,

Bon, J'ai trouvé une solution pour supprimer la FIN DE LISTE:

Contraintes : En ligne 1 il ne doit y avoir que les titres du Tableau il ne faut pas d'autres donnée sur la droite du Tableau.

Logique d'exécution : La macro compte le nombre de colonne que comporte le Tableau par rapport au dernier titre renseigné (Le plus à droite).
A partir de ce moment là, il va calculer le nombre de ligne pour chaque colonne et va utiliser comme référence le plus élevé.

Le condition OeA à été ajouté (ATTENTION les minuscule et majuscule sont pris en compte, "OEA" ne fonctionnera pas)

Le "&" à été remplacé par "/"

Ci joint le Fichier

https://www.cjoint.com/?0GxpNsOKTIL

Super boulot, ça marche à merveille !! Même sans mettre le "Fin de la liste", et je gagne du temps de calcul à ne faire que les lignes non vides !

Qu'appelez-vous "la droite du Tableau" ? mon tableau a des colonnes de A jusqu'à AC, la ligne 1 étant les titres oui.

J'allais cocher résolu, mais je viens de me rendre compte que ce code n'affiche pas avec le nom du client le n° de ligne concernée :/ (j'y arrivais avec les formules..)

Une ultime solution ?

A bientôt