Bonjour, je cherche ou serait mon erreur sur ce code vba
Je cherche a afficher à cote de la cellule correspondante ( au mois correspondant) la somme A et somme B .
La référence de la date est en cellule A1
au final c'est un compteur qui s'ajuste en fonction du mois.
je suis en Janvier 2020 la somme A et B s'affichera en F3 / F4
et dès qu'on passe en février la somme A et B en F8/F9
Tout se fait automatiquement bien sur. Mais par rapport à la date en A1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Date
x = Range("A1")
If Target.Address = "$A$1" Then
If Month(x) = 1 Then
Range("F3") = Range("B11")
Range("F4") =Range("B12")
if Month(x) = 2 Then
Range("F8") = Range("B11")
Range("F9") =Range("B12")
End If
End Sub
Il y aura une reinit des cellules somme A et B en fin de mois ( j'ai pas mis le code mais au premier février les cellules B11/B12 passent à 0 )
sachant qu'il y a aura au moins 340 lignes est-ce possible de tout mettre dans une procédure?
je joints un fichier exemple
Merci de votre aide