XL 2016 ajouté +1 a une cellule active.

S

soan

XLDnaute Barbatruc

Inactif

• 23 Mai 2021

• #2

Bonjour,

juste une piste :

VB:

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

soan

 

Vote positif 0 Vote négatif

N

nettoyageduperche

XLDnaute Nouveau

• 23 Mai 2021

• #3

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 23 Mai 2021

• #4

@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 :

VB:

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

soan

 

Vote positif 0 Vote négatif

N

nettoyageduperche

XLDnaute Nouveau

• 23 Mai 2021

• #5

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 23 Mai 2021

• #6

@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

 

Vote positif 0 Vote négatif