Discussion :

[beautiful soul]

Bonjour
j'ai un problème d'affichage
par exemple:
j'ai un tableau excel:

nom reference
ali 100
ali 103
ali 200
moh 050
moh 090
moh 102
selma 012
selma 090
yanis 080
je veux avoir ce resultat dans l'etat de sortie :
ali 100
103
200
moh 050
090
102
selma 012
090
yanis 080
j'atends votre repense ....merci

[Jean-Philippe André]

salut,

j'ai du mal à saisr si tu veux concaténer (comme l'indique ton titre de fil) ou fusionner les cellules (comme l'indique plutôt ton exemple).

Peux-tu nous en dire un peu plus, ce afin que nous puissions te donner les pistes les plus adaptées à ta problématique

[78chris]

Bonjour

Comme jpcheck je comprends plutôt un masquage des nom répétés.

Plutôt que les fusions, sources de 1000 et 1 emm...ments, tu peux utiliser une mise en forme conditionnelle :

Sélectionne toutes les cellules de la colonne Nom (sauf le titre)
exemple A2:A20
et mets une MFC conditionnelle avec comme formule :

Code :

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

=A1

et comme format un couleur de police identique à la couleur de fond des cellules.

On ne verra pas la répétition des noms mais tu garderas possibilité de trier, filtrer, etc

[Philippe Tulliez]

Bonjour Chris,
Pour la formule de MFC ne serait-ce pas plutôt ?

Code :

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

= A1=A2

[beautiful soul]

salut,

j'ai du mal à saisr si tu veux concaténer (comme l'indique ton titre de fil) ou fusionner les cellules (comme l'indique plutôt ton exemple).

Peux-tu nous en dire un peu plus, ce afin que nous puissions te donner les pistes les plus adaptées à ta problématique

En faite ce que je cherche c'est de concatener les éléments de la cellule reference tant que le nom est le meme

[Iris78]

Une solution, un peu plus longue, serait de faire de tes données 2 colonnes (avec une formule =gauche(), ce devrait être simple) et ensuite de faire un tableau croisé dynamique.

[Philippe Tulliez]

Bonjour,

En faite ce que je cherche c'est de concatener les éléments de la cellule reference tant que le nom est le meme

Je pense que tu n'utilises pas le bon vocabulaire.
Concaténer, c'est mettre bout à bout au moins deux chaînes de caractères.
Or, soit tu as 2 colonnes Nom & Référence et l'on peut concaténer les deux colonnes dans une autre soit tu as 2 chaines de caractères séparées par un espace dans une colonne et alors on peut garder cette chaîne dans une autre colonne ou séparer l'un des 2 éléments de cette chaîne si une condition est remplie.
Ou comme l'a suggéré Chris, utiliser une mise en forme conditionnelle pour masquer les cellules d'une colonne si une condition est remplie (ici doublon).
Essaye d'expliquer clairement ce que tu souhaites avoir comme résultat final.

[Daranc]

en premier separer texte et chiffre une petite fonction d'excel pour avoir deux colonne puis je pense à un outil d'Excel
qui demande un peu de pratique parce qu'un peu rébarbatif au premier abord
le Tableau croisé dynamique (souvent cité par TCD )
un peu de pratique et il devient facile et rapide à employer

[Daranc]

les formules

Code :

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

=GAUCHE(A1;TROUVE(" ";A1;1))

attention celle-ci va laisser l'espace après les noms pour supprimer l'espace

Code :

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

=GAUCHE(A1;TROUVE(" ";A1;1)-1)

dans le premier cas
pour les nombres tu n'as pas d'espace devant avec cette formule

Code :

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

DROITE(A1;(NBCAR(A1)-NBCAR(B1)))

avec la deuxième formule

Code :

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

DROITE(A1;(NBCAR(A1)-NBCAR(B1)-1))

[78chris]

<Bonjour

Bonjour Chris,
Pour la formule de MFC ne serait-ce pas plutôt ?

Code :

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

= A1=A2

Arf j'ai effectivement mal tapé la formule !


Un TCD sert à faire des ventilations/analyses statistiques et là je ne vois pas de stats dans la question...

[edelweisseric]

Bonjour à tous

Peut-être comme cela :

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
Option Explicit
Dim tablo() As String
 
Sub lance()
Dim derlign As Integer
Dim i As Integer
Dim mavar As String
Dim pos As Integer
Dim Var As String
 
Range("A1").Select
derlign = Range("A65536").End(xlUp).Row
ReDim tablo(derlign)
For i = 0 To derlign - 1
    mavar = ActiveCell.Offset(i, 0)
    pos = InStr(mavar, " ")
    If Left(mavar, pos - 1) = Var Then tablo(i) = Right(mavar, Len(mavar) - pos) Else tablo(i) = mavar: Var = Left(mavar, pos - 1)
Next i
Range("C1:C" & derlign) = Application.Transpose(tablo())
 
End Sub

Eric

[alsimbad]

Bonjour a tous
une fonction personalisée à ajuster

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function suite(macellule)
m = macellule.Row
n = macellule.Column
mazone = Range(Cells(m, n), Cells(m + 10, n))
u = Left(macellule, InStr(1, macellule, " "))
v = u
For Each cel In mazone
If Left(cel, InStr(1, cel, " ")) = u Then
v = v & " " & Right(cel, Len(cel) - InStr(1, cel, " "))
End If
Next
suite = v
End Function

si ta colonne de donnée commence en A3 par exemple et que tu veuilles la réponse en F15, tu tapes en F15
= suite (A3) ou A3 est la premiere occurence du nom que tu cherches ( dans ton exemple ALI 100)
dans cette ligne:

Code :

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

mazone = Range(Cells(m, n), Cells(m + 10, n))

le +10 est a ajuster, si tes données ne sont pas triée, tu as interet a mettre un grand nombre, mais si elle sont triée, tu a interet a placer le nombre maxi d'occurence possible, tu n'exploreras que ce nombre, tu gagneras en temps de réponse
Attention : si tu as plusieur formules dans ta feuille, elle ne sont calculée qu'une fois et ne sont pas mises a jour automatiquement, même avec F9, si elle doivent etre recalculée, tu doit entrer dans la cellule et refaire "Entrer"
bon dimanche

[Paritec]

Bonjour à tous
si tu traites la feuille Feuil1 et que ta liste commence en ligne 4 autrement tu ajustes dans la macro
a+
papou

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
Option Explicit
Option Base 1
 
Sub trier()
    Dim i&, fin&, aa As Variant, a&, x, y 'si tu traites la feuil1
    aa = Feuil1.Range("A4:A" & Feuil1.Range("A" & Rows.Count).End(xlUp).Row) 'si ta liste commence en A4
    For i = 1 To UBound(aa)
        For a = i + 1 To UBound(aa)
            x = Split(aa(i, 1)): y = Split(aa(a, 1))
            If x(0) = y(0) Then
                aa(a, 1) = y(1)
            Else
                GoTo 1
            End If
       Next a
1    Next i
    Feuil1.Range("A4").Resize(UBound(aa), UBound(aa, 2)) = aa
End Sub