Ajouter 1 à toutes les cellules d'une plage sélectionnée

Bonjour Forum !

J'aimerais faire une macro qui ajoute 1 à toutes les cellules comprises dans la sélection courante, mais je ne sais pas comment m'y prendre (niveau grand débutant en VBA).

Quelqu'un pourrait-il m'aider ?

Merci !

Bonjour,

Une fois ta sélection effectuée:

For Each cell In Selection
        cell.Value = cell.Value + 1
Next cell

Bonjour

Une solution sans macro et aussi rapide consite à:

1) écrire 1 dans une cellule queconque de ta feuille,

2) copier cette cellule contenant la valeur 1

3) Sélectionner la plage de cellules à modifier

4) Click droit dans la plage et sélectionner "addition"

Cordialement

Merci à tous les 2.

@RENAUDER

Ton code correspond à une macro (je dois mettre en tête un nom de macro et coller le tout dans un module) ou il faut faire autrement ?

@Amadeus

C'est la manip que je fais actuellement, mais c'est fastidieux à la longue (je fais la même opération plusieurs fois par jour).

Bonjour

Dans un Module associé à un bouton

Sub Ajouter1()
For Each cell In Selection
        cell.Value = cell.Value + 1
Next cell
End sub

Tu sélectionnes ta plage et tu cliques sur le bouton

Cordialement

Super !

Merci merci.