Trier des données

[hassan.zer]

Bonjour,

Je souhaite trier des données issues d'un tableau mais je bloque, pourriez-vous m'aider, merci.
En PJ le document plus clair.

 

[job75]

Re : Trier des données

Bonjour hassan.zer,

Avec cette fonction VBA :

Function TRIAGE$(plage1 As Range, plage2 As Range, Optional car$ = "?")
Dim i&
For i = 1 To plage1.Count
  If LCase(plage1(i)) Like LCase(car) Then TRIAGE = TRIAGE & vbLf & plage2(i)
Next
TRIAGE = Mid(TRIAGE, 2)
End Function

Voyez son utilisation en D11 G11 J11 du fichier joint.

Nota 1 : l'argument car est facultatif.

Nota 2 : le nom de la fonction ne peut pas être TRI ou TRIER (sur Excel 2003 du moins).

A+

 

[Gareth]

Re : Trier des données

Bonjour à tous,

Ci-joint une autre solution macro qui créé les 3 tableaux.
Les macros existent aussi pour chaque tableau.

 

[job75]

Re : Trier des données

Re,

On peut aussi nommer la fonction CONCATSI et la présenter comme SOMME.SI :

Function CONCATSI$(plage1 As Range, critere$, plage2 As Range, separateur$)
Dim i&
For i = 1 To plage1.Count
  If LCase(plage1(i)) Like LCase(critere) Then CONCATSI = CONCATSI & separateur & plage2(i)
Next
CONCATSI = Mid(CONCATSI, Len(separateur) + 1)
End Function

Ici l'argument critere doit toujours être renseigné : utiliser au besoin les caractères génériques ? et *.

Avec le séparateur CAR(10) les cellules doivent être formatées avec le retour à la ligne automatique.

Appliquer aussi l'ajustement automatique à la hauteur des lignes.

Fichier joint.

Edit : salut Gareth

A+