Problème Fonction concaténer

**SuperCompote** · 03/08/2016, 17h56

Bonjour,
Dans un premier temps sachez que j'ai fait un peut de recherche (pour ne pas dire pas mal) et je bloque sur la fonction de concaténer des cellules.
Je vous laisse en pièce joint mon fichier de test si vous avez le courage d'y jeter un œil ^^

Pour faire simple il y a la colonne A et B, dans la A une liste de valeur qui peuvent être semblable et dans la colonne B des résultats (semble ou non mais c'est pas ça qui importe).
Le début de ma macro consiste à trier la colonne A pour virer les doublons et du coup je voudrais que les résultats des ces doublons apparaissent dans une même cellule grâce à la fonction concaténer.

Je vous en prie aidez-moi !!!

La biz et bonne journée (ou soirée) ^^

**Redge04** · 03/08/2016, 23h04

Bonsoir,

Alors, premier truc : impossible de charger ton fichier excel. Problème du forum ou du fichier : aucune idée.

Ensuite, que plusieurs cellules ayant la même valeur (à minima en doublon) peuvent être affichés dans une seule avec la fonction "concaténer", seulement dans ce cas, tu auras toutes les valeurs à la suite les unes des autres, pas seulement UNE seule.

Il me semble (mais n'ayant pas vu le fichier excel, ce n'est que supposition) dans ton cas la fonction "concaténer" n'est pas la meilleure à utiliser.

Je pense qu'un mix entre "recherchev" ou "rechercheh" et "nbval" ou "nb.si" seraient plus utiles. En gros, faire rechercher une valeur de la colonne où il pourrait y avoir des doublons, par une formule placée sur la même ligne qui cherche toujours sur la même ligne, la valeur de la colonne "doublon" (je raccourci) dans toute la colonne "doublon". S'il y a beaucoup de valeurs similaires, alors tu affiches la valeur de la case dans la colonne "doublon" dans ta case où il y a la formule en question.

Et encore, ça, ça te donne une information de l’existence d'un doublon sur chaque ligne... et pas UNE seule information pour toute la colonne des "doublons" possibles.

Mais ça peut être un début de recherche pour tomber enfin sur LA bonne formule.

Au pire, si on ne peut télécharger ton fichier excel, pourrais-tu insérer ici une image de ton tableau excel, qu'on puisse voir des valeurs et les placements des cellules ?

En espérant t'avoir aidé quand même.

A+

Rajout : ayant relu ton post d'origine, il m'est venu une idée : Excel (il faut quand même vérifier la version que tu as) sait déjà supprimer les doublons, enlever les lignes concernées par ces doublons, selon ce que tu sélectionne dans le tableau. La fonction est dans le ruban, onglet "Données", "supprimer les doublons".

Teste-le sur un tableau à part, voir comment ça réagit en fonction de ce que tu sélectionnes. A++

**SuperCompote** · 04/08/2016, 08h45

Bonjour,
Je suis heureux de voir un réponse si rapide.
Les doublons n'est pas le problème, j'arrive à les gérer, j'essaye de remettre le fichier sinon je mettrais une capture d'écran.

**Toine-45** · 06/08/2016, 10h06

Bonjour

J'utilise la macro ci-dessour pour une utilisation apparament similaire à la tienne
Contraite : il faut d'abord trier par rapport aux références à comparer
Il te faudra ensuite commenter ou décommenter les lignes de la macro en fonction des colonnes à concaténer ou non.

(Dans cette configuration, elle concatène les colonnes H,I,J,K,L,M.

(Si j'ai bien compris ton besoin)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Sub supprimeDoublons()
'Pour les inventaires
'la macro qui suit permet de supprimer les doublon de la colonne A, d'aditionner les quantitées et les montants
'et de supprimer les cellules vides des colonne A à L (ou les lignes entières)
 
' les références à comparer doivent se suivre.
' Commencer par trier par la colonne dont vous voulez expurger les doublons (code article)
'puis vérifiez que les colones G à M peuvent s'additionner (chiffres).
'libérer les formules correspondantes aux colones désirées, ou vérouiller celles inutiles grâce à l'apostrophe '.
 
 
  'Recherche de la dernière ligne de la colonne A
  derli = Columns(1).Find("*", , , , , xlPrevious).Row
  ' boucle qui commence à la fin à cause des suppression de cellules
  For i = derli To 2 Step -1
    'Si la valeur de la cellule au dessus est égale à la valeur de la cellule (colonne A) alors
    If Cells(i, 1) = Cells(i - 1, 1) Then
 
    'on additionne les deux montants dans la cellule "A au-dessus"
    'Cells(i - 1, 1) = Cells(i - 1, 1) + Cells(i, 1)
 
    'on additionne les deux montants dans la cellule "B au-dessus"
    'Cells(i - 1, 2) = Cells(i - 1, 2) + Cells(i, 2)
 
    'on additionne les deux montants dans la cellule "C au-dessus"
    'Cells(i - 1, 3) = Cells(i - 1, 3) + Cells(i, 3)
 
    'on additionne les deux montants dans la cellule "D au-dessus"
    'Cells(i - 1, 4) = Cells(i - 1, 4) + Cells(i, 4)
 
    'on additionne les deux montants dans la cellule "E au-dessus"
    'Cells(i - 1, 5) = Cells(i - 1, 5) + Cells(i, 5)
 
    'on additionne les deux montants dans la cellule "F au-dessus"
    'Cells(i - 1, 6) = Cells(i - 1, 6) + Cells(i, 6)
 
      'on additionne les deux montants dans la cellule "G au-dessus"
      'Cells(i - 1, 7) = Cells(i - 1, 7) + Cells(i, 7)
 
      'on additionne les deux montants dans la cellule "H au-dessus"
      Cells(i - 1, 8) = Cells(i - 1, 8) + Cells(i, 8)
 
      'on additionne les deux montants dans la cellule "I au-dessus"
      Cells(i - 1, 9) = Cells(i - 1, 9) + Cells(i, 9)
 
      'on additionne les deux montants dans la cellule "J au-dessus"
      Cells(i - 1, 10) = Cells(i - 1, 10) + Cells(i, 10)
 
      'on additionne les deux montants dans la cellule "K au-dessus"
      Cells(i - 1, 11) = Cells(i - 1, 11) + Cells(i, 11)
 
      'on additionne les deux montants dans la cellule "L au-dessus"
      Cells(i - 1, 12) = Cells(i - 1, 12) + Cells(i, 12)
 
      'on additionne les deux montants dans la cellule "M au-dessus"
      Cells(i - 1, 13) = Cells(i - 1, 13) + Cells(i, 13)
 
      'on additionne les deux montants dans la cellule "N au-dessus"
      'Cells(i - 1, 14) = Cells(i - 1, 14) + Cells(i, 14)
 
      'on additionne les deux montants dans la cellule "O au-dessus"
      'Cells(i - 1, 15) = Cells(i - 1, 15) + Cells(i, 15)
 
      'on additionne les deux montants dans la cellule "P au-dessus"
      'Cells(i - 1, 16) = Cells(i - 1, 16) + Cells(i, 16)
 
      'on additionne les deux montants dans la cellule "Q au-dessus"
      'Cells(i - 1, 17) = Cells(i - 1, 17) + Cells(i, 17)
 
      'on additionne les deux montants dans la cellule "R au-dessus"
      'Cells(i - 1, 18) = Cells(i - 1, 18) + Cells(i, 18)
 
      'on supprime les cellules A à R
        'Range(Cells(I, 1), Cells(I, 18)).Delete Shift:=xlUp
 
           'on supprime les lignes en doublon
                Range(Cells(i, 1), Cells(i, 14)).EntireRow.Delete
    End If
  Next
End Sub

Bonne journée à tous