XL 2016 ajouté +1 a une cellule active.

[nettoyageduperche]

Bonjour,
je souhaite ajouté +1 a la valeur d'une cellule lorsqu'el est activé par (ActiveCell.Offset(0, 15).Range("A1").Select)
Merci pour aide.

 

[soan]

Bonjour,

juste une piste :

With ActiveCell.Offset(, 15)
  .Value = .Value + 1
End With

soan

 

[nettoyageduperche]

Désolé mais cela ne fonctionne pas. j'ai bien 1 mais 5 cellule + loin

 

[soan]

@nettoyageduperche

??? avec .Offset(, 15) ça fait 15 colonnes à droite de la cellule active, pas 5 colonnes à droite.

pour pouvoir t'aider davantage, merci de joindre ton fichier (sans données confidentielles).

---

ou alors, essaye d'abord ceci :

With ActiveCell.Offset(, 10)
  .Value = .Value + 1
End With

soan

 

[nettoyageduperche]

Merci pour ton aide j'ai trouvé
ActiveCell.Offset(0, 15).Range("A1").Value = ActiveCell.Value + 1

 

[soan]

@nettoyageduperche

je ne comprends pas bien pourquoi tu mets .Range("A1").Value !

essaye plutôt ceci : ActiveCell.Offset(, 15) = ActiveCell + 1

ou peut-être : ActiveCell.Offset(, 10) = ActiveCell + 1

soan