Additionner une ligne sur deux à l’aide d’une macro avec arr
Bonjour,
Je débute avec les macros et j'avoue ne pas être très bon... voire même très mauvais...
Je cherche à faire la somme en bas de chaque colonne pour I ; J ; L & M
Je souhaite que l’addition se fasse une ligne sur deux, soit I7 ; I9 etc. et qu’il s’arrête à la cellule I37 dans le modèle joint (dernière cellule où le total est demandée).
Je souhaite également que l’addition se fasse une ligne sur deux, soit I8 ; I10 etc. et qu’il s’arrête à la cellule I38 dans le modèle joint (dernière cellule où le total est demandée).
Les valeurs I39 et I40 (numéro de ligne) devrait changer en fonction des lignes ajoutées. Range = colonne entière avec stop avant la cellule résultat.
Après je pourrais appliquer la macro aux autres colonnes concernées
J’ai compris que je devais faire une boucle (il doit y avoir un stop) par contre étant novice j’avoue souffrir allégrement…
J’imagine que pour la plupart des personnes cela peut paraître facile… mais pas pour moi (vraiment pas)
Je vous remercie d’avance pour votre aide et joint le fichier pour être un peu plus clair…
FBF
avec ca tu change une ligne sur 2 la couleur du texte en rouge. Je te laisse adapter
Bonjour,
Merci pour la réponse.
Malheureusement je n'arrive pas à exploiter cette réponse. Désolé mais je suis très novice...
Je cherche à additionner et que l'adition se stop avant la cellule de la réponse.
Merci beaucoup pour la réponse très rapide.
FBF
Je cherche à additionner et que l'adition se stop avant la cellule de la réponse.
le nombre de ligne est il variable?
Sub Compteur()
cumul = 0 'valeur du cumul au depart
For i = 7 To 38 Step 2'de i=7a38 (nombre de ligne du tableau) donc ligne 7 a 38 en sautant une sur 2(step)
Cells(i, "I").Font.ColorIndex = 3 'cellule(de ligne i, de colonne "I") couleur de texte rouge
cumul = cumul + Cells(i, "I").Value'cumul des valeur des cellules rouges
Next i'ligne suivante
MsgBox cumul'message avec le cumul de toutes les lignes
End Subil te reste a mettre cumul dans la bonne case
Bonsoir,
je ne sais pas si j'ai bien compris, mais si tu remplace dans le code: 38 par le dernier ligne - 2,
meme si ton tableau evolu tu additionneras toutes les valeurs...
C'est ça ton soucis ??
Bonne soirée
C'est ça ton soucis ??
Pas le mien mais j'ignore si je dois le faire...
si tu remplace dans le code: 38 par le dernier ligne - 2
et y'a des lignes vides aussi et comme j'apprends aussi, je tatonne encore bcp.
Je ne sais pas si cela repond aux questions,
peux importe le nombre de data, la macro s'adapte
Sub Compteur()
Dim derligne As Integer
derligne = Range("A65536").End(xlUp).Row - 1 'cherche la ligne da la colonne A qui est juste avant 'Total"
cumul = 0
For i = 7 To derligne Step 2 ' on additionne toutes les lignes impaires
Cells(i, "I").Font.ColorIndex = 3
cumul = cumul + Cells(i, "I").Value
Next
Range("I" & i).Value = cumul
End Subvoila, à essayer ...
Merci beaucoup "Gillae" et "zarik",
En fait le début c'est exactement cela. car je veux m'arrêter à la dernière ligne.
[b]Sub Compteur()
Dim derligne As Integer
derligne = Range("A65536").End(xlUp).Row - 1
cumul = 0
For i = 7 To derligne Step 2 ' on additionne toutes les lignes impaires
Ça c'est OK car je commence à 7 pour calculer tous les deux lignes jusqu’à la derligne
Pour la suite la couleur m'est pas utile, uniquement la somme des valeurs
Cells(i, "I").Font.ColorIndex = 3
cumul = cumul + Cells(i, "I").Value
Next
Range("I" & i).Value = cumul
End Sub
Merci encore pour votre aide.
FBF
uniquement la somme des valeurs
le calcul c'est le cumul, faut conserver "cumul = cumul + Cells(i, "I").Value" dans la boucle for
Merci cela fonctionne pour la colonne I
1) Comment faire pour qu'il sélectionne la colonne ou l'addition s'effectue?
Ce qui évite de faire une macro supplémentaire par colonne..
2) Pour la somme des pourcentages, j'ai recopié et adapté la macro (Sheet1 - fichier joint) mais j'aurai besoin que le résultat soit divisé par le nombre de cellules additionnées. Afin d'obtenir la moyenne en %. Je ne sais pas si je dois rajouter un count ou un average quelque part...
Encore Merci!
FBF
1) Comment faire pour qu'il sélectionne la colonne ou l'addition s'effectue?
Sub Compteur()
Dim derligne As Integer
derligne = Range("A65536").End(xlUp).Row - 1 'cherche la ligne da la colonne A qui est juste avant 'Total"
cumul = 0
cumul2=0'autant de cumul que de colonne...
For i = 7 To derligne Step 2 ' on additionne toutes les lignes impaires
cumul = cumul + Cells(i, "I").Value
cumul2=cumul2+cells(i,"J").value 'pour la colonne j...
Next ipour les autres colonnes, je te laisse t'entrainer
2) Pour la somme des pourcentages
Sub CompteurPourcent()
Dim derligne As Integer
derligne = Range("A65536").End(xlUp).Row - 1 'cherche la ligne da la colonne A qui est juste avant 'Total"
cumul = 0
nbcell=0
For i = 8 To derligne Step 2 ' on additionne toutes les lignes impaires
cumul = cumul + Cells(i, "I").Value
nbcell=nbcell+1
Next
Range("I" & i).Value = cumul/nbcell
End Subca dois etre ca
Je dois rajouter les
Range("J" & i).Value = cumul1
Etc..
For i = 7 To derligne Step 2 ' on additionne toutes les lignes impaires
cumul = cumul + Cells(i, "I").Value
'cumul2 = cumul2 + Cells(i, "J").Value
'cumul3 = cumul3 + Cells(i, "L").Value
'cumul4 = cumul4 + Cells(i, "M").Value
Next i
Range("I" & i).Value = cumul
End Sub
Ok comme cela ça marche
va falloir faire la même chose pour les %...??
Sub Compteur()
Dim derligne As Integer
derligne = Range("A65536").End(xlUp).Row - 1 'cherche la ligne da la colonne A qui est juste avant 'Total"
cumul = 0
cumul2 = 0
cumul3 = 0
cumul4 = 0
For i = 7 To derligne Step 2 ' on additionne toutes les lignes impaires
cumul = cumul + Cells(i, "I").Value
cumul2 = cumul2 + Cells(i, "J").Value
cumul3 = cumul3 + Cells(i, "L").Value
cumul4 = cumul4 + Cells(i, "M").Value
Next i
Range("I" & i).Value = cumul
Range("J" & i).Value = cumul2
Range("L" & i).Value = cumul3
Range("M" & i).Value = cumul4
End Sub
Je dois rajouter les Range("J" & i).Value = cumul2
oui c'est ce qui inscrit le resultat de cumul dans la cellule
va falloir faire la même chose pour les %...??
ouaip avec la particularité du comptage de cellule(nbcell)
Ok tout roule!!!
Un GRAND merci "Zarik"!!! pour ton aide.
Quand je vois le chemin qu'il me reste à parcourir... de quoi prendre peur!!!
Mais bon, on continue
Excellente soirée et encore merci!