incrémenter données dans tableau excel

[jeanphi]

bonjour


je souhaite dans un tableau excel à deux colonnes
que suivant la date du jour des infos viennent se mettre automatiquement dans le tableau
par exemple je souhaite que le premier jour de chaque mois se mettre automatiquement dans mon tableau dans la cellube a13 le moyer loyer et dans la cellule b13 le montant de ce loyer

voici ce que l écris mais cà ne marche pas puisque ca me met cette info de a13 à a17 et qui plus est sans tenir compte de la date

Sub test()
Dim mydate As Date
loyer = 0
For i = 13 To 17
If Cells(i, 2).Value = "" And mydate = 27 Then loyer = loyer+ 1
Cells(i, 1).Value = "loyer"
Cells(i, 2).Value = "20"
Next i
end sub

pouvez vous m'aider svp??

 

[Luki]

Re : incrémenter données dans tableau excel

Bonjour,

Peux-tu préciser?

Sur une feuille vide, ta macro rempli les cellules A13:A17 avec "loyer" et les cellules B13:B17 avec le mot "20". C'est normal?

Peut-être qu'un petit exemple en Pjointe de ce que tu veux nous aidera...

A te lire

 

[ziopizza]

Re : incrémenter données dans tableau excel

Bonjour jeanphi,luki,
Pas sur d'avoir compris,regarde ce code
qui à chaque changement de mois écrira ton loyer.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
i = Target.Row
If Month(Cells(i, 1)) <> Month(Cells(i - 1, 1)) Then
Cells(i, 2) = "Loyer"
Cells(i, 3) = 200
End If
End If
End Sub

Salut
Yves

 

[jeanphi]

Re : incrémenter données dans tableau excel

Bonjour yves

non c'est pas çà....
ce que je veux c'est que la macro le premier le 2 de chaque mois (en fonction de la date système) mette automatiquement dans le tableau excel en colonne a loyer et en colonne b le montant du loyer
ma macro marche le pb c 'est qu 'elle copie le loyer sur toute la plage!
je voudrais qu elle copie juste sur une ligne!
peux tu m aider?
merci

 

[jeanphi]

Re : incrémenter données dans tableau excel

Bonjour,

Peux-tu préciser?

Sur une feuille vide, ta macro rempli les cellules A13:A17 avec "loyer" et les cellules B13:B17 avec le mot "20". C'est normal?

Peut-être qu'un petit exemple en Pjointe de ce que tu veux nous aidera...

A te lire

bonjour luki


non ce n'est pas normal
je voudrais que la macro s arrete une fois qu'elle a rempli une ligne vide et non pas qu elle me recopie toute la plage
merci

 

[ziopizza]

Re : incrémenter données dans tableau excel

Pour quelle copy que sur une ligne écrire ton code comme ça,

Sub test()
Dim mydate As Date
loyer = 0
For i = 13 To 17
If Cells(i, 2).Value = "" And mydate = 27 Then loyer = loyer + 1
Cells(i, 1).Value = "loyer": Cells(i, 2).Value = "20": Exit Sub
Next i
End Sub

@+ Yves

 

[jeanphi]

Re : incrémenter données dans tableau excel

Pour quelle copy que sur une ligne écrire ton code comme ça,

Sub test()
Dim mydate As Date
loyer = 0
For i = 13 To 17
If Cells(i, 2).Value = "" And mydate = 27 Then loyer = loyer + 1
Cells(i, 1).Value = "loyer": Cells(i, 2).Value = "20": Exit Sub
Next i
End Sub

@+ Yves

merci yves c'est presque cà, le seul pb est que si je lance plusieurs fois Ta macro elle N incremente pas la ligne en dessous
en effet je souhaite faire le meme code pr toutes mes factures
tu sais faire? MERCI

 

[jeanphi]

Re : incrémenter données dans tableau excel

En Clair Je Veux A Chaque Fois Que Je Lance La Macro Une Ligne Se Complete

 

[ziopizza]

Re : incrémenter données dans tableau excel

Nouveau code , à toi de voir,
Sub test()
loyer = 0 'comprend pas
Cells(12, 1) = "Echéance" 'Titre en ligne 12 si vide
Lig = Range("a5000").End(xlUp).Row + 1
If Cells(Lig, 2).Value = "" And Day(Date) = Day(Now) Then'compare le jour avec le jour systeme
'loyer = loyer + 1' Comprend pas
Cells(Lig, 1).Value = "loyer": Cells(Lig, 2).Value = "20": Exit Sub
End If
End Sub
@+Yves

 

[jeanphi]

Re : incrémenter données dans tableau excel

c'est bien yves mais il faut que je fasse la même chose pour l'EDF par exemple

par exemple le 8 de chaque mois j'aurais besoin de que la macro me fasse une incréméntation comme pr le loyer
en gros il me faut ceci
MAIS COMMENT METTRE CE CODE DANS LA MACRO INITIALE???


Cells(12, 1) = "Echéance" 'Titre en ligne 12 si vide
Lig = Range("a5000").End(xlUp).Row + 1
If Cells(Lig, 2).Value = "" And Day(Date) = Day(Now) Then 'compare le jour avec le jour systeme
Cells(Lig, 1).Value = "edf": Cells(Lig, 2).Value = "26": Exit Sub
End If


Sub jp()

Cells(12, 1) = "Echéance" 'Titre en ligne 12 si vide
Lig = Range("a5000").End(xlUp).Row + 1
If Cells(Lig, 2).Value = "" And Day(Date) = Day(Now) Then 'compare le jour avec le jour systeme
Cells(Lig, 1).Value = "loyer": Cells(Lig, 2).Value = "20": Exit Sub
End If


End Sub

 

[ziopizza]

Re : incrémenter données dans tableau excel

Un premier test joint.
A toi de voir!
@+ Yves

 

[jeanphi]

Re : incrémenter données dans tableau excel

Nickel Yves, on y est arrivé(enfin toi!)
merci bcp et bon WE!