Macro avec liste intégrée pour imprimer selon critères ou filtre ?

elle1213

XLDnaute Junior
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

Pourtant dans ton fichier les dates sont aussi en US :( je pige pas où est la différence ?
 

don_pets

XLDnaute Occasionnel
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

hum cette problématique est plus emmerdante que prévu !
Je sèche un peu quant à la meilleure méthode, j'en ai essayé 3, sans résultats.

Le truc c'est qu'en :
1 - tu archives si la case est cochée
2 - si weekly alors il faut recopier la ligne en effaçant la date et en y mettant la nouvelle

Toujours mode détente pour la dead line où tu commences à avoir quelques relances ?
(Simplement, parce que là je dois impérativement boucler quelques bêtises, et après je fonce chercher ma fille tout en bravant la grève des transports)
 

elle1213

XLDnaute Junior
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

Lol je dois envoyer le fichier cet après-midi mais je préfère 1000 fois que tu ailles braver la grêve pour récuperer ta fille à temps !
Alors ne te prends pas le chou pour ça :) je vais envoyer le fichier tel quel pour le moment en voyant si mon boss peut trouver les solutions manquantes. Et si ce n'est pas le cas, tu me reverras demain reposter mais d'ici là ne t'en souci plus et un méga merciiiiiii à toi Don ! Tu es vraiment sympa y'a pas de smiley "bisous" dommage !!! :p
 

don_pets

XLDnaute Occasionnel
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

dé nada,

Je tacherai tout de même demain de trouver une solution pour le cas éventuel de ton post demain ^^

La bise
 

elle1213

XLDnaute Junior
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

Bonjour Don !

Ca a été hier avec la grêve ?

Mon chef a fini les formules bien casse tête quand même.

Et en plus y’a une faille… Je te mets la formule tu vas mieux comprendre je pense :

' AutoArchivage
Sheets("Actionplan").Activate

For i = 2 To Range("A6553").End(xlUp).Row

If Cells(i, 5) = "þ" Then


derligne = Sheets("Archives").Range("A65535").End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, 6)).Copy Destination:=Sheets("Archives").Range("A" & derligne)
If Cells(i, 13) = "" Then
Rows(i).Delete
Else
If Cells(i, 13) = "Weekly" Then
Cells(i, 4) = Cells(i, 4) + 7
Cells(i, 5) = "¨"
Cells(i, 6) = ""
End If
If Cells(i, 13) = "Monthly" Then
If Month(Cells(i, 4)) = 1 Or Month(Cells(i, 4)) = 3 Or Month(Cells(i, 4)) = 5 Or Month(Cells(i, 4)) = 7 Or Month(Cells(i, 4)) = 8 Or Month(Cells(i,4)) = 10 Or Month(Cells(i, 4)) = 12 Then
mois = 31
If Month(Cells(i, 4)) = 1 Then
If Day(Cells(i, 4)) = 29 Or Day(Cells(i, 4)) = 30 Or Day(Cells(i, 4)) = 31 Then
mois = 28
End If
End If
Cells(i, 4) = Cells(i, 4) + mois
Else
mois = 30
If Month(Cells(i, 4)) = 2 Then
mois = 28
End If
Cells(i, 4) = Cells(i, 4) + mois
End If


Du coup, quand on met une action au 31 janvier cela répète bien au 28 février mais ensuite au lieu de la répéter au 31 mars et bien on repars sur du 28 mars…

Donc au cas où tu aurais la solution :)

Pour le tri par date sur la page archive ça ne marche pas chez moi, pourtant cela marchait bien sur ton fichier. Ce n’est pas indispensable mais au cas où, j’aimerais bien l’avoir car sait-on jamais !

Merci encore !
 

elle1213

XLDnaute Junior
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

Coucou Don,

Toujours la ?

J'aimerais avoir une info concernant la page archives.

Si j'envoi une action aux archives et que je souhaite la récuperer, c'est possible de le faire juste en deselectionnant la case cochée ?

Merci :)
 

don_pets

XLDnaute Occasionnel
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

Yo, je dois pouvoir te bricoler ça - je suis en Rdv clientèle ce matin, te fais ça en rentrant
 

don_pets

XLDnaute Occasionnel
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

le plus simple serait je pense de faire la même chose, mais à l'envers ^^

un truc du genre

Code:
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    ' Conditions d'Archivage
If Not Intersect(Target, Range("E2:E5000")) Is Nothing Then
Cancel = True
Target = IIf(Target = Chr(254), Chr(168), Chr(254))
End If

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ' AutoArchivage
Sheets("Archives").Activate

For i = 2 To Range("A6553").End(xlUp).Row

        If Cells(i, 5) <> "þ" Then


            derligne = Sheets("Actionplan").Range("A65535").End(xlUp).Row + 1
            Range(Cells(i, 1), Cells(i, 5)).Cut Destination:=Sheets("Actionplan").Range("A" & derligne)
            Rows(i).Delete
            
        
        End If
        
