> Tous les forums > Forum Bureautique
 Somme une cellule sur 3Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
fth
  Posté le 29/01/2008 @ 18:50 
Aller en bas de la page 
Petit astucien

Bonjour,

Je bloque sur une ligne de mon code pour effectuer la somme d'une série de cellules sur une ligne

Par exemple, pour la somme de toutes les cellules sur la ligne 5 j'écris :

Cells(5, 260).End(xlToLeft).Offset(0, 2) = WorksheetFunction.Sum(Range(Cells(5, 1).Address & ":" & Cells(5, 260).End(xlToLeft).Address))

Mais...je ne souhaiterais faire la somme que d'une cellule sur 3, exemple si j'ai 12 colonnes (le nombre de colonne est aléatoire mais toujours multiple de 3), faire la somme des cellules (A5;D5;G5;J5)

J'ai essayé avec Step 3 mais soit ça ne marche pas avec ce genre de fonction, soit je l'intègre mal.

Un peu d'aide serait la bienvenue, merci d'avance

Publicité
gilbert_rgi
 Posté le 29/01/2008 à 20:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonsoir

simplement

Sub fth()
col = Cells(5, 255).End(xlToLeft).Column
For i = 1 To col Step 3
laval = Cells(5, i).Value + laval
Next
Cells(5, 255).End(xlToLeft).Offset(0, 2) = laval

End Sub

Cdlt

RGI

fth
 Posté le 29/01/2008 à 20:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir Gilbert,

Je me doutais bien que c'était simple didju , j'avais bien essayé avec une boucle mais je m'y étais emmêlé les pieds en omettant d'additionner la valeur des cellules dans une variable.

Merci pour le coup de main

@+

efi64
 Posté le 20/09/2009 à 17:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir à tous.

Quelqu'un(e) !!peut-il expliquer un peu cette macro ????

Merci d'avance.

A+

gilbert_rgi
 Posté le 20/09/2009 à 17:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

je suppose que c'est de la macro qui est sur le post depuis 2008 ????

Sub fth() ouverture de la procédure
col = Cells(5, 255).End(xlToLeft).Column col prend le numéro de la colonne non vide de la cinquième ligne
For i = 1 To col Step 3 Boucle allant de 1 au n° de col au pas de 3
laval = Cells(5, i).Value + laval variable prenant la valeur des cellules ayant i comme n° de colonne (addition)
Next fin des boucles
Cells(5, 255).End(xlToLeft).Offset(0, 2) = laval la cellule ayant le n° de la colonne non vide +2 prend la valeur de la variable

End Sub fermeture de la procédure

si tu as la version 2007 exemple


Salutations

Gilbert_RGI



Modifié par gilbert_rgi le 20/09/2009 18:12
efi64
 Posté le 20/09/2009 à 19:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Ouaouh !!!!!!!!!!!!!!!

Ca c'est de la réactivité !!!!

Ben oui,je déterre le sujet.

Je regarde ça ce soir...(C'est l'apéro !!!!!!!!)



Modifié par efi64 le 20/09/2009 19:06
efi64
 Posté le 20/09/2009 à 22:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Hum,Huumm !!!

Le plus simple est que j'explique mon problème !

A la cellule A,je voudrais la somme des cellules C,E,G,I,......soit une cellule sur 2.

A la cellule B,la somme des cellules D,F,H,......

Ceci pour toutes les lignes de mon tableau !!!

Simple non ??!!!!

A+

ferrand
 Posté le 20/09/2009 à 23:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Tout à fait simple . Tu as presque la solution définitive avec l'exemple de gilbert: adapter la boucle pour faire ta double addition qui servira tes colonnes A et B, et insérer cette boucle dans une autre boucle qui la fera s'appliquer ligne par ligne à ton tableau.

Mytå
 Posté le 21/09/2009 à 00:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut le forum

Avec une petite fonction

