Bonjour,
En VBA
En M:M je voudrais la somme des 7 cellules précédentes tant qu'elles ne sont
pas vides.
J'ai cherché avec ActiveCell Offset mais je ne trouve pas
Quelques Pistes?
Merci
Pascal
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
x = Application.Sum(Range("A8").Offset(-7).Resize(7))
Tu es en Cellule A8 En supposant que tu veux la somme des cellules de A1:A7
Range("A8").Offset(-7) te ramène en cellule A1 et Resize(7) redimensionne la plage de A1 à A7
Application.Sum -> fait la somme de la plage A1:A7 La fonction Somme ne tient pas compte des cellules vides ou contenant du texte si tu y tiens tu peux utiliser activecell comme dans : x = Application.Sum(ActiveCell.Offset(-7).Resize(7))
"PABD" a écrit dans le message de groupe de discussion : # Bonjour, En VBA En M:M je voudrais la somme des 7 cellules précédentes tant qu'elles ne sont pas vides. J'ai cherché avec ActiveCell Offset mais je ne trouve pas Quelques Pistes? Merci Pascal
x = Application.Sum(Range("A8").Offset(-7).Resize(7))
Tu es en Cellule A8
En supposant que tu veux la somme des cellules de A1:A7
Range("A8").Offset(-7) te ramène en cellule A1
et Resize(7) redimensionne la plage de A1 à A7
Application.Sum -> fait la somme de la plage A1:A7
La fonction Somme ne tient pas compte des cellules vides ou contenant
du texte
si tu y tiens tu peux utiliser activecell comme dans :
x = Application.Sum(ActiveCell.Offset(-7).Resize(7))
"PABD" <pabd@nospam.fr> a écrit dans le message de groupe de discussion :
#3hjRHanJHA.4964@TK2MSFTNGP05.phx.gbl...
Bonjour,
En VBA
En M:M je voudrais la somme des 7 cellules précédentes tant qu'elles ne sont
pas vides.
J'ai cherché avec ActiveCell Offset mais je ne trouve pas
Quelques Pistes?
Merci
Pascal
x = Application.Sum(Range("A8").Offset(-7).Resize(7))
Tu es en Cellule A8 En supposant que tu veux la somme des cellules de A1:A7
Range("A8").Offset(-7) te ramène en cellule A1 et Resize(7) redimensionne la plage de A1 à A7
Application.Sum -> fait la somme de la plage A1:A7 La fonction Somme ne tient pas compte des cellules vides ou contenant du texte si tu y tiens tu peux utiliser activecell comme dans : x = Application.Sum(ActiveCell.Offset(-7).Resize(7))
"PABD" a écrit dans le message de groupe de discussion : # Bonjour, En VBA En M:M je voudrais la somme des 7 cellules précédentes tant qu'elles ne sont pas vides. J'ai cherché avec ActiveCell Offset mais je ne trouve pas Quelques Pistes? Merci Pascal
FFO
Salut à toi
Afin de mieux comprendre peux tu nous donner un exemple
Merci
"PABD" wrote:
Bonjour, En VBA En M:M je voudrais la somme des 7 cellules précédentes tant qu'elles ne sont pas vides. J'ai cherché avec ActiveCell Offset mais je ne trouve pas Quelques Pistes? Merci Pascal
Salut à toi
Afin de mieux comprendre peux tu nous donner un exemple
Merci
"PABD" wrote:
Bonjour,
En VBA
En M:M je voudrais la somme des 7 cellules précédentes tant qu'elles ne sont
pas vides.
J'ai cherché avec ActiveCell Offset mais je ne trouve pas
Quelques Pistes?
Merci
Pascal
Afin de mieux comprendre peux tu nous donner un exemple
Merci
"PABD" wrote:
Bonjour, En VBA En M:M je voudrais la somme des 7 cellules précédentes tant qu'elles ne sont pas vides. J'ai cherché avec ActiveCell Offset mais je ne trouve pas Quelques Pistes? Merci Pascal
PABD
Merci, Je tentais cela: ActiveCell.Offset(0, 12).Select .Offset (-7) .Application.Sum(ActiveCell).Offset(-7).Resize (7)
"MichDenis" a écrit dans le message de news:
x = Application.Sum(Range("A8").Offset(-7).Resize(7))
Tu es en Cellule A8 En supposant que tu veux la somme des cellules de A1:A7
Range("A8").Offset(-7) te ramène en cellule A1 et Resize(7) redimensionne la plage de A1 à A7
Application.Sum -> fait la somme de la plage A1:A7 La fonction Somme ne tient pas compte des cellules vides ou contenant du texte si tu y tiens tu peux utiliser activecell comme dans : x = Application.Sum(ActiveCell.Offset(-7).Resize(7))
"PABD" a écrit dans le message de groupe de discussion : # Bonjour, En VBA En M:M je voudrais la somme des 7 cellules précédentes tant qu'elles ne sont pas vides. J'ai cherché avec ActiveCell Offset mais je ne trouve pas Quelques Pistes? Merci Pascal
Merci,
Je tentais cela:
ActiveCell.Offset(0, 12).Select
.Offset (-7)
.Application.Sum(ActiveCell).Offset(-7).Resize (7)
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
AD957729-C21B-4CFB-A845-DB8AF80E32FC@microsoft.com...
x = Application.Sum(Range("A8").Offset(-7).Resize(7))
Tu es en Cellule A8
En supposant que tu veux la somme des cellules de A1:A7
Range("A8").Offset(-7) te ramène en cellule A1
et Resize(7) redimensionne la plage de A1 à A7
Application.Sum -> fait la somme de la plage A1:A7
La fonction Somme ne tient pas compte des cellules vides ou contenant
du texte
si tu y tiens tu peux utiliser activecell comme dans :
x = Application.Sum(ActiveCell.Offset(-7).Resize(7))
"PABD" <pabd@nospam.fr> a écrit dans le message de groupe de discussion :
#3hjRHanJHA.4964@TK2MSFTNGP05.phx.gbl...
Bonjour,
En VBA
En M:M je voudrais la somme des 7 cellules précédentes tant qu'elles ne
sont
pas vides.
J'ai cherché avec ActiveCell Offset mais je ne trouve pas
Quelques Pistes?
Merci
Pascal
Merci, Je tentais cela: ActiveCell.Offset(0, 12).Select .Offset (-7) .Application.Sum(ActiveCell).Offset(-7).Resize (7)
"MichDenis" a écrit dans le message de news:
x = Application.Sum(Range("A8").Offset(-7).Resize(7))
Tu es en Cellule A8 En supposant que tu veux la somme des cellules de A1:A7
Range("A8").Offset(-7) te ramène en cellule A1 et Resize(7) redimensionne la plage de A1 à A7
Application.Sum -> fait la somme de la plage A1:A7 La fonction Somme ne tient pas compte des cellules vides ou contenant du texte si tu y tiens tu peux utiliser activecell comme dans : x = Application.Sum(ActiveCell.Offset(-7).Resize(7))
"PABD" a écrit dans le message de groupe de discussion : # Bonjour, En VBA En M:M je voudrais la somme des 7 cellules précédentes tant qu'elles ne sont pas vides. J'ai cherché avec ActiveCell Offset mais je ne trouve pas Quelques Pistes? Merci Pascal
