tri sous condition, excel 2003

[bian-k]

bonjour,
j'ai un blocage sur excel 2003, j'essaye de créer une liste à partir de deux feuilles. j'aimerais trier la feuille 1 à partir de la feuille 2. en fait, j'aimerais que ne s'affiche sur la feuille 3 que les entreprises de la feuille une qui aparaissent aussi sur la feuille 2. donc sur la feuille 3, je devrais avoir abott sa, abu dhabi investment sa et adecco sa.
qu'elqu'un peut il m'aider please?
ps, pas grave si la correspondance porte uniquement sur le premier mot ainsi je pourrais avoir tous les abott par ex.
merci d'avance.

 

[Robert]

Re : tri sous condition, excel 2003

Bonjour Bian-k, bonjour le forum,

Je te propose une solution VBA avec le code ci-dessous :

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
Dim dest As Range 'déclare la variable dest (DESTination)
 
'boucle sur toutes les cellules éditées cel de la colonne C de l'onglet "Feuil1"
For Each cel In Sheets("Feuil1").Range("C2:C" & Sheets("Feuil1").Range("C65536").End(xlUp).Row)
    'définit la recherche (Recherche dans la colonne A de l'onglet "Feuil2" la valeur identique à la valeur de la cellule cel)
    Set r = Sheets("Feuil2").Columns(1).Find(cel.Value, , xlValues, xlWhole)
    If Not r Is Nothing Then 'condition ; si il existe au moins une occurrence
        Set dest = Sheets("Feuil3").Range("A65536").End(xlUp).Offset(1, 0) 'définit la cellule de destination
        dest.Value = cel.Value 'la cellule de destination prend la valeur de la cellule cel
    End If 'fin de la condition
Next cel 'prochaine cellule cel de la boucle
End Sub

 

[bian-k]

Re : tri sous condition, excel 2003

Bonjour Robert et merci pour ta réponse hélas, je ne m'y connais pas du tout en macro. ya t il pas moyen de le faire avec une formule que je devrais juste recopier?
merci

 

[Robert]

Re : tri sous condition, excel 2003

Bonsoir Bian-k, bonsoir le forum,

Oui il y a certainement moyen de faire cela par formule mais j'en suis malheureusement incapable...