Bonjour,
Je dois remplir quotidiennement un fichier pour des statistique afin de savoir sur 1 an ce qui a été géré chaque mois. (en gros il va y avoir la tranche d’âge, le motif de passage etc)
Il y a une 60taine de lignes dans ce fichier.
Pour l’instant je le fait manuellement, mais j’aimerai simplifier en ajoutant à chaque ligne un bouton associé à une macro qui rajoute +1 dans la colonne du mois correspondant, sur la ligne où se situe le bouton.
J’arrive à la macro suivante :
Sub AjouterUnSuivantMois()
Dim feuille As Object
Dim cellule As Object
Dim mois As Integer
Dim colonne As Integer
feuille = ThisComponent.CurrentController.ActiveSheet
mois = Month(Now()) ' Obtient le mois actuel
' Calcul de la colonne en fonction du mois
colonne = mois + 1
' Vérification si la colonne dépasse Z (26), si oui, revenir à A (1)
If colonne > 26 Then
colonne = colonne - 26
End If
' Calcul du nom de la colonne
Dim nom_colonne As String
nom_colonne = Chr(65 + colonne - 1) ' A = 65 dans le code ASCII
' Définition de la cellule en fonction du mois
cellule = feuille.getCellRangeByName(nom_colonne & "4")
' Ajout de 1 à la valeur actuelle de la cellule
cellule.Value = cellule.Value + 1
End Sub
Là où je suis bloqué actuellement, c’est que je ne trouve pas comment faire pour que le bouton rajoute +1 dans la ligne où celui-ci est situé. Y aurait-il une manière simple de localiser la ligne du bouton ?
En vous remerciant de votre aide.