Macro pour ajouter une ligne avec le mois en cours et cumul de valeurs

Bonjour à tous,

je débute et je bricole avec des morceaux de codes pris à droite à gauche, je m'excuse donc par avance du niveau de ma question.

Je n'arrive pas à faire une chose sûrement très simple sur Excel 2003.

Je cherche une macro me permettant :

• de créer une ligne avec le mois en cours sur A2
• de rajouter +1 à la valeur en B2 (par exemple un nombre de RDV)

Si je lance plusieurs fois la macro le même mois, je veux que +1 soit rajouter à ma case B2 (rendez-vous).

Au mois suivant, je veux que soit insérée une nouvelle ligne en A3 (nouveau mois) et que les +1 se rajoute à ma case B3 (RDV)

Etc.

J'ai bricolé avec ce code mais ça n'insère que la ligne avec la date et je ne sais pas comment rajouter le +1 dans la colonne suivante:

Sub insere_ligne()
Dim DerLig As Long
Application.ScreenUpdating = False
DerLig = [A65000].End(xlUp).Row
    Rows(DerLig & ":" & DerLig).Copy
    Rows(DerLig & ":" & DerLig).Insert Shift:=xlDown
    Rows(DerLig + 1 & ":" & DerLig + 1).ClearContents
Cells(DerLig + 1, 1) = Format(Now, "mm/yyyy")
End Sub

Merci d'avance pour votre aide!

bonjour,

une proposition

Sub insere_ligne()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    If Month(Cells(dl, 1)) = Month(Now) Then
        Cells(dl, 2) = Cells(dl, 2) + 1
    Else
        Cells(dl + 1, 1) = DateSerial(Year(Now), Month(Now), 1)
        Cells(dl + 1, 2) = 1
    End If
End Sub

Merci, ça marche bien!

Juste une petite question en plus:

Comme dois-je modifier la macro si par exemple je veux que la date et le +1 soit ajouter au cellules F2 et F3 de la Feuil2.

Les modifications que j'ai tentées finisse par des erreurs.

Merci d'avance pour ton aide.

rebonjour,

la syntaxe complète pour faire référence à une cellule bien précise sur une feuille bien précise est

sheets(""nom de la feuille").cells(N°deligne,n°de colonne)

donc pour mettre la date du jour en B2 sur feuil2

sheets("feuil2").cells(2,2)=date()