Extrait des données

[Caninge]

Bonjour

je pense avoir fait une bêtise tout à l'heure.je ne trouve pas ma discussion.

je n'ai pas du cliquer pour créer mon message.Je recommence.

J'appelle à votre savoir pour me donner un petit coup de main :

Dans mon fichier il y a 2 feuilles.

Dans la cellule C2 de la feuille RECHERCHE j'écris une ou plusieurs lettre ou même un nombre également . "V" dans mon exemple

en dessous à partir de la cellule B6, comment avoir une liste déroulante de toutes les lignes et cellules où sont écris la lettre "V"

Et aussi que cette lettre apparaisse en gras et en rouge comme mon exemple

je joins un fichier et vous remercie d'avance !

Caninge

 

[Lolote83]

Re : Extrait des données

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

 

[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

 

[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.

 

[Theze]

Re : Extrait des données

Bonjour,

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

Hervé.

 

[Caninge]

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

 

[Lolote83]

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.

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.

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

 

[Caninge]

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

 

[Lolote83]

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

 

[Lolote83]

Re : Extrait des données

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

 

[Caninge]

Re : Extrait des données

Re-bonjour Lolote,

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

merci

 

[Caninge]

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

 

[Caninge]

Re : Extrait des données

Bonjour Lolote,

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

je te remercie

Caninge

 

[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

 

[Caninge]

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