Extrait des données

Re : Extrait des données

Salut,
Si j'ai bien compris ta demande.
Voir ici
Cordialement
Lolote83

Re : Extrait des données

Re salut,
j'ai posté un peut vite. Je n'avais pas tout lu comme il faut.
Enfin, c'est un début.
@+ Lolote83

Re : Extrait des données

Re salut,
J'ai rajouter un petit truc par rapport au dernier fichier posté.
Filtre sur le champs qui correspond au choix fait en C2. (Par double clic)
Voir ici.

Re : Extrait des données

Bonjour,

Une piste à creuser ! Il faudrait plus de précisions concernant la liste de choix ou combobox ?

Hervé.

Re : Extrait des données

Bonjour Lolote 83 et Theze,

merci pour votre aide.

C'est dans la feuille RECHERCHE que je veux ma solution mais ne il ne faut pas toucher à la feuille SAISIE qui est ma base de données.

Avant d'écrire dans la cellule C2 , il ni y'a rien d'écrit dans les cellules en dessous comme dans mon exemple que je vous envoie.

On écrit dans la cellule en ensuite appuyant sur un bouton la liste se forme automatiquement les lignes en dessous les unes des autres.

voilà

A bientôt

Re : Extrait des données

Salut Caninge,
Désolé, je n'avais pas vraiment compris le sens de ta question

C'est dans la feuille RECHERCHE que je veux ma solution mais ne il ne faut pas toucher à la feuille SAISIE qui est ma base de données.

Cliquez pour agrandir...

La,il y a eu erreur de ma part, effectivement, c'était clair !!!!

On écrit dans la cellule en ensuite appuyant sur un bouton la liste se forme automatiquement les lignes en dessous les unes des autres.

Cliquez pour agrandir...

Bref,voici donc une nouvelle solution, plus confortable que l'ancienne.
On choisi dans l'onglet Recherche en cellule C1, le champs sur lequel tu souhaites faire ta recherche
On inscrit en C2, le texte à rechercher, puis clique sur GO.
Ta base est alors filtrée sur le champs choisi, avec en rouge le texte voulu
Je pense maintenant avoir tout compris.
Voir ici.
Cordialement
Lolote83

Re : Extrait des données

Bonjour Lolote,

tu pourrais supprimer cette fonction ? : On choisit dans l'onglet Recherche en cellule C1, le champs sur lequel tu souhaites faire ta recherche.

j'aimerais bien que la recherche se fasse sur toutes les colonnes ! donc pas de choix en C1

tu m'as compris ? Au fait ma base de données comprend 4000 lignes

merci

Re : Extrait des données

Salut Caninge,
Désolé, je n'avais encore certainement pas tout compris.
Je me penche sur le problème, mais je ne sais pas si je vais y arriver ...
@+ Lolote83

Re : Extrait des données

Salut Caninge,
Je pense que cette fois, c'est la bonne.
Cordialement
Lolote83

Re : Extrait des données

Re-bonjour Lolote,

Je met ta réponse sur mon fichier et je tiens au courant

merci

Re : Extrait des données

Bonjour Lolote83

tout fonctionne sauf une petite chose à rajouter si possible.

Quand il n’existe pas de un groupe de mots dans la cellule (genre jptio), j'ai un message m’invitant à déboguer.
serait possible de mettre un MSGBOX avec écrit par exemple "aucun mots dans cette recherche"

regarde mon fichier image

je te remercie

CANINGE

Re : Extrait des données

Bonjour Lolote,

en cherchant dans les posts , je vais essayer de trouver une solution.

je te remercie

Caninge

Re : Extrait des données

Bonjour,

j'ai essayé de trouver une solution à mon problème en fouillant sur le net.
J'ai rajouté ces 3 lignes

mais ce n'est pas tout à fait cela !



If Worksheets("Recherche").Range("B5").Value = "" Then
MsgBox "La recherche n'a rien donné", vbExclamation, "Alerte"
End If



Sub TOUT()
Application.ScreenUpdating = False
Call SelectionneLigne
Call EcritRouge
Application.ScreenUpdating = True
End Sub

Sub SelectionneLigne()
[B5:Q65000].Clear
xTexte = [xRecherche]
xLgr = Len(xTexte)
Set MonDico = CreateObject("Scripting.Dictionary")
'Recherche des lignes contenant le critère recherché
For Each xCell In [xTableau2]
xPos = InStr(1, UCase(xCell.Value), UCase(xTexte))
If xPos > 0 Then
MonDico(xCell.Row) = xCell.Row
End If
Next xCell
xTouteLigne = MonDico.keys
For F = 0 To MonDico.Count - 1
xLig = xTouteLigne(F)
xNewLig = [xNewLig]
Sheets("Saisie").Range("B" & xLig & ":Q" & xLig).Copy Sheets("Recherche").Range("B" & xNewLig)
Next F

If Worksheets("Recherche").Range("B5").Value = "" Then
MsgBox "La recherche n'a rien donné", vbExclamation, "Alerte"
End If



End Sub

Sub EcritRouge()
'Efface la dernière recherche
[xTableau3].Font.ColorIndex = 0
'Commence la recherche
xTexte = [C2]
xLgr = Len(xTexte)
For Each xCell In [xTableau3]
xPos = InStr(1, UCase(xCell.Value), UCase(xTexte))
xAdr = xCell.Address
If xPos > 0 Then
With Range(xAdr).Characters(Start:=xPos, Length:=xLgr).Font
.FontStyle = "Gras"
.ColorIndex = 3
End With
End If
Next xCell
End Sub

Re : Extrait des données

Bonjour à tous,

je suis désolé de vous demander un petit coup de main,je n'arrive à résoudre ce petit problème,

bonne journée et merci d'avance.

CANINGE