Modifications sur une macro [Excel]

Résolu/Fermé

morigann Messages postés 64 Date d'inscription mercredi 24 juin 2009 Statut Membre Dernière intervention 10 mai 2011 - 20 juil. 2009 à 14:04
morigann Messages postés 64 Date d'inscription mercredi 24 juin 2009 Statut Membre Dernière intervention 10 mai 2011 - 27 juil. 2009 à 10:33

Bonjour,

Je souhaiterais effectuer quelques modifications sur la macro suivante, mais je ne sais pas trop comment m'y prendre (je débute en VBA). C'est une macro qui fonctionne un peu comme la fonction Ctrl+F pour rechercher un mot, sauf que c'est pour un glossaire et que j'aimerais que la recherche s'effectue sur toute la colonne A seulement.
Une fois que la recherche est terminée, si je clique sur suivant la sélection se porte sur la cellule suivante qui n'a plus rien à voir avec le mot recherché, or, j'aimerais qu'une fois la recherche terminée la fenêtre se ferme.

mot = InputBox("Entrez le mot à rechercher")
For Feuille = 1 To Sheets.Count
On Error Resume Next
Sheets(Feuille).Select
On Error GoTo 0
Set trouvé1 = Cells.Find(what:=mot)
If Not trouvé1 Is Nothing Then
trouvé1.Activate
étiq:
If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub
Set trouvé2 = Cells.FindNext(After:=ActiveCell)
If trouvé2.Column <> trouvé1.Column Or trouvé2.Row <> trouvé1.Row Then
trouvé2.Activate
GoTo étiq
End If
End If
Next Feuille
End Sub

Merci pour votre aide.

A voir également:

Modifications sur une macro [Excel]
Liste déroulante excel - Guide
Suivi des modifications word - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Déplacer une colonne excel - Guide

17 réponses

Réponse 1 / 17

giheller Messages postés 1875 Date d'inscription dimanche 14 juin 2009 Statut Membre Dernière intervention 3 février 2024 142
20 juil. 2009 à 14:56

bonjour,
ajouter la ligne en gras, cela conviendra peut être

mot = InputBox("Entrez le mot à rechercher")
For Feuille = 1 To Sheets.Count
On Error Resume Next
Sheets(Feuille).Select
Columns("A:A").Select

Réponse 2 / 17

morigann Messages postés 64 Date d'inscription mercredi 24 juin 2009 Statut Membre Dernière intervention 10 mai 2011 17
20 juil. 2009 à 15:05

Merci de ta réponse giheller, mais ça ne fonctionne pas, toute la feuille est sélectionnée et la recherche s'effectue toujours dans toutes les colonnes...

Réponse 3 / 17

giheller Messages postés 1875 Date d'inscription dimanche 14 juin 2009 Statut Membre Dernière intervention 3 février 2024 142
20 juil. 2009 à 18:19

alors
essaie
enleve Sheets(Feuille).Select

Réponse 4 / 17

morigann Messages postés 64 Date d'inscription mercredi 24 juin 2009 Statut Membre Dernière intervention 10 mai 2011 17
21 juil. 2009 à 08:30

Salut giheller,

Je ne peux pas enlever Sheets(Feuille).Select car j'en ai besoin pour que la recherche s'effectue dans tous les onglets de mon classeur. Je pense que ça ne fonctionne pas avec
Sheets(Feuille).Select
Columns("A:A").Select
car la sélection se fait de la colonne A pour le premier onglet à la colonne A pour le dernier onglet donc la recherche ne s'effectue pas dans la seule colonne A mais pour toutes les colonnes du classeur.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 17

jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
21 juil. 2009 à 09:16

mot = InputBox("Entrez le mot à rechercher")
For Feuille = 1 To Sheets.Count
Worksheets(Feuille).Activate
With Worksheets(Feuille).Range("a1:a500")
Set trouvé1 = .Find(mot, LookIn:=xlValues)
étiq:
If Not trouvé1 Is Nothing Then
NumRow = trouvé1.Row
trouvé1.Activate
If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub
Set trouvé1 = .FindNext(trouvé1)
If NumRow < trouvé1.Row Then GoTo étiq

End If
End With
Next Feuille

Réponse 6 / 17

morigann Messages postés 64 Date d'inscription mercredi 24 juin 2009 Statut Membre Dernière intervention 10 mai 2011 17
23 juil. 2009 à 08:32

merci jjsteing, mais après avoir testé plusieurs fois ton code, je me suis rendu compte qu'il ne fonctionne pas toujours très bien, la recherche s'effectue souvent dans toutes les colonnes des onglets et pas uniquement dans la colonne A.

Réponse 7 / 17

jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
23 juil. 2009 à 13:41

Chez moi il ne recherche que dans A.. ce qui est normal au vu de : With Worksheets(Feuille).Range("a1:a500")

Si ca ne cherche pas que dans A chez toi c'est que tu as modifier cette ligne

Réponse 8 / 17

morigann Messages postés 64 Date d'inscription mercredi 24 juin 2009 Statut Membre Dernière intervention 10 mai 2011 17
23 juil. 2009 à 15:26

Ah oui pardon j'avais du me tromper en recopiant le code...
Est-ce que tu pourrais m'aider pour une dernière chose, j'aimerais que lorsque l'ordinateur arrive à la fin de la recherche d'un terme donné, c'est phrase s'affiche : "il n'y a plus d'occurrences pour ce terme, veuillez effectuer une nouvelle recherche".

Réponse 9 / 17

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 289
23 juil. 2009 à 16:14

