Augmenter la valeur d'une cellule avec une Macro

[Golderock]

Bonjour,
Je cherche à faire une simple macro qui prend la valeur d’une cellule et l’augmente de 6.

EX: dans la cellule F1 il y a la date 2020-3-1 et je veux 2020-3-8 (soit une semaine plus tard)
Je veux que la macro prenne cette valeur et l’augmente de 6 et la réinscrit dans la cellule F1.

Merci à l’avance

[PYS]

Bonjour

Tout d’abord, si la piste “macro” vient du fait que tu souhaites faire cet ajout sur une plage, sache qu’il n’y a pas besoin de macro pour cela.

Tu peux par exemple :

• saisir 6 dans une cellule quelconque (par ex. A1),
• copier cette cellule
• sélectionner la plage à laquelle tu veux ajouter 6 (par ex. F1:F10)
• faire Édition▸Collage spécial▸Collage spécial▸Opérations▸sélectionner Additionner

Si tu as vraiment besoin d’une macro, tu peux utiliser quelque chose comme :

Sub Ajouter

dim oCell as object

oCell = thiscomponent.sheets.getByName("Feuille1").getCellRangeByName("F1")
oCell.value = oCell.value + 6

End Sub

On “part” :

• du classeur courant (thiscomponent)
• qui contient une collection de feuilles (sheets)
• parmi lesquelles on accède par son nom à celle qui nous intéresse (getByName("Feuille1"))
• et enfin, par son nom, à la plage concernée (getCellRangeByName("F1")).
• on modifie la propriété valeur en ajoutant 6 au contenu actuel.

PS : je réponds avec l’exemple demandé (ajout de 6) mais bien sûr, si tu veux vraiment ajouter une semaine c’est 7 qu’il faudrait

Cordialement

[Golderock]

Merci encore Pierre-Yves
C’est si simple. J’essayais des choses trop complexe.
Et oui c’est +7 pour la semaine suivante !!