insertion auto de données à une date donnée?

[Caton]

bonjour,

dans une feuille de calcul 'dépenses' je souhaite importer automatiquement des données provenant d'une autre feuille de calcul 'échéancier' et ceci à la date de paiement prévue
sur la feuille 'dépenses' j'inscris au jour le jour les dépenses non prévues et je souhaite importer automatiquement les dépenses prévues inscrites par avance sur la feuille de calcul 'échéancier'
exemple simplifié du contenu des 2 feuilles:
col 1 date de paiement
col 2 nature
col 3 montant
est-ce possible?
merci

 

[pierrejean]

bonjour caton

vois si cela te conviens [file name=caton_20060412132405.zip size=7947]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/caton_20060412132405.zip[/file]

 

[caton]

merci pour ta réponse pierrejean mais comment cela fonctionne pour insérer automatiquement des données de la feuille échéancier vers la feuille dépenses
je ne vois pas de formule
est-ce du vba?

merci

 

[pierrejean]

re caton

c'est du Vba placé à l'ouverture du fichier

pour tester modifie dans l'echeancier une date en la mettant avant aujourd'hui
ferme le fichier et rouvre le

la ligne sera passée de l'echeancier aux depenses

ne pas hesiter a revenir si tu veux en savoir plus

 

[caton]

c'est exactement la solution que je cherchais...
maintenant je voudrais récupérer le code vba pour l'adapter à ma feuille de calcul réelle
merci pierrejean

 

[pierrejean]

re caton

le voila
(il ne passe pas !!)

va en

outils > macro > visual basic
affichage > explorateur de projet
et clic sur thisworkbook

si pb ne pas hesiter à revenir

Message édité par: pierrejean, à: 12/04/2006 14:38

Message édité par: pierrejean, à: 12/04/2006 14:41

 

[caton]

merci pierrejean

si j'ai des pbs pour faire fonctionner le vba je reviendrai car je ne suis pas un spécialiste de la question...

merci encore

 

[caton]

pierrejean, j'ai des pbs (je m'y attendais)

j'ai recopié le code que tu m'as transmis mais j'ai un message d'erreur à l'ouverture de mon classeur (for sans next ou qqchose d'approchant)

voilà le code que j'ai reçu de ta part:

Private Sub workbook_open()
x = Sheets('echeancier').Range('a65536').End(xlUp).Row
y = Sheets('depenses').Range('a65536').End(xlUp).Row
For n = 2 To x
if sheets('echeancier').range('a'&n)affichage>explorateur de projet
et clic sur thisworkbook

 

[pierrejean]

re caton

Private Sub Workbook_Open()
x = Sheets('echeancier').Range('A65536').End(xlUp).Row
y = Sheets('depenses').Range('A65536').End(xlUp).Row
For n = 2 To x
If Sheets('echeancier').Range('A' & n) <= Date Then
Sheets('echeancier').Rows(n).Cut Destination:=Sheets('depenses').Rows(y + 1)
Application.CutCopyMode = False
End If
Next n

For n = 2 To x
If Sheets('echeancier').Range('A' & n) = '' Then Sheets('echeancier').Rows(n).Delete
Next n
End Sub

en esperant qu'il passera mieux

 

[caton]

code bien reçu...je le teste et je reviens

 

[caton]

c'est ok pierrejean

merci encore et bonne soirée...

 

[caton]

pour pierrejean

je veux ajouter sur chacune des feuilles 'depenses' et echeancier une colonne nommée 'numéro' (qui sera la 1ère colonne)
cela modifie-t-il le code et si oui comment

merci

 

[pierrejean]

re

remplacer A par l'en-tete de la colonne contenant la date

si plusieurs feuilles depenses et echeancier il convient d'accorder chaque echeancier a chaque depenses

d'ailleurs les feuilles devront etre differemment nommées (par ex echeancier1 depenses1 etc )

quand j'aurais un minute je ferais un code exemple avec 2 feuilles de chaque

 

[pierrejean]

re caton

pas le plus elegant

mais dans un 1er temps le plus facile si tu n'as pas trop de couples de feuilles

Private Sub Workbook_Open()
x = Sheets('echeancier').Range('B65536').End(xlUp).Row
y = Sheets('depenses').Range('B65536').End(xlUp).Row
For n = 2 To x
If Sheets('echeancier').Range('B' & n) <= Date Then
Sheets('echeancier').Rows(n).Cut Destination:=Sheets('depenses').Rows(y + 1)
Application.CutCopyMode = False
End If
Next n

For n = 2 To x
If Sheets('echeancier').Range('B' & n) = '' Then Sheets('echeancier').Rows(n).Delete
Next n



x = Sheets('echeancier1').Range('B65536').End(xlUp).Row
y = Sheets('depenses1').Range('B65536').End(xlUp).Row
For n = 2 To x
If Sheets('echeancier1').Range('B' & n) <= Date Then
Sheets('echeancier1').Rows(n).Cut Destination:=Sheets('depenses1').Rows(y + 1)
Application.CutCopyMode = False
End If
Next n

For n = 2 To x
If Sheets('echeancier1').Range('B' & n) = '' Then Sheets('echeancier1').Rows(n).Delete
Next n


End Sub

 

[caton]

merci pierrejean

je teste ta solution et je reviens (j'ai un seul couple de feuilles)