Macro qui fonctionne plus...
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………………………... -
Contributeur Ambassadeurbonjour,
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 '...
-
-
-
Contributeur Ambassadeur@f894009le 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. -
-
Contributeur Ambassadeur@Ajt67quelques 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
-
