le pb est le suivant
qd je lance une recherche avec "Find" sur toutes les feuilles de mon
classeur,
le programme se plante (erreur 91) à partir de 2 recherches infructueuses.
Une recherche infructueuse ne plante pas le prog !
Je suis débutant en vba excel, et je ne comprend pas.
Pouvez vous m'expliquer svp
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
Salut, Il est plus judicieux d'aller sur le forum Excel pour cela mais voici un truc, tu peux remplacer Z1000 si tableau plus important dans cette macro Youky
nom = InputBox("A rechercher", "Recherche") If nom = "" Then Exit Sub For k = 1 To Sheets.Count With Sheets(k).[A1:Z1000] Set c = .Find(nom, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do Sheets(k).Select c.Activate rep = MsgBox("Continuer la recherche ?", 4 + 32, "Sélection") If rep = vbNo Then Exit Sub Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With Next MsgBox "Recherche terminée!"
"Gilbert.Milioto" a écrit dans le message de news: 42cc43e1$0$1248$
Bonjour,
le pb est le suivant qd je lance une recherche avec "Find" sur toutes les feuilles de mon classeur, le programme se plante (erreur 91) à partir de 2 recherches infructueuses.
Une recherche infructueuse ne plante pas le prog !
Je suis débutant en vba excel, et je ne comprend pas. Pouvez vous m'expliquer svp
Merci d'avance
Salut,
Il est plus judicieux d'aller sur le forum Excel pour cela mais voici un
truc,
tu peux remplacer Z1000 si tableau plus important dans cette macro
Youky
nom = InputBox("A rechercher", "Recherche")
If nom = "" Then Exit Sub
For k = 1 To Sheets.Count
With Sheets(k).[A1:Z1000]
Set c = .Find(nom, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets(k).Select
c.Activate
rep = MsgBox("Continuer la recherche ?", 4 + 32, "Sélection")
If rep = vbNo Then Exit Sub
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Next
MsgBox "Recherche terminée!"
"Gilbert.Milioto" <gilbert.milioto@wanadoo.fr> a écrit dans le message de
news: 42cc43e1$0$1248$8fcfb975@news.wanadoo.fr...
Bonjour,
le pb est le suivant
qd je lance une recherche avec "Find" sur toutes les feuilles de mon
classeur,
le programme se plante (erreur 91) à partir de 2 recherches infructueuses.
Une recherche infructueuse ne plante pas le prog !
Je suis débutant en vba excel, et je ne comprend pas.
Pouvez vous m'expliquer svp
Salut, Il est plus judicieux d'aller sur le forum Excel pour cela mais voici un truc, tu peux remplacer Z1000 si tableau plus important dans cette macro Youky
nom = InputBox("A rechercher", "Recherche") If nom = "" Then Exit Sub For k = 1 To Sheets.Count With Sheets(k).[A1:Z1000] Set c = .Find(nom, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do Sheets(k).Select c.Activate rep = MsgBox("Continuer la recherche ?", 4 + 32, "Sélection") If rep = vbNo Then Exit Sub Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With Next MsgBox "Recherche terminée!"
"Gilbert.Milioto" a écrit dans le message de news: 42cc43e1$0$1248$
Bonjour,
le pb est le suivant qd je lance une recherche avec "Find" sur toutes les feuilles de mon classeur, le programme se plante (erreur 91) à partir de 2 recherches infructueuses.
Une recherche infructueuse ne plante pas le prog !
Je suis débutant en vba excel, et je ne comprend pas. Pouvez vous m'expliquer svp
Merci d'avance
Gilbert.Milioto
Cela va me servir. Merci beaucoup pour ton aide.
Encore merci. "Youky" a écrit dans le message de news:
Salut, Il est plus judicieux d'aller sur le forum Excel pour cela mais voici un truc, tu peux remplacer Z1000 si tableau plus important dans cette macro Youky
nom = InputBox("A rechercher", "Recherche") If nom = "" Then Exit Sub For k = 1 To Sheets.Count With Sheets(k).[A1:Z1000] Set c = .Find(nom, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do Sheets(k).Select c.Activate rep = MsgBox("Continuer la recherche ?", 4 + 32, "Sélection") If rep = vbNo Then Exit Sub Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With Next MsgBox "Recherche terminée!"
"Gilbert.Milioto" a écrit dans le message de news: 42cc43e1$0$1248$
Bonjour,
le pb est le suivant qd je lance une recherche avec "Find" sur toutes les feuilles de mon classeur, le programme se plante (erreur 91) à partir de 2 recherches infructueuses.
Une recherche infructueuse ne plante pas le prog !
Je suis débutant en vba excel, et je ne comprend pas. Pouvez vous m'expliquer svp
Merci d'avance
Cela va me servir.
Merci beaucoup pour ton aide.
Encore merci.
"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
Om14QftgFHA.3788@tk2msftngp13.phx.gbl...
Salut,
Il est plus judicieux d'aller sur le forum Excel pour cela mais voici un
truc,
tu peux remplacer Z1000 si tableau plus important dans cette macro
Youky
nom = InputBox("A rechercher", "Recherche")
If nom = "" Then Exit Sub
For k = 1 To Sheets.Count
With Sheets(k).[A1:Z1000]
Set c = .Find(nom, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets(k).Select
c.Activate
rep = MsgBox("Continuer la recherche ?", 4 + 32, "Sélection")
If rep = vbNo Then Exit Sub
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Next
MsgBox "Recherche terminée!"
"Gilbert.Milioto" <gilbert.milioto@wanadoo.fr> a écrit dans le message de
news: 42cc43e1$0$1248$8fcfb975@news.wanadoo.fr...
Bonjour,
le pb est le suivant
qd je lance une recherche avec "Find" sur toutes les feuilles de mon
classeur,
le programme se plante (erreur 91) à partir de 2 recherches
infructueuses.
Une recherche infructueuse ne plante pas le prog !
Je suis débutant en vba excel, et je ne comprend pas.
Pouvez vous m'expliquer svp
Encore merci. "Youky" a écrit dans le message de news:
Salut, Il est plus judicieux d'aller sur le forum Excel pour cela mais voici un truc, tu peux remplacer Z1000 si tableau plus important dans cette macro Youky
nom = InputBox("A rechercher", "Recherche") If nom = "" Then Exit Sub For k = 1 To Sheets.Count With Sheets(k).[A1:Z1000] Set c = .Find(nom, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do Sheets(k).Select c.Activate rep = MsgBox("Continuer la recherche ?", 4 + 32, "Sélection") If rep = vbNo Then Exit Sub Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With Next MsgBox "Recherche terminée!"
"Gilbert.Milioto" a écrit dans le message de news: 42cc43e1$0$1248$
Bonjour,
le pb est le suivant qd je lance une recherche avec "Find" sur toutes les feuilles de mon classeur, le programme se plante (erreur 91) à partir de 2 recherches infructueuses.
Une recherche infructueuse ne plante pas le prog !
Je suis débutant en vba excel, et je ne comprend pas. Pouvez vous m'expliquer svp
