Discussion :

[depotmoda]

Bonjour à toutes et à tous

J'ai créé un tableau excel pour gérer les payement fournisseur au boulot.

Je m'occupe des payements pour plusieurs de nos sociétés (société A, société B, Société C ...)

J'ai donc fais un tableau où j’introduis les échéances des payements et dés que l'échéance est dépassé, j'ai fais une mise en forme conditionnelle et j'ai une cellule qui devient rouge et il se met en mode RETARD. Dés que j’introduis la date de payement, ça change et ça se met en "payé". Si la date d'échéance n'est pas à terme, c'est mis "à jour"

Tout marche bien, mon seul soucis, c 'est que je me retrouve après qques semaines avec bcp trop de lignes "payé" et ça polue mon fichier, mais je voudrais les garder pour mon historique.

Je voudrais donc que dés que la facture est payé la ligne soit copiée sur la feuille "payé" et qu'elle n’apparaisse plus dans mon échéancier principal. Il faudrait aussi que me retrouve pas avec pleins de lignes vide une fois que les données sont transférées à l'autre feuille.

Le problème c'est que je ne sais pas faire de macro, j'essaye d'apprendre mais tout seul c 'est un peux compliqué et là ça fais 15 jours que je galère.

Qqun pourrait il, svp, m'aider avec une macro sympathique qui se mettrais en route toute seule, sans devoir appuyer sur un bouton pour l'activer


Voici le fichier
Merci infiniment

[Philippe Tulliez]

Bonjour,

Le problème c'est que je ne sais pas faire de macro, j'essaye d'apprendre mais tout seul c 'est un peux compliqué et là ça fais 15 jours que je galère.

L'enregistreur de macros est le meilleur ami du programmeur et pour programmer en VBA pour Excel, une bonne connaissance de ces outils et fonctionnalités est un plus.
Donc, tu souhaites que les lignes dont la colonne X contient le mot "Payé" soit exportée vers une feuille nommée [Payé]
A) Pour exporter des lignes répondant à des conditions d'une feuille vers une autre, deux possibilités
1) Filtre simple sur la colonne X, choisir "Payé" et ensuite Copier les feuilles filtrées et Coller ensuite dans la feuille [Payé]
2) Le filtre élaboré d'excel dont la lecture de ce tutoriel t'en apprendra plus Les filtres avancés ou élaborés dans Excel

Pour ma part, dans ce cas précis, j'utiliserais le premier choix.
B) Ensuite, il faut supprimer les lignes, les feuilles filtrées étant encore sélectionnées (tiret clignotant), il suffit de faire un clic droit, et choisir Supprimer la ligne dans le menu contextuel.
Un message Voulez-vous supprimer la ligne entière ? va apparaître, et il suffit de cliquer sur le bouton OK.
C) Il suffit d'effacer le filtre et le tour est joué.
L'enregistreur de macros aura "pondu" un code qu'il faut ensuite un peu retravailler.
C'est là que la FAQ de DVP ou les intervenants de ce forum pourront t'apporter leur aide mais pas en te donnant le code tout fait.

Si maintenant, il faut qu'à chaque fois que l'on tape "Payé", la ligne doit se copier et se supprimer, il faut aller voir du côté de la procédure événementielle Worksheet_Change où l'argument Target représente la cellule modifiée.

Et il est inutile de déposer un classeur

[depotmoda]

Merci pour la réponse !

Ce qui donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub essais1()
'
' essais1 Macro
'
 
'
    Range("H3").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$3:$H$948").AutoFilter Field:=7, Criteria1:="payé"
    Range("B6:H12").Select
    Selection.Copy
    Sheets("payé").Select
    ActiveSheet.Paste
    Sheets("Feuille2").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Delete
    Range("H3").Select
    Selection.AutoFilter
 
End Sub

ça marche la première fois que je le fais et après plus du tout...

Je pense qu'il faut pas faire de filtre, mais plutôt lui demander de sélectionner la ligne qui contient le mot "payé" , et après je pense qu'avec copier coller ça devrait aller... qu'en pensez vous ?