XL 2010 addition

shinozak

XLDnaute Occasionnel

• 12 Septembre 2021

• #2

Bonjour,
Modifie la cellule A1 par la cellule que tu veux.

VB:

Range("A1")=Range("B6")+Range("H6")+Range("N6")-Range("T6")

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Septembre 2021

• #3

Bonjour @nabilexcel2007 ,

Si la feuille Excel active est la bien la feuille contenant les cellules Excel B6, H6, N6 etT6:

VB:

ETAT = [B6] + [H6] + [N6] - [T6]

Sinon:

VB:

With Sheets("NomOnglet")
   ETAT = .[B6] + .[H6] + .[N6] - .[T6]
End With

Edit: Bonjour @shinozak

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 12 Septembre 2021

• #4

Merci
j'ai mis ça dans un boutton :
Range("y4:y29") = Range("B4:b29") + Range("H4:h29") + Range("N4:n29") - Range("T4:t29")
ça ne marche pas !!!
je dois le mettre dans worksheet !!!!

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Septembre 2021

• #5

Re,

Question mal posée me semble-t-il.
Essayez:

VB:

Range("y4:y29").FormulaR1C1 = "=RC[-23]+RC[-17]+RC[-11]-RC[-5]"

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 12 Septembre 2021

• #6

Oh Merci vous êtes un Ange

 

Vote positif 0 Vote négatif