Besoin d´aide VBA

[Fermé]
Signaler
Messages postés
27
Date d'inscription
mardi 19 décembre 2000
Statut
Membre
Dernière intervention
22 août 2008
-
 jager57 -
Bonjour,
J´ai fait une macro qui permet de rechercher une phrase dans une colonne
si on tape une abréviation sol ils touvent tous les phrases contenant l´abréviation sol
mais j´ai un tableau avec 800 lignes la msg box ne peut afficher quelques phrases pas toutes
comment faire???
merci

ex :

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

1 réponse

personne ne sait
ca s' apele un site d' informaticien