Recherche avancée sur une cellule

[Arawaza]

Bonjour à tous et merci pour vos futur renseignements

J'ai une fichier Excel ou dans une cellule, j'ai plusieurs nom de domaine séparé par une virgule.(dans mon fichier colonne D)

J'aimerai pouvoir DEPLACER dans une autre feuille "via une recherche je pense" le résultat de celle-ci.

Mon fichier contient 4000 lignes toujours configuré de la même façon à savoir :
toto\s887458,S-1458-796-631,PORTABLE\2145

Certaines lignes ne contiennent qu'un domaine et d'autre cinq

Je voudrais donc afficher uniquement les lignes qui contient EXCLUSIVEMENT toto\??? ET PAS S-???? ET PAS PORTABLE\???

Afficher ensuite les lignes qui contiennent toto\?? ET PORTABLE\?? ET PAS S-???

En priorité si possible uniquement les EXCLUSIVITES (toto\?? uniquement) (PORTABLE\?? uniquement) etc...

Merci d'avance

 

[flyonets44]

Re : Recherche avancée sur une cellule

Bonjour
sans macro, il te suffit de créer un filtre personnalisé pour obtenir les données que tu souhaites
Cordialement
Flyonets

 

[Arawaza]

Re : Recherche avancée sur une cellule

Merci Flyonets44 pour ta réponse.
Je vais voir comment je peux faire pour m'organiser dans toutes mes recherches.

Il a fallu que je fasse plusieurs recherches détaillé car UNIQUEMENT 2 critères sont possible. j'ai donc utilisé après cette macro qui me permet de comparer puis supprimer les lignes en doublons entre 2 feuilles Excel.



Sub compare()
Dim LastLig1 As Long, LastLig2 As Long, i As Long
Dim c As Range

Application.ScreenUpdating = False
LastLig1 = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Feuil2")
LastLig2 = .Cells(Rows.Count, 1).End(xlUp).Row
For i = LastLig2 To 1 Step -1
Set c = Sheets("Feuil1").Range("A1:A" & LastLig1).Find(.Range("A" & i).Value, lookat:=xlWhole)
If Not c Is Nothing Then
.Rows(i).Delete
LastLig2 = LastLig2 - 1
Set c = Nothing
End If
Next i
If LastLig2 > 0 Then .Range("A1:L" & LastLig2).Copy Sheets("Feuil1").Range("A" & LastLig1 + 1)
End With
End Sub