Somme - condition
Maude
-
via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
dans une colonne nous avons des noms, puis dans l'autre des chiffres,
nous avons plusieurs fois dans la même colonne les mêmes noms, par contre, lorsque le nom se répète deux fois COLLÉ nous aurions aimé avoir la somme de ces chiffes qui y correspondent et avoir seulement un seul chiffre si c'est possible, donc supprimer le doublons collé et avoir la somme de ces chiffres, mais seulement quand ils sont COLLÉ
Par exemple :
Colonne 1 : Colonne 2
Maude 1
Francois 2
Genevieve 2
Maude 3
Maude 3
Francois 2
Francois 2
Donc :
4 pour Francois et
6 pour Maude
dans une colonne nous avons des noms, puis dans l'autre des chiffres,
nous avons plusieurs fois dans la même colonne les mêmes noms, par contre, lorsque le nom se répète deux fois COLLÉ nous aurions aimé avoir la somme de ces chiffes qui y correspondent et avoir seulement un seul chiffre si c'est possible, donc supprimer le doublons collé et avoir la somme de ces chiffres, mais seulement quand ils sont COLLÉ
Par exemple :
Colonne 1 : Colonne 2
Maude 1
Francois 2
Genevieve 2
Maude 3
Maude 3
Francois 2
Francois 2
Donc :
4 pour Francois et
6 pour Maude
Configuration: Windows / Chrome 79.0.3945.130
1 réponse
-
Bonjour Maude
Avec une macro:Sub supp_doublons() ligne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row ' dernière ligne remplie en colonne A For n = ligne To 2 Step -1 ' boucle sur les lignes de puis la dernière jusqu'à ligne 2 If Range("A" & n) = Range("A" & n - 1) Then 'si doublons en col A avec ligne au dessus Range("B" & n - 1) = Range("B" & n - 1) + Range("B" & n) ' addition des 2 valeurs de B - résultat en ligne du dessus Rows(n).EntireRow.Delete ' efface la ligne End If Next End Sub
La macro est faite pour des données en colonnes A et B commençant en ligne 2, à adapter à ton fichier
ALT+F11 pour ouvrir l'éditeur VBA
puis Insertion - Module
Copier et coller la macro dans la page et fermer l'éditeur
pour lancer la macro depuis la page à traiter : Développeur dan le Ruban - Macro - Sélectionner la macro et Exécuter
Cdlmnt
Via
