Macro qui fonctionne plus...
Ajt67
Messages postés
10
Statut
Membre
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
Bonsoir à tous,
Alors voilà, j'ai un classeur Excel qui me pose un problème... surtout depuis les versions Excel 2007 et 2013, j'ai une macro qui ne fonctionne plus. Le principe est simple, j'ai plusieurs onglet, un pour chaque lettre de l’alphabet et chaque onglet contient une liste de nom, un numéro respectif à chaque nom et d'autres informations. Ma macro me permettait, à partir d'une "messagebox" de rechercher le nom en ne connaissant que le numéro, ou rechercher le numéro en ne connaissant que le nom. Voilà la macro que j'utilisai :
"Private Sub CommandButton1_Click()
What = InputBox("Saisissez le nom du bateau à rechercher :")
If What = "" Then Exit Sub
For Each sht In Worksheets
sht.Activate
Set Found = sht.Cells.Find(What)
If Not Found Is Nothing Then
FirstAddress = Found.Address
Do
Found.Activate
Response = MsgBox("Continuer ?", vbYesNo + vbQuestion)
If Response = vbNo Then Exit Sub
Set Found = Cells.FindNext(After:=ActiveCell)
If Found.Address = FirstAddress Then Exit Do
Loop
End If
Next sht
MsgBox "Recherche terminée !"
End Sub"
Pourquoi cela ne fonctionne-t-il plus ?
Merci de votre aide
Alors voilà, j'ai un classeur Excel qui me pose un problème... surtout depuis les versions Excel 2007 et 2013, j'ai une macro qui ne fonctionne plus. Le principe est simple, j'ai plusieurs onglet, un pour chaque lettre de l’alphabet et chaque onglet contient une liste de nom, un numéro respectif à chaque nom et d'autres informations. Ma macro me permettait, à partir d'une "messagebox" de rechercher le nom en ne connaissant que le numéro, ou rechercher le numéro en ne connaissant que le nom. Voilà la macro que j'utilisai :
"Private Sub CommandButton1_Click()
What = InputBox("Saisissez le nom du bateau à rechercher :")
If What = "" Then Exit Sub
For Each sht In Worksheets
sht.Activate
Set Found = sht.Cells.Find(What)
If Not Found Is Nothing Then
FirstAddress = Found.Address
Do
Found.Activate
Response = MsgBox("Continuer ?", vbYesNo + vbQuestion)
If Response = vbNo Then Exit Sub
Set Found = Cells.FindNext(After:=ActiveCell)
If Found.Address = FirstAddress Then Exit Do
Loop
End If
Next sht
MsgBox "Recherche terminée !"
End Sub"
Pourquoi cela ne fonctionne-t-il plus ?
Merci de votre aide
2 réponses
-
Bonjour,
Que vouliez vous faire si trouve car exit do ok, le for each continue………………………... -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour,
1° merci d'utiliser la coloration syntaxique quand tu postes du code
2° "ne fonctionne plus": message d'erreur, comportement différent de celui que tu espères, ...?
3° ajoute "option explicit" en début de module, et déclare toutes tes variables, par exemple:Option Explicit ' ... Private Sub CommandButton1_Click() Dim What As String, sht As Worksheet, FOund As Range, FirstAddress As String, Response As Integer '...
-
-
Bonjour,
Vous ne repondez pas au 2° de Y_be, c'est peut-être la clé du problème.
Personnellement, je vous informais que votre code, meme si Found est trouve, ne s'arrête que sur le dernier onglet.............. -
le code parcourt toutes les occurrences dans toutes les feuilles du classeur, et, pour chaque occurrence, propose, via msgbox, d’arrêter ou de continuer.
"exit sub" termine tout, si l'utilisateur en a décidé ainsi.
"exit do" termine la boucle d'une feuille, pour passer à la feuille suivante quand on retombe sur la première occurrence trouvée précédemment dans la feuille.
j'ai testé, tout me semble bien fonctionner. -
-
quelques mini changements:
Option Explicit Private Sub CommandButton1_Click() Dim What As String, sht As Worksheet, FOund As Range, FirstAddress As String, Response As Integer What = InputBox("Saisissez le nom du bateau à rechercher :") If What = "" Then Exit Sub For Each sht In Worksheets Set FOund = sht.Cells.Find(What) If Not FOund Is Nothing Then sht.Activate FirstAddress = FOund.Address Do FOund.Activate Response = MsgBox("Continuer ?", vbYesNo + vbQuestion) If Response = vbNo Then Exit Sub Set FOund = sht.Cells.FindNext(After:=ActiveCell) Loop Until FOund.Address = FirstAddress End If Next sht MsgBox "Recherche terminée !" End Sub
-
