question VBA recherche texteRésolu

Question

Bonjour,je suis actuellement en stage en allemagne <?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>





je dois réaliser une programmation sur vba mais je suis un débutant





je voudrais rechercher une phrase dans une colonne





ex :   si je doi rechercher le soleil brille






        si je tape sol es que cŽest possible dŽafficher toutes les phrases contenant lŽabréviation sol






 






es que quelquún peut mŽaider




merci

dedenet2 · Accepted Answer

Salut Jager57
pourquoi 57 ,t'es de Moselle ?
Oui, il est possible de le faire mais il faut indiquer:
- l'emplacement de la cellule ou tu vas taper "sol"
- le numero de colonne où se trouve la liste de mots
- l'emplacement où tu vas afficher toutes tes phrases suivant criteres.
Pour ce faire , tu peux utiliser la méthode 'Find'.
Si tu ne sais pas comment faire ,envoie les renseignements indiqués ci-dessus
A+

jager57 · Answer

Bonjour dedenet2, oui je suis bien mosellan merci pour votre aide mais je ne sais pas trop comment faire je vous met un exemple de tableau ----, , ---- , , ---- , , ---- le soleil brille, 1, ---- le ciel est gris, 2, ---- le soleil nŽest pas la, 3, ---- le soleil est caché, 4, ---- les nuges sont gris, 5, ---- en moselle, il pleut tjrs, 6, ---- le ciel est bleu, 7 Sub test() Dim nom As String Dim recherche As String nom = InputBox("nom") Sheets("Tabelle1").Activate recherche = WorksheetFunction.Find(nom, range("tableau"), 2) MsgBox "Le nom" & recherche End Sub si quelquŽun clique sur le bouton recherche, il tape lŽabréviation sol, on doit pouvoir lui donner toutes les phrases contenant lŽabréviation sol

dedenet2 · Answer

Bonjour,

Je te propose une solution.
je n'ai pas utiliser "Find" mais plutôt "Like".En Vba , il ya plusieurs possibités.

Voici le module:
---------------------------------------------------------------------------------------------------
Sub RecherchePhrases()
'Programme de recherche de phrases suivant critere de saisie



Dim nom, c, msg
Dim recherche As String
Dim NombrePhrasesTrouvées As Integer
NombrePhrasesTrouvées = 0




'Affichage du inputbox pour saisie

nom = Trim(Application.InputBox("Taper un nom", "Recherche"))
'N'execute pas la rechereche si on clique sur Annuler ou si aucune saisieIf nom False Or nom "" Then
  Exit Sub
End If
'Active la feuille nommé Tabelle1
 Sheets("Tabelle1").Activate
 
'Effectue la recherche dans la plage cellule nommé tableau
For Each c In Range("tableau")
    If c.Value Like "*" & nom & "*" Then
     'Incremente le nombre de phrases trouvés
      NombrePhrasesTrouvées = NombrePhrasesTrouvées + 1
     'texte trouvé suivant la saisie
       recherche = c.Value
     'fait une liste des phrases correspondantes a la saisie
       msg = msg & recherche & vbTab & vbCrLf
     End If
Next
     'Affiche tout le resultat
      MsgBox NombrePhrasesTrouvées & " phrase(s) trouvé(s)    " _
      & Chr(10) & Chr(10) & msg, vbInformation, "Resultat de " & "[" & nom & "]"
 
End Sub
-------------------------------------------------------------------------------------------------
Ceci est un module que l'on appelle avec un bouton ou autre par le code suivant
Call RecherchePhrases

Teste et donne moi des nouvelles
A++

jager57 · Answer

Bonjour,
encore merci pour ceux que vous avez fait
mais étant donné que jŽai un tableau avec environ 1000 lignes la msg box ne peut afficher tout les résultats de la recherche. comment faire pour afficher tous les recherches possibles ?

dedenet2 · Answer

Salut
Il faut envlever msgbox et créer un Userform sur lequel tu mets un
listbox.
N'oublie de nommer l'Userform et le listbox comme dans le code.
Voici le code.
-------------------------------------------------------------------------
Sub Bouton1_QuandClic()
 Call RecherchePhrases
End Sub
Sub RecherchePhrases()
'Programme de recherche de phrases suivant critere de saisie

Dim nom, c, msg
Dim recherche As String
Dim NombrePhrasesTrouvées As Integer
NombrePhrasesTrouvées = 0

'Affichage du inputbox pour saisie
nom = Trim(Application.InputBox("Taper un nom", "Recherche"))
'N'execute pas la rechereche si on clique sur Annuler ou si aucune saisie
If nom False Or nom "" Then
  Exit Sub
End If
'Active la feuille nommé Tabelle1
 Sheets("Tabelle1").Activate
 
'Effectue la recherche dans la plage cellule nommé tableau
For Each c In Range("tableau")
    If c.Value Like "*" & nom & "*" Then
     'Incremente le nombre de phrases trouvés
      NombrePhrasesTrouvées = NombrePhrasesTrouvées + 1
     'texte trouvé suivant la saisie
       recherche = c.Value
     'fait une liste des phrases correspondantes a la saisie dans
     'le listbox
      UserFormResultat.ListBoxResultatRecherche.AddItem recherche
      
     End If
Next
     'Affiche le liste
     If NombrePhrasesTrouvées > 0 Then
     UserFormResultat.Caption = NombrePhrasesTrouvées & " phrase(s) trouvé(s)"
     UserFormResultat.Show
     Else
        MsgBox "Aucun résultat !", vbInformation, "Resultat Recherche"
     End If
    
End Sub
------------------------------------------------------------------------------

jager57 · Answer

Merci encore pour votre aide
 Excusez moi encore pour le dérangement

Question VBA recherche texte

6 réponses

Votre réponse

Discussions similaires