Gbinforme,

j'ai un cumul pour 2005 dans une seule cellule et j'aimerai que dans une seule cellule à côté apparaisse le cumul pour 2004 concernant les mois saisis. Cette cellule se mettant à jour chaque mois sans conserver d'historique et dans un soucis d'avoir un tableau épuré.

Ex Février 2005

Janv Fév Mars ...Déc Tot
2004 50 124 130 380 1980 rappel période 2004
2005 120 190 vide... vide 310 174

Ex Mars 2005

Janv Fév Mars ...Déc Tot
2004 50 124 130 380 1980 rappel période 2004
2005 120 190 224... vide 534 304




J'espère que ces précisions t'auront éclairer.

Merci

Kaz

Bonjour Kaz,

La petite macro ci-dessous, à mettre dans le code de ta feuille, devrait faire ce que tu veux.
J'ai appelé "EnCours" la plage des 12 cellules des valeurs mensuelles de 2005, et "Partiel" la cellule qui reçoit le cumul partiel de l'année précédente.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Dim Lig     As Integer
  Dim Col     As Integer
  Dim Tot     As Double

  Lig = Range("EnCours").Row
  Col = Range("EnCours").Column
  Tot = 0

  Do While Cells(Lig, Col).Value <> ""
    Tot = Tot + Cells(Lig - 1, Col).Value
    Col = Col + 1
  Loop
  
  Range("Partiel").Value = Tot

End Sub

Re kaz,

J'ai supposé que tu as un nombre indéterminé de structures identiques, dans une même feuille.
La nouvelle macro n'utilise plus les noms de plages de cellules.
Pour la paramétrer, il faut que tu indiques, dans les tableaux Array de la macro, les coordonnées de chaque cellule "Janvier" de l'année en cours.

Par exemple, si tu as 3 structures dans ta feuille, donc 3 lignes "Année 2005", dont les cellules "Janvier" se trouvent en : A2, C13, F21, tu dois écrire :
Lignes = Array(2, 13, 21)
Colonnes = Array(1, 3, 6)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Dim I         As Integer
  Dim Lig       As Integer
  Dim Col       As Integer
  Dim Der       As Integer
  Dim Tot       As Double
  Dim Lignes    As Variant
  Dim Colonnes  As Variant
  
  Lignes = Array(3, 13)   ' placer ici les n° des lignes année en cours
  Colonnes = Array(2, 7)  ' n° de colonnes de "janvier" année en cours
  
  With Application.WorksheetFunction
    For I = 0 To UBound(Lignes)
      Lig = Lignes(I)
      Col = Colonnes(I)
      Der = .Min(Me.Cells(Lig, Col).Offset(0, -1).End(xlToRight).Column, Col + 11)
      Tot = .Sum(Range(Cells(Lig - 1, Col), (Cells(Lig - 1, Der))))
      Me.Cells(Lig, Col).Offset(0, 13).Value = Tot
    Next I
  End With
  
End Sub

J'ai bien compris ton code mais je n'arrive pas à l'adapter dans mon tableau. J'ai plusieurs lignes pour l'array mais qu'une seule colonne et en lançant la macro il m'indique une erreur de compilation.

En effet, pour ne rien compliquer je n'ai qu'une ligne avec les mois et tous mes tableaux sont accolés. Concrêtement, j'ai mon janvier que en C6, février en C7 etc, mes 1eres donnees 2004 sont de C9 à N9 et 2005 de C10 à N10, mes 2e données 2004 de C18 à N18 et 2005 de C19 à N19 et les dernières de C28 à N28 et 2005 de C29 à N29.
Les cellules partielles sont en Q10, Q19 et Q29.

Merci de ton aide et bon week, je ne pourrai pas me connecter avant

Kaz

Bonjour

tu peux tout aussi bien ne fonctionner qu'avec excel.

la cellule qui te donne rappel période 2004 prend la formule :

=SOMME(SI(plage_2005="";0;plage_2004))

en validant avec CTRL + MAJ + ENTREE pour travailler en matriciel
avec 'plage_2005' : tes données complétes 2005
et ''plage_2004' : tes données complétes 2004.

On oublies souvent la puissance des formules matricielles !

bon courage.

toujours zen

Merci à vous deux,

ça marche impec gb, je dormirai moins C.. ce soir

Kaz

Bjr,

je souhaite faire la somme de de cellule comme suite: a12;c12;e12;g12........

par une simple formule

merci d'avance

Bonjour

Pour cumuler toutes les cellules numériques de la ligne 12 tu peux mettre :

=SOMME(A12:IV12)

Bonsoir
comment je peut retirer une somme tout les mois a la meme date sous exel

Bonjour

Pour retirer une somme tous les mois à la même date vas au distributeur c'est plus simple. Le savoir est la seule matière qui s'accroît quand on la partage. (Socrate)

Bonjour et Vive la France!!!!!!!Je suis un grand utilisateur Merci Paris Hiérarchisation et Sommaire automatique dildo. Merci Bocoup!