Next i
End Sub
 

don_pets

XLDnaute Occasionnel
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

A coller dans la feuille archives évidemment !
 

elle1213

XLDnaute Junior
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

Merci beaucoup ça fonctionne !

Pourrais-tu m’expliquer ce que veut dire cette formule ?

“Target = IIf(Target = Chr(254), Chr(168), Chr(254))”

Pourquoi il y a un I devant if ? et que veut dire Chr ?

Je présente le fichier ce matin à 10h30 à l’équipe, je te dirai ce qu’ils en ont pensé ;)
 

don_pets

XLDnaute Occasionnel
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

- iif c'est une sorte de if mode express, tu mets si alors machin sur une seule ligne
- chr ce sont des caractères

Je touche du bois pour que cela se passe bien et que l'appli leur plaira et surtout leur sera utile.

Évidemment si besoin de la faire évoluer tu sais où sonner (n'hésite pas à passer par mp
 

elle1213

XLDnaute Junior
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

En tout cas j'aime énormement ce qu'est devenu ce fichier et je pense qu'elle leur sera plus qu'utile :) Je te tiens au courant dans l'après-midi ! Bien évidemment les ingénieurs voient toujours des améliorations à faire donc je m'y attends mais je pense que l'objectif 1 est atteint :) Merci à toi
 

elle1213

XLDnaute Junior
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

Bonjour Don,

J'espère que tu as pu profiter du long week end comme moi ! :D

Alors en ce qui concerne le fichier, j’ai eu un retour positif de l’équipe. Pendant la présentation tout s’est donc bien déroulé hormis la macro qui devenait de plus en plus grande au fur et à mesure que je cliquais dessus… Je me suis dis que c’était peut-être dû à Excel 2010 et donc peut être pas compatible avec la version 2007… ?

Chez quelqu’un d’autre lorsqu’il se sert du fichier le bouton « impression » rétréci, on ne le vois quasi plus.

J’ai eu 1 seule demande complémentaire, c’est d’afficher les actions globales pour une personne (Ex : Si quelqu’un souhaite sortir toutes ses actions à faire passées non validées et futures).

Je me dis juste que la fenêtre va juste être énorme avec tout ces petits boutons! :eek:

Voilà tu sais tout :)

Merci à toi pour ta disponibilité et ta sympathie Don !
 

don_pets

XLDnaute Occasionnel
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

'llo Elle,

Week à la cool, j'ai lancé la saison de la raclette. La reprise tday ets un peu plus complexe, mais ça se gère ^^ Et toi , bien ?

Bizarre que ta démo ait bien fonctionné. Habituellement, tout roule nickel avant de commencer,et juste quand tu démarres ça coince ! Loi de Murphy paraît-il !

Pour la lenteur, cela dépend de plusieurs facteurs dont ton ordinateur et sa charge de travail. Si tu sens que ça patine un peu,d ans le doute ferme et relance ton fichier, qui de toute façon n'a pas vocation a lancé 67 manipes en même temps.

Pour ton bouton riquiqui c'est space ! Ton user a-t-il le même environnement que les autres ?

Tu sais que j'aime bien quand tu détailles un peu plus, alors ne te prive pas car je voudrais saisir le sens de ta demande d'évolution ^^
 

elle1213

XLDnaute Junior
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

Bonjour Don !

Comment vas-tu ?

Humm raclette… Moi j’ai commencé mon régime hier donc ça va je peux encore supporter qu’on me parle de bonnes choses à manger 

Concernant la demande :

Une personne souhaite sortir toutes ses actions « en retard », « en cours » et je ne suis pas sûre mais peut-être même déjà validées. Il faut que je reconfirme. Donc ce serait encore un bouton pour cette demande…. Ca me parait juste énorme, il va y avoir des boutons de partout ! ;)

Et puis j’aimerais laisser en commentaire, comment procéder pour ajouter une personne. Que cela soit pour créer sa macro, et pour l’ajouter au listing. Il me semble qu’en faisant un copier coller de ce que tu as fait cela devrait être bon. Je t’envoie le code dès que possible et tu me diras si cela te parait correct.

Merci,
Kahina
 

don_pets

XLDnaute Occasionnel
Re : Macro avec liste intégrée pour imprimer selon critères ou filtre ?

Hidiho,

Ca swing et ouate ?

Il est tout à fait possible de faire ce genre d'actions, et il n'est pas exclu que cela prenne un peu beaucoup de place ces petits boutons ! Au pire détermine ce qu'il faut exactement, et je te ponds les codes en 2*2.

Pour les évolutions, c'est facilement transposable à de nouvelles personnes, il suffit de modifier quelques paramètres. Nous allons nous mettre en mode élève / professeur, et tu vas toi même adapter le code à un nouvel entrant. Je te corrigerai les inexistantes fautes que tu pourrais avoir l'outrecuidance de faire.
 

Discussions similaires


Haut Bas