Public Function SommeColonnes(Plage As Range, Saut As Byte)
Application.Volatile
Dim Tablo As Variant, Somme As Currency, I As Byte
Somme = 0: Tablo = Plage
For I = 1 To UBound(Tablo, 2) Step Saut
Somme = Somme + Tablo(1, I)
Next I
SommeColonnes = Somme
End Function

A utiliser dans un cellule

=SommeColonnes(C1:M1;2) pour additionner une cellule sur deux

=SommeColonnes(C1:M1;3) pour additionner une cellule sur trois

Mytå

Publicité
gilbert_rgi
 Posté le 21/09/2009 à 09:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour à Tous

fichier exemple 2

Salutations

Gilbert_RGI



Modifié par gilbert_rgi le 21/09/2009 10:08
efi64
 Posté le 21/09/2009 à 14:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à tous.

Vous etes géniaux !!!!!!!

Oui,oui,pas de modestie mal placée !!!

Je vais utiliser dans un premier temps la solution de Myta,puis développer après avec les macros.

Merci encore.

A+

Efi

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
35,99 €Souris sans fil Logitech G305 à 35,99 €
Valable jusqu'au 28 Février

Amazon fait une belle promotion sur la nouvelle souris sans fil Logitech G G305 qui passe à 35,99 € livrée gratuitement alors qu'on la trouve ailleurs autour de 50 €. Cette souris vous offre des performances sans fil de niveau professionnel et une fiabilité inégalée surpassant même certaines des meilleures souris gaming filaire. Dotée du capteur HERO, vous allez connaitre une précision exceptionnelle grâce à sa sensibilité pouvant aller jusqu'à 12 000 dpi.


> Voir l'offre
289,59 €Disque dur externe Western Digital My Book Duo 12 To USB 3.1 à 289,59 €
Valable jusqu'au 25 Février

Amazon propose actuellement le disque dur externe Western Digital My Book 12 To USB 3.1 à 289,59 livré gratuitement. On le trouve ailleurs autour à partir de 380 €. Le My Book Duo est une solution de stockage RAID de bureau d’une très grande capacité, idéale pour stocker des photos, des vidéos, des documents et de la musique. Vous pourrez l'utiliser en mode RAID 0 pour des perfomances ultrarapides (vitesse de lecture séquentielle pouvant atteindre 360 Mo/s) ou bien en mode RAID 1 pour bénéficier d’une redondance et mettre vos données en miroir sur les disques durs installés dans le boîtier. Ce dernier comporte en effet 2 disques durs Western Digital RED de 6 To adaptés aux NAS et qui peuvent être récupérés pour être utilisés ailleurs. Sachant qu'un disque dur RED 6 To coûte au moins 200 €, l'achat du Western Digital My Book Duo 12 To peut aussi être une solution économique si vous avez besoin de 2 disques durs 6 To pour votre NAS.


> Voir l'offre
599,99 €Portable 15,6 pouces HP (FullHD, Core i5, 8 Go, SSD 128 Go + DD 1 To, GTX 1050 3 Go) à 599,99 €
Valable jusqu'au 26 Février

Cdiscount fait une belle promotion sur l'ordinateur portable HP Pavilion 15-bc511nf qui passe à 599,99 € livré gratuirement alors qu'on le trouve ailleurs autour de 700 €. Ce portable possède un écran 15,6 pouces HD Full HD (1920x1080), un processeur Intel Core i5 9300H, 8 Go de RAM, un SSD de 128 Go, un disque dur de 1 to et une carte graphique dédiée GeForce GTX 1050 3 Go. Le tout tourne sous Windows 10.


> Voir l'offre

Sujets relatifs
faire la somme de cellule
une cellule se colore pour indiquer qu'une somme e
=somme.si date dans la cellule
problème avec SUMIF (somme si) & cellule variable
Avoir une somme de cellule par couleur
Autoriser/forcer le débordement à l'affichage d'une cellule
copier ligne si cellule vide
export cellule vers image
Effacer cellule par rapport a la valeur d'une autre
Recopie cellule par macro
Plus de sujets relatifs à Somme une cellule sur 3
 > Tous les forums > Forum Bureautique