Bonjour, ´
je suis un débutant en VBA
j´ ai réalisé une macro qui permet de rechercher un texte dans une colonne cela fonctionne
Mais étant donné que mon tableau a au moins 1000 lignes
lorsque quelqu´un tape les premières lettres d´un mot la message box
ne peut pas afficher tout les résultats
comment faire???pour voir tous les résultats
[code]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
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