Somme - condition

Fermé
Maude - 5 févr. 2020 à 21:23
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 - 5 févr. 2020 à 22:24
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


Configuration: Windows / Chrome 79.0.3945.130

1 réponse

via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
Modifié le 5 févr. 2020 à 22:25
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


0