J'ai un petit souci avec mon code mais je n y arrive pas, forcement sinon je ne vous poserai pas la question.
Sur ma feuille excel j'ai des infos de factures que j'ai rentré, et a chaque fin de mois je click sur mon bouton pour inscrire le nom du mois et l'année écoulé avec le code suivant.
Code:
Sub DateDébutMois_Clic()
If Day(Date) = 1 Then Rows("9:10").Insert xlShiftDown: Range("I6").Value = Month(Date)
With Range("I6")
.Value = DateSerial(Year(Date), Month(Date), -1)
.NumberFormat = "mmm yyyy"
End With
End Sub
Seul petit problème je voudrais que le mois s’inscrit en colonne "I" et sur la première ligne soit en "I6"
En sachant que les infos de mes factures s'inscrit du haut vers le bas soit a chaque nouvelle enregistrement les infos de la factures rentre en ligne "6" comme sur l'exemple fourni
Je vous remercie de votre aide et vous souhaite une bonne journée
ATTENTION à cela, tu ne pourras ajouter une (des) ligne(s) que si tu utilises le fichier le premier jour du mois
Pas question de partir en ballade ce jour-là, Excel attend ta présence
remplace le code par celui-ci:
Code:
Sub DateDébutMois_Clic()
If Day(Date) = 1 Then
Rows(5).Insert xlShiftDown: Range("C5").Value = Month(Date)
With Range("c5")
.Value = DateSerial(Year(Date), Month(Date), -1)
.NumberFormat = "dd/mm/yyyy"
End With
End If
End Sub
à+
Philippe
Edit:
après nettoyage du code, prends plutôt celui-ci
Code:
Sub DateDébutMois_Clic()
If Day(Date) = 1 Then
Rows(5).Insert xlShiftDown
With Range("c5")
.Value = DateSerial(Year(Date), Month(Date), -1)
.NumberFormat = "dd/mm/yyyy"
End With
End If
End Sub
Je te remercie mais moi se que je désir bien sur si possible.
Lorsque j'ouvre mon fichier que se soit le 1er ou le 3 du mois je click sur mon bouton et au milieu de ma feuille soit en "I6" j'ai exemple "Octobre 2013", quand je rentre une autre facture elle se positionne au-dessus toujours "A6:R6" et les autres factures descende d'un cran à chaque fois et au final chaque mois écouler on distinguent les factures du mois entre les deux date en question
entre Septembre et Octobre ect...
Je ne sais pas si je me suis bien expliquer mais reste a ta disposition.
voir fichier joint, maintenant tu peux cliquer quand tu veux, il n’y a plus de contrôle de la date
j'ai encore raccourci le code
mais il y a encore de belles améliorations à apporter:
il serait plus confortable de saisir toutes les données de la ligne nouvellement créée par l'intermédiaire d'un Userform
Tu as raison je vais adapté ta méthode.
Autre question qui n'a rien voir, peut tu m'expliquer pourquoi sur la deuxième ligne du fichier que j'ai envoyer au Post 5 ne fonctionne pas se sont des formule "SOMMEPROD" ?
Autre question qui n'a rien voir, peut tu m'expliquer pourquoi sur la deuxième ligne du fichier que j'ai envoyer au Post 5 ne fonctionne pas se sont des formule "SOMMEPROD" ?
J'ai vérifié le séparateur décimal cela est bon mais je viens de m'apercevoir que sa viens des Dates qu'il y a en colonne "C" si tu enlève l'espace devant la date sa additionne alors je ne sais pas comment faire?
@+