Mot = InputBox("Entrez le mot à rechercher")
For Feuille = 1 To Sheets.Count
Worksheets(Feuille).Activate
With Worksheets(Feuille).Range("a1:a500")
Set trouvé1 = .Find(mot, LookIn:=xlValues)
étiq:
If Not trouvé1 Is Nothing Then
NumRow = trouvé1.Row
trouvé1.Activate
If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub
Set trouvé1 = .FindNext(trouvé1)
If NumRow < trouvé1.Row Then GoTo étiq
Else
msgbox("il n'y a plus d'occurrences pour ce terme, veuillez effectuer une nouvelle recherche")End If
End With
Next Feuille

Réponse 10 / 17

jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
24 juil. 2009 à 08:37

petite présition sur le code de Bidouilleur_R: a cette endroit il va t afficher le message pour chaque changement de page.. si tu veux qu il te l affiche à la fin de la recheche, il faut le mettre apres le next feuille

Réponse 11 / 17

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 289
24 juil. 2009 à 09:08

Tout juste!
et le "End if" peut aller à la ligne... plus lisible
Faut que j'améliore la mise en forme, moi.
A+

Réponse 12 / 17

morigann Messages postés 64 Date d'inscription mercredi 24 juin 2009 Statut Membre Dernière intervention 10 mai 2011 17
27 juil. 2009 à 10:05

Merci pour vos réponses jjsteing et Bidouilleu_R !
Je viens de tester le code, mais un problème subsiste (décidémment je suis vraiment pas douée) :
Je tape donc ce code :

mot = InputBox("Entrez le mot à rechercher")
For Feuille = 1 To Sheets.Count
Worksheets(Feuille).Activate
With Worksheets(Feuille).Range("a1:a500")
Set trouvé1 = .Find(mot, LookIn:=xlValues)
étiq:
If Not trouvé1 Is Nothing Then
NumRow = trouvé1.Row
trouvé1.Activate
If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub
Set trouvé1 = .FindNext(trouvé1)
If NumRow < trouvé1.Row Then GoTo étiq
Else
End With
Next Feuille
MsgBox ("il n'y a plus d'occurrences pour ce terme, veuillez effectuer une nouvelle recherche")
End If

End Sub

Et il me dit "erreur de compilation : End With sans With" (alors qu'il y a bien un With)...

Réponse 13 / 17

jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
27 juil. 2009 à 10:23

aie aie aie !!!

petite regle très très importante !!! toujours respecter l'ordre d'ouverture et fermeture des boucles (for, while, with, if,...)

ton ton exemple tu as:

For
With
if 'n°1
if 'N°2
if 'N°3
else 'else de N°3 d'ailleurs il sert a rien, vu que y a pas de code apres
'----------
maque ici 3 end if pour N°3, N°2 et N°1
'---------
End With
Next
end if ' n'a rien a faire là

==>

mot = InputBox("Entrez le mot à rechercher")
For Feuille = 1 To Sheets.Count
Worksheets(Feuille).Activate
With Worksheets(Feuille).Range("a1:a500")
Set trouvé1 = .Find(mot, LookIn:=xlValues)
étiq:
If Not trouvé1 Is Nothing Then
NumRow = trouvé1.Row
trouvé1.Activate
If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub
Set trouvé1 = .FindNext(trouvé1)
If NumRow < trouvé1.Row Then GoTo étiq 'pas besoin de end if pour celui ci vu qu il n'y a qu'une ligne
End if
End if
End With
Next Feuille
MsgBox ("il n'y a plus d'occurrences pour ce terme, veuillez effectuer une nouvelle recherche")

je t'ai indenter pour que tu vois mieux la logique ;) et je te conseil de faire pareil quand tu code, c'est plus lisible ;)

Réponse 14 / 17

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 289
27 juil. 2009 à 10:28

Bonjour,
Corrigé!
un petit oubli : )

Sub test()
mot = InputBox("Entrez le mot à rechercher")
For Feuille = 1 To Sheets.Count
Worksheets(Feuille).Activate
With Worksheets(Feuille).Range("a1:a500")
Set trouvé1 = .Find(mot, LookIn:=xlValues)
étiq:
If Not trouvé1 Is Nothing Then
NumRow = trouvé1.Row
trouvé1.Activate
If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub
Set trouvé1 = .FindNext(trouvé1)
If NumRow < trouvé1.Row Then GoTo étiq
Else

End If

End With
Next Feuille
MsgBox ("il n'y a plus d'occurrences pour ce terme, veuillez effectuer une nouvelle recherche")

End Sub

Réponse 15 / 17

jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
27 juil. 2009 à 10:30

ok, et ca tourne là alors ? si oui, met ton post en résolu :)

ps.. l indentation ne s'est pas marqué :s CCM doit supprimer les espaces en debut de ligne :S

Réponse 16 / 17

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 289
27 juil. 2009 à 10:31

Comme ça c'est plus lisible

Sub test()
mot = InputBox("Entrez le mot à rechercher")
    For Feuille = 1 To Sheets.Count
        Worksheets(Feuille).Activate
        With Worksheets(Feuille).Range("a1:a500")
        Set trouvé1 = .Find(mot, LookIn:=xlValues)
étiq:
        If Not trouvé1 Is Nothing Then
        NumRow = trouvé1.Row
        trouvé1.Activate
            If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub
            Set trouvé1 = .FindNext(trouvé1)
                If NumRow < trouvé1.Row Then GoTo étiq
            
            End If
        
    End With
Next Feuille
MsgBox ("il n'y a plus d'occurrences pour ce terme, veuillez effectuer une nouvelle recherche")


End Sub

Réponse 17 / 17

morigann Messages postés 64 Date d'inscription mercredi 24 juin 2009 Statut Membre Dernière intervention 10 mai 2011 17
27 juil. 2009 à 10:33

Waouuu ça marche ! Merci beaucoup à tous les 2 pour votre aide !

Discussions similaires

programme qui n'affiche pas le mot secret

Discussions similaires

Newsletters