recherche information dans une cellule

Re : recherche information dans une cellule

Bonsoir,
essai ce code:

@+

Re : recherche information dans une cellule

Salut Cydor007 et le forum

Je sais qu'il y a un filtre textuel avec l'option contient

Cliquez pour agrandir...

C'est quoi un filtre textuel ?

Si tu utilises un filtre automatique, crée unemacroapprentissage (Menu Outils>>Macro>>Nouvelle macro) et fais un exemple. Mets le code sur un poste et on t'aidera à l'améliorer pour avoir ce que tu veux
A+

Re : recherche information dans une cellule

fhoest à dit:

Bonsoir,
essai ce code:

Code:

Sub trouver_texte()

With Sheets("base de donnée")
        .Cells.Select
        Selection.Find(What:="170,0", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End With
    MsgBox " La cellule " & ActiveCell.Address & " contient le texte recherché !"
    
End Sub

@+

Cliquez pour agrandir...

Merci pour le code, mais cela ne foctionne pas.

Je dois pouvoir changer de recherche indéfinement. Si j'essais ta macro il cherche tout le temps le même texte (170.0).

Peut-tu développer une macro qui peut s'adapte en fonction du texte que je recherche.

Je te laisse mon fichier pour jouer avec.

Cydor

Re : recherche information dans une cellule

bonsoir,
sorry essai ceci:

Re : recherche information dans une cellule

fhoest à dit:

bonsoir,
sorry essai ceci:

Code:

Sub trouver_texte()
Dim texte As String
texte = InputBox("valeur a rechercher")

With Sheets("base de données").Select
      
        Selection.Find(What:=texte, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End With
    MsgBox " La cellule " & ActiveCell.Address & " contient le texte recherché !"
    
End Sub

Cliquez pour agrandir...

Salut,

Essaie le fichier (test de filtrage.xls) que je t'ai laisser et de faire afficher la réponse dans la feuille de critere. Regarde l'exemple que j'ai écris. Il faut que je sois en mesure peut importe le critere de recherche de trouver la réponse dans la base de données et de faire afficher cette réponse dans la première feuille.
Dit-toi que j'ai une base de données d'environ 5000 lignes. Il se peut que j'ailles des réponse multiples.

Je reviens demain, si tu as des questions je vais y répondre demain.

Bonne soirée

Re : recherche information dans une cellule

la ,le code avec la réponse dans la feuille critère
A demain.

Re : recherche information dans une cellule

fhoest à dit:

la ,le code avec la réponse dans la feuille critère

Code:

Sub trouver_texte()
Dim texte As String
Dim ligne, repaire As Long
texte = InputBox("valeur a rechercher")

With Sheets("base de données").Select
      
        Selection.Find(What:=texte, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End With
    MsgBox " La cellule " & ActiveCell.Address & " contient le texte recherché !"
    ligne = ActiveCell.Row
    Worksheets("base de données").Range(Cells(ligne, 1), Cells(ligne, 12)).Copy
repaire = Sheets("Criteres").Range("c5000").End(xlUp).Row
Sheets("Criteres").Activate 'Range("c" & repaire + 1).Paste
ActiveSheet.Paste Destination:=Worksheets("Criteres").Range("c" & repaire + 1 & ":" & "o" & repaire + 1)
End Sub

A demain.

Cliquez pour agrandir...

Salut fhoest,

Je dois être capable de rentrer mes criteres de sélection dans la feuille crtière. J'aimerais être capable de faire une recherche avec plusieurs critère à la fois dans ma base de donnés. Les critères de Tension kV, Q= lg de queue, Ø= dia de queue, Numérotation se retrouve dans la colonne G de la feuillle base de données.

Si j'ai plusieurs "Match" je dois être en mesure d'afficher mes résultats sur la feuille critere dans: "Résultat des recherches".

Présentement ma cacro fonctionne très bien si l'information que je rentre est complet. Ex. Je cherche E536H, elle va m'afficher toutes les lignes avec le texte E536H. Mais si je cherche seulement 536 dans la même colonne, cela ne fonctionne pas.

Voici ma macro:

Option Explicit
Sub Filtrage()
Dim I$, J$, K$, L$, M$, N$, O$, P$, Q$, R$, S$, T$, U$, V$
Dim Lig As Integer
Application.ScreenUpdating = False
Sheets("Criteres").Activate
'Effacement de la feuille "resultats"
Range("D38:O6000").Select
Selection.ClearContents
Range("D38").Select
'Vérification de l'état du mode du filtre élaboré
With Sheets("Base de données")
If .AutoFilterMode = True Then
.Range("A1:N1").AutoFilter
End If
'Définition des variables critères
I = Sheets("Criteres").Cells(2, 3)
J = Sheets("Criteres").Cells(3, 3)
K = Sheets("Criteres").Cells(4, 3)
L = Sheets("Criteres").Cells(5, 3)
M = Sheets("Criteres").Cells(6, 3)
N = Sheets("Criteres").Cells(7, 3)
O = Sheets("Criteres").Cells(8, 3)
P = Sheets("Criteres").Cells(9, 3)
Q = Sheets("Criteres").Cells(10, 3)
R = Sheets("Criteres").Cells(11, 3)
S = Sheets("Criteres").Cells(12, 3)
T = Sheets("Criteres").Cells(13, 3)
U = Sheets("Criteres").Cells(14, 3)
V = Sheets("Criteres").Cells(15, 3)
'Filtrage de la base selon les critères
.Range("A1:N1").AutoFilter
If I <> "" Then .Range("A1:N1").AutoFilter Field:=1, Criteria1:=I
If J <> "" Then .Range("A1:N1").AutoFilter Field:=2, Criteria1:=J
If K <> "" Then .Range("A1:N1").AutoFilter Field:=4, Criteria1:=K
If L <> "" Then .Range("A1:N1").AutoFilter Field:=6, Criteria1:=L
If M <> "" Then .Range("A1:N1").AutoFilter Field:=7, Criteria1:=M
If N <> "" Then .Range("A1:N1").AutoFilter Field:=9, Criteria1:=N
If O <> "" Then .Range("A1:N1").AutoFilter Field:=10, Criteria1:=O
If P <> "" Then .Range("A1:N1").AutoFilter Field:=11, Criteria1:=P
If Q <> "" Then .Range("A1:N1").AutoFilter Field:=12, Criteria1:=Q
If R <> "" Then .Range("A1:N1").AutoFilter Field:=10, Criteria1:=R
If S <> "" Then .Range("A1:N1").AutoFilter Field:=11, Criteria1:=S
If T <> "" Then .Range("A1:N1").AutoFilter Field:=12, Criteria1:=T
If U <> "" Then .Range("A1:N1").AutoFilter Field:=13, Criteria1:=U
If V <> "" Then .Range("A1:N1").AutoFilter Field:=14, Criteria1:=V, Operator:=xlAnd
' Transfert des résultats
Lig = .Range("A65536").End(xlUp).Row
If Lig > 1 Then
.Range("A2:N" & Lig).Copy Sheets("Criteres").Range("D38")
Else
MsgBox "Pas d'enregistrement existant !"
End If
.Range("A1:N1").AutoFilter
End With
Sheets("Criteres").Cells(3, 6).Select
Application.ScreenUpdating = True
End Sub

Tu vois, la seule chose qui me manque c'est de combiner une recherche par texte incomplet pour chaque critère et aussi pouvoir intégrer plusieurs critère pour la même variable. La seul fonction dans d'excel capable de le faire c'est le filtre textuel.

Je te laisse travailler la dessus. Je t'envoie une photo du filtre textuel avec contient.

Bonne journée.