XL 2016 copie valeurs par VBA

[mcj1997]

Bonjour,

J’utilise un ancien fichier avec la macro suivante :

Derlig = Worksheets("maison").Range("D" & Rows.Count).End(xlUp).Row + 1

Worksheets("maison").Range("D" & Derlig) = Worksheets("statistique").[B4].Value



Cette macro me permet de rapporter sur la feuille maison colonne D (dernière ligne dispo) la valeur en B4 de la feuille statistique.



Ma demande : au lieu de renvoyer la valeur B4, je souhaite renvoyer la somme de B4 + B5 toujours de la feuille statistique vers la feuille maison

Merci d’avance,

 

[sylvanu]

Bonjour Mcj,
Votre titre n'est guère évocateur.
Essayez :

Worksheets("maison").Range("D" & Derlig) = Worksheets("statistique").[B4]+Worksheets("statistique").[B5]
ou encore
Sheets("maison").Range("D" & Derlig) =Application.Sum(Sheets("statistique").[B4:B5])

 

[Lolote83]

Bonjour
Peut être en faisant soit :
- La somme sur la feuille Statistique et y faire appel
Exemple somme en B10 = B4+B5

Worksheets("maison").Range("D" & Derlig) = Worksheets("statistique").[B10].Value

- La somme directement via le code

Worksheets("maison").Range("D" & Derlig) = Worksheets("statistique").[B4].Value + Worksheets("statistique").[B5].Value

Cordialement
Lolote83

 

[mcj1997]

Bonjour Mcj,
Votre titre n'est guère évocateur.
Essayez :

Worksheets("maison").Range("D" & Derlig) = Worksheets("statistique").[B4]+Worksheets("statistique").[B5]
ou encore
Sheets("maison").Range("D" & Derlig) =Application.Sum(Sheets("statistique").[B4:B5])

Merci je vais tester

 

[mcj1997]

Bonjour
Peut être en faisant soit :
- La somme sur la feuille Statistique et y faire appel
Exemple somme en B10 = B4+B5

Worksheets("maison").Range("D" & Derlig) = Worksheets("statistique").[B10].Value

- La somme directement via le code

Worksheets("maison").Range("D" & Derlig) = Worksheets("statistique").[B4].Value + Worksheets("statistique").[B5].Value

Cordialement
Lolote83

Merci

 

[mcj1997]

Bonjour
Peut être en faisant soit :
- La somme sur la feuille Statistique et y faire appel
Exemple somme en B10 = B4+B5

Worksheets("maison").Range("D" & Derlig) = Worksheets("statistique").[B10].Value

- La somme directement via le code

Worksheets("maison").Range("D" & Derlig) = Worksheets("statistique").[B4].Value + Worksheets("statistique").[B5].Value

Cordialement
Lolote83

Merci