Petit Probleme à resoudre

Bonjour à toutes et a tous,

J'ai un petit problème à résoudre ce jour.

En effet je souhaite regrouper sur une même colonne des cellules.

Je vous fait un exemple ici pour mieux comprendre.

Merci pour votre aide précieuse.

Bonjour,

de ton exemple, je déduis que tu veux trier chaque ligne par ordre alphabétique. est-ce bien cela ?

Hello,

Alors pas forcément par ordre alphabétique, mais faire en sorte que chaque Lettre ( Mot ) soit toujours dans la même colonne.

Tout les mots A dans la meme colonne B ( par exemple )

Tout les Mots B dans la meme colonne C ( par exemple )

ETC ...

A mon avis c'est pas compliqué mais j'ais pas réussi.( Je ne suis pas un Pro )

Bonjour frisoo,

Voyez si la solution proposée dans le fichier joint vous convient

=CODE(A2)

=CAR(PETITE.VALEUR($G2:$K2;COLONNE()))

Salut,

Alors J'ai regarder ton fichier et la solution c'est pas la bonne.

Les lettres ne sont pas regroupé par colonne dans ta formule.

Mon objectif et de regrouper les lettres par colonne.

voila une partie de mon fichier a trier par colonne,

le but et d'avoir chaque ingrédients regroupé par colonne

Bonjour frisoo,

Voyez si la solution proposée dans le fichier joint vous convient

Il y a des corrections à faire dans vos listes d'ingrédients.

Il faut qu'ils soient écrits de la même manière à chaque fois, pas un point, ou un espace de plus, une majuscule ça allonge votre liste sans qu'il y ai plus d'ingrédients.

njhub a écrit :

Bonjour frisoo,

Voyez si la solution proposée dans le fichier joint vous convient

Il y a des corrections à faire dans vos listes d'ingrédients.

Il faut qu'ils soient écrits de la même manière à chaque fois, pas un point, ou un espace de plus, une majuscule ça allonge votre liste sans qu'il y ai plus d'ingrédients.

frisoo-exemple 2.xlsx

Excellentissime, Merci BEAUCOUP. Résolu grace a toi.

Bonne journée à toutes et tous

Salut Frisoo,

Salut njhub,

tri des ingrédients par colonne via VBA.

Un double-clic en 'BDD' classe les ingrédients en 'BDD1'

Attention à écrire chaque ingrédient Á L'IDENTIQUE !!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim rCells As Range, rCel As Range, sCol$
'
Cancel = True
For Each rCel In UsedRange
    rCel.Value = Application.WorksheetFunction.Proper(rCel.Value)
Next
Set rCells = UsedRange
With Worksheets("BDD1")
    .Cells.Delete
    For Each rCel In rCells
        If rCel.Value <> "" Then
            iCol = Asc(Left(Trim(rCel.Value), 1))
            .Range(Chr(iCol) & .Range(Chr(iCol) & Rows.Count).End(xlUp).Row + 1).Value = rCel.Value
        End If
    Next
    For x = 1 To 26
        .Columns(x).RemoveDuplicates Columns:=1
        sCol = Chr(64 + x)
        If .Range(sCol & 2) <> "" Then _
            .Range(sCol & "1:" & sCol & .Range(sCol & Rows.Count).End(xlUp).Row).Sort key1:=.Range(sCol & 1), order1:=xlAscending, Orientation:=xlByRows
    Next
    .Columns.AutoFit
    .Activate
End With
'
End Sub

A+