OVH Cloud OVH Cloud

Addtionner des cellules

5 réponses
Avatar
François
Bonjour,

De façon il faut écrire le code pour additionner des cellules avec Activell
?

J'ai essayé différentes variantes de cette ligne sans succès :

mavar1 = (ActiveCell.Offset.Value(0, -3) - ActiveCell.Offset.Value(-1,
0))

Quelqu'un aurait la solution ?

Merci.

5 réponses

Avatar
Nicolas B.
Salut François,

mavar1 = ActiveCell.Offset(0, -3).Value - ActiveCell.Offset(-1, 0).Value

Les arguments de la fonction Offset (comme pour toute fonction) doivent
être écrits juste après le nom "Offset", et pas après Value.


A+
Nicolas B.

Bonjour,

De façon il faut écrire le code pour additionner des cellules avec Activell
?

J'ai essayé différentes variantes de cette ligne sans succès :

mavar1 = (ActiveCell.Offset.Value(0, -3) - ActiveCell.Offset.Value(-1,
0))

Quelqu'un aurait la solution ?

Merci.




Avatar
Jacky
Bonjour François
Je ne pense pas que cela soit une bonne méthode, mais pour rester dans cette
façon de faire la syntaxe serait:

mavar1 = ActiveCell.Offset(0, -3) - ActiveCell.Offset(-1, 0)
et pour voir:
MsgBox mavar1

Salutations
JJ

"François" a écrit dans le message de
news:eHZPe.62245$
Bonjour,

De façon il faut écrire le code pour additionner des cellules avec
Activell

?

J'ai essayé différentes variantes de cette ligne sans succès :

mavar1 = (ActiveCell.Offset.Value(0, -3) - ActiveCell.Offset.Value(-1,
0))

Quelqu'un aurait la solution ?

Merci.




Avatar
François
Bonjour Nicolas B., Jacky

J'ai essayé les deux méthodes proposées et j'ai l'erreur 1004 (Erreur
définie par l'application ou par l'objet.

Voici les lignes de code :

mavar1 = ActiveCell.Offset(0, -3).Value - ActiveCell.Offset(-1, 0).Value
mavar2 = ActiveCell.Offset(1, -3).Value + ActiveCell.Offset(0, -3).Value -
ActiveCell.Offset(-1, 0).Value
mavar3 = ActiveCell.Offset(2, -3).Value + ActiveCell.Offset(1, -3).Value +
ActiveCell.Offset(0, -3).Value - ActiveCell.Offset(-1, 0).Value

Merci


"François" a écrit dans le message de news:
eHZPe.62245$
Bonjour,

De façon il faut écrire le code pour additionner des cellules avec
Activell ?

J'ai essayé différentes variantes de cette ligne sans succès :

mavar1 = (ActiveCell.Offset.Value(0, -3) - ActiveCell.Offset.Value(-1,
0))

Quelqu'un aurait la solution ?

Merci.



Avatar
Jacky
Re...
Quand je disais:
Je ne pense pas que cela soit une bonne méthode........
Tu en as provoqué la preuve......

Selon l'endroit ou se trouve la cellule active(ActiveCell), ton code essaye
d'écrire dans une cellule qui n'existe pas, d'ou l'erreur 1004.
Essaye:
MsgBox ActiveCell.Address
MsgBox ActiveCell.Offset(0, -3).Address
MsgBox ActiveCell.Offset(-1, 0).Address
MsgBox ActiveCell.Offset(1, -3).Address
MsgBox ActiveCell.Offset(2, -3).Address

Salutations
JJ

"François" a écrit dans le message de
news:9t_Pe.63820$
Bonjour Nicolas B., Jacky

J'ai essayé les deux méthodes proposées et j'ai l'erreur 1004 (Erreur
définie par l'application ou par l'objet.

Voici les lignes de code :

mavar1 = ActiveCell.Offset(0, -3).Value - ActiveCell.Offset(-1, 0).Value
mavar2 = ActiveCell.Offset(1, -3).Value + ActiveCell.Offset(0, -3).Value -
ActiveCell.Offset(-1, 0).Value
mavar3 = ActiveCell.Offset(2, -3).Value + ActiveCell.Offset(1, -3).Value +
ActiveCell.Offset(0, -3).Value - ActiveCell.Offset(-1, 0).Value

Merci


"François" a écrit dans le message de news:
eHZPe.62245$
Bonjour,

De façon il faut écrire le code pour additionner des cellules avec
Activell ?

J'ai essayé différentes variantes de cette ligne sans succès :

mavar1 = (ActiveCell.Offset.Value(0, -3) -
ActiveCell.Offset.Value(-1,


0))

Quelqu'un aurait la solution ?

Merci.







Avatar
Jacky
Humm
Il faut lire:
Selon l'endroit ou se trouve la cellule active(ActiveCell), ton code essaye
de lire une donnée dans une cellule qui n'existe pas, d'ou l'erreur 1004.

JJ

"Jacky" a écrit dans le message de
news:
Re...
Quand je disais:
Je ne pense pas que cela soit une bonne méthode........
Tu en as provoqué la preuve......

Selon l'endroit ou se trouve la cellule active(ActiveCell), ton code
essaye

d'écrire dans une cellule qui n'existe pas, d'ou l'erreur 1004.
Essaye:
MsgBox ActiveCell.Address
MsgBox ActiveCell.Offset(0, -3).Address
MsgBox ActiveCell.Offset(-1, 0).Address
MsgBox ActiveCell.Offset(1, -3).Address
MsgBox ActiveCell.Offset(2, -3).Address

Salutations
JJ

"François" a écrit dans le message de
news:9t_Pe.63820$
Bonjour Nicolas B., Jacky

J'ai essayé les deux méthodes proposées et j'ai l'erreur 1004 (Erreur
définie par l'application ou par l'objet.

Voici les lignes de code :

mavar1 = ActiveCell.Offset(0, -3).Value - ActiveCell.Offset(-1, 0).Value
mavar2 = ActiveCell.Offset(1, -3).Value +
ActiveCell.Offset(0, -3).Value -


ActiveCell.Offset(-1, 0).Value
mavar3 = ActiveCell.Offset(2, -3).Value + ActiveCell.Offset(1, -3).Value
+


ActiveCell.Offset(0, -3).Value - ActiveCell.Offset(-1, 0).Value

Merci


"François" a écrit dans le message de news:
eHZPe.62245$
Bonjour,

De façon il faut écrire le code pour additionner des cellules avec
Activell ?

J'ai essayé différentes variantes de cette ligne sans succès :

mavar1 = (ActiveCell.Offset.Value(0, -3) -
ActiveCell.Offset.Value(-1,


0))

Quelqu'un aurait la solution ?

Merci.