Bonjour,
Pour reprendre un exemple simple :
Ceci fonctionne
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Mais tu ne peux utiliser la propriété "Activate" à un tableau de feuille
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Activate
Sauf si toutes tes feuilles sont sélectionnées et que tu veux rendre
active une feuille particulière tout en conservant la sélection intacte
alors tu peux écrire :
Sheets("Feuil2").Activate
"Michel MTO" a écrit dans le message de groupe
discussion : hu02r8$hvo$
Bonjour à toutes et à tous,
je voudrais écrire ceci, où MonAnnée et MaRecherche sont des variables,
la synthaxe n'est pas bonne :
Sheets(Array("Janvier " & MonAnnée , "Février " & MonAnnée, "Mars " _
& MonAnnée, "Avril " & MonAnnée, "Mai " & MonAnnée, "Juin " &
"Juillet " _
& MonAnnée, "Août " & MonAnnée, "Septembre " & MonAnnée, "Octobre " _
& MonAnnée, "Novembre " & MonAnnée, "Décembre " &
MonAnnée)).Find(What:=MaRecherche, after:¬tiveCell, LookIn:=xlValues,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse) _
.Activate
L'erreur retournée : Erreur d'exécution 438, Propriété ou méthode non
par cet objet !!
Pourriez vous m'indiquez la synthaxe exacte.
Merci par avance
Michel MTO
Bonjour,
Pour reprendre un exemple simple :
Ceci fonctionne
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Mais tu ne peux utiliser la propriété "Activate" à un tableau de feuille
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Activate
Sauf si toutes tes feuilles sont sélectionnées et que tu veux rendre
active une feuille particulière tout en conservant la sélection intacte
alors tu peux écrire :
Sheets("Feuil2").Activate
"Michel MTO" <comptabilite@olcoven.fr> a écrit dans le message de groupe
discussion : hu02r8$hvo$1@speranza.aioe.org...
Bonjour à toutes et à tous,
je voudrais écrire ceci, où MonAnnée et MaRecherche sont des variables,
la synthaxe n'est pas bonne :
Sheets(Array("Janvier " & MonAnnée , "Février " & MonAnnée, "Mars " _
& MonAnnée, "Avril " & MonAnnée, "Mai " & MonAnnée, "Juin " &
"Juillet " _
& MonAnnée, "Août " & MonAnnée, "Septembre " & MonAnnée, "Octobre " _
& MonAnnée, "Novembre " & MonAnnée, "Décembre " &
MonAnnée)).Find(What:=MaRecherche, after:¬tiveCell, LookIn:=xlValues,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse) _
.Activate
L'erreur retournée : Erreur d'exécution 438, Propriété ou méthode non
par cet objet !!
Pourriez vous m'indiquez la synthaxe exacte.
Merci par avance
Michel MTO
Bonjour,
Pour reprendre un exemple simple :
Ceci fonctionne
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Mais tu ne peux utiliser la propriété "Activate" à un tableau de feuille
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Activate
Sauf si toutes tes feuilles sont sélectionnées et que tu veux rendre
active une feuille particulière tout en conservant la sélection intacte
alors tu peux écrire :
Sheets("Feuil2").Activate
"Michel MTO" a écrit dans le message de groupe
discussion : hu02r8$hvo$
Bonjour à toutes et à tous,
je voudrais écrire ceci, où MonAnnée et MaRecherche sont des variables,
la synthaxe n'est pas bonne :
Sheets(Array("Janvier " & MonAnnée , "Février " & MonAnnée, "Mars " _
& MonAnnée, "Avril " & MonAnnée, "Mai " & MonAnnée, "Juin " &
"Juillet " _
& MonAnnée, "Août " & MonAnnée, "Septembre " & MonAnnée, "Octobre " _
& MonAnnée, "Novembre " & MonAnnée, "Décembre " &
MonAnnée)).Find(What:=MaRecherche, after:¬tiveCell, LookIn:=xlValues,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse) _
.Activate
L'erreur retournée : Erreur d'exécution 438, Propriété ou méthode non
par cet objet !!
Pourriez vous m'indiquez la synthaxe exacte.
Merci par avance
Michel MTO
Bonjour,
Pour reprendre un exemple simple :
Ceci fonctionne
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Mais tu ne peux utiliser la propriété "Activate" à un tableau de feuille
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Activate
Sauf si toutes tes feuilles sont sélectionnées et que tu veux rendre
active une feuille particulière tout en conservant la sélection intacte
alors tu peux écrire :
Sheets("Feuil2").Activate
"Michel MTO" a écrit dans le message de groupe
discussion : hu02r8$hvo$
Bonjour à toutes et à tous,
je voudrais écrire ceci, où MonAnnée et MaRecherche sont des variables,
la synthaxe n'est pas bonne :
Sheets(Array("Janvier " & MonAnnée , "Février " & MonAnnée, "Mars " _
& MonAnnée, "Avril " & MonAnnée, "Mai " & MonAnnée, "Juin " &
"Juillet " _
& MonAnnée, "Août " & MonAnnée, "Septembre " & MonAnnée, "Octobre " _
& MonAnnée, "Novembre " & MonAnnée, "Décembre " &
MonAnnée)).Find(What:=MaRecherche, after:¬tiveCell, LookIn:=xlValues,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse) _
.Activate
L'erreur retournée : Erreur d'exécution 438, Propriété ou méthode non
par cet objet !!
Pourriez vous m'indiquez la synthaxe exacte.
Merci par avance
Michel MTO
Bonjour,
Pour reprendre un exemple simple :
Ceci fonctionne
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Mais tu ne peux utiliser la propriété "Activate" à un tableau de feuille
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Activate
Sauf si toutes tes feuilles sont sélectionnées et que tu veux rendre
active une feuille particulière tout en conservant la sélection intacte
alors tu peux écrire :
Sheets("Feuil2").Activate
"Michel MTO" <comptabilite@olcoven.fr> a écrit dans le message de groupe
discussion : hu02r8$hvo$1@speranza.aioe.org...
Bonjour à toutes et à tous,
je voudrais écrire ceci, où MonAnnée et MaRecherche sont des variables,
la synthaxe n'est pas bonne :
Sheets(Array("Janvier " & MonAnnée , "Février " & MonAnnée, "Mars " _
& MonAnnée, "Avril " & MonAnnée, "Mai " & MonAnnée, "Juin " &
"Juillet " _
& MonAnnée, "Août " & MonAnnée, "Septembre " & MonAnnée, "Octobre " _
& MonAnnée, "Novembre " & MonAnnée, "Décembre " &
MonAnnée)).Find(What:=MaRecherche, after:¬tiveCell, LookIn:=xlValues,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse) _
.Activate
L'erreur retournée : Erreur d'exécution 438, Propriété ou méthode non
par cet objet !!
Pourriez vous m'indiquez la synthaxe exacte.
Merci par avance
Michel MTO
Bonjour,
Pour reprendre un exemple simple :
Ceci fonctionne
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Mais tu ne peux utiliser la propriété "Activate" à un tableau de feuille
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Activate
Sauf si toutes tes feuilles sont sélectionnées et que tu veux rendre
active une feuille particulière tout en conservant la sélection intacte
alors tu peux écrire :
Sheets("Feuil2").Activate
"Michel MTO" a écrit dans le message de groupe
discussion : hu02r8$hvo$
Bonjour à toutes et à tous,
je voudrais écrire ceci, où MonAnnée et MaRecherche sont des variables,
la synthaxe n'est pas bonne :
Sheets(Array("Janvier " & MonAnnée , "Février " & MonAnnée, "Mars " _
& MonAnnée, "Avril " & MonAnnée, "Mai " & MonAnnée, "Juin " &
"Juillet " _
& MonAnnée, "Août " & MonAnnée, "Septembre " & MonAnnée, "Octobre " _
& MonAnnée, "Novembre " & MonAnnée, "Décembre " &
MonAnnée)).Find(What:=MaRecherche, after:¬tiveCell, LookIn:=xlValues,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse) _
.Activate
L'erreur retournée : Erreur d'exécution 438, Propriété ou méthode non
par cet objet !!
Pourriez vous m'indiquez la synthaxe exacte.
Merci par avance
Michel MTO
Bonjour Denis,
Ce que je cherche à faire :
1) Sélectionner toutes les feuilles de janvier à décembre (avec la variante
sur l'année), qui se trouve dans mon classeur, dans lequel d'autres feuilles
existent.
2) Je propose une invite (MaRecherche=inputbox"(Entrer votre recherche"))
avec le texte à rechercher
3)Je recherche Dans les 12 feuilles de l'année et j'active la 1ère cellule
trouvée.
4) je fait apparaitre un msbox => est ce bien la cellule que vous
recherchez, si oui exit de la procèdure, sinon on continue la recherche
toujours dans les 12 feuilles et j'active l'occurence suivante trouvée => le
message réapparait => est ce bien la cellule que vous recherchez, si oui
exit de la procèdure, sinon on continue la recherche toujours dans les 12
feuilles et j'active l'occurence suivante trouvée, etc...
J'espère être clair
Merci
Michel MTO
"michdenis" a écrit dans le message de
news:Bonjour,
Pour reprendre un exemple simple :
Ceci fonctionne
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Mais tu ne peux utiliser la propriété "Activate" à un tableau de feuille
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Activate
Sauf si toutes tes feuilles sont sélectionnées et que tu veux rendre
active une feuille particulière tout en conservant la sélection intacte
alors tu peux écrire :
Sheets("Feuil2").Activate
"Michel MTO" a écrit dans le message de groupe
dediscussion : hu02r8$hvo$
Bonjour à toutes et à tous,
je voudrais écrire ceci, où MonAnnée et MaRecherche sont des variables,
maisla synthaxe n'est pas bonne :
Sheets(Array("Janvier "& MonAnnée , "Février "& MonAnnée, "Mars " _
& MonAnnée, "Avril "& MonAnnée, "Mai "& MonAnnée, "Juin "&
MonAnnée,"Juillet " _
& MonAnnée, "Août "& MonAnnée, "Septembre "& MonAnnée, "Octobre " _
& MonAnnée, "Novembre "& MonAnnée, "Décembre "&
MonAnnée)).Find(What:=MaRecherche, after:¬tiveCell, LookIn:=xlValues,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse) _
.Activate
L'erreur retournée : Erreur d'exécution 438, Propriété ou méthode non
géréepar cet objet !!
Pourriez vous m'indiquez la synthaxe exacte.
Merci par avance
Michel MTO
Bonjour Denis,
Ce que je cherche à faire :
1) Sélectionner toutes les feuilles de janvier à décembre (avec la variante
sur l'année), qui se trouve dans mon classeur, dans lequel d'autres feuilles
existent.
2) Je propose une invite (MaRecherche=inputbox"(Entrer votre recherche"))
avec le texte à rechercher
3)Je recherche Dans les 12 feuilles de l'année et j'active la 1ère cellule
trouvée.
4) je fait apparaitre un msbox => est ce bien la cellule que vous
recherchez, si oui exit de la procèdure, sinon on continue la recherche
toujours dans les 12 feuilles et j'active l'occurence suivante trouvée => le
message réapparait => est ce bien la cellule que vous recherchez, si oui
exit de la procèdure, sinon on continue la recherche toujours dans les 12
feuilles et j'active l'occurence suivante trouvée, etc...
J'espère être clair
Merci
Michel MTO
"michdenis"<michdenis@hotmail.com> a écrit dans le message de
news:exVC55KALHA.1888@TK2MSFTNGP05.phx.gbl...
Bonjour,
Pour reprendre un exemple simple :
Ceci fonctionne
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Mais tu ne peux utiliser la propriété "Activate" à un tableau de feuille
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Activate
Sauf si toutes tes feuilles sont sélectionnées et que tu veux rendre
active une feuille particulière tout en conservant la sélection intacte
alors tu peux écrire :
Sheets("Feuil2").Activate
"Michel MTO"<comptabilite@olcoven.fr> a écrit dans le message de groupe
de
discussion : hu02r8$hvo$1@speranza.aioe.org...
Bonjour à toutes et à tous,
je voudrais écrire ceci, où MonAnnée et MaRecherche sont des variables,
mais
la synthaxe n'est pas bonne :
Sheets(Array("Janvier "& MonAnnée , "Février "& MonAnnée, "Mars " _
& MonAnnée, "Avril "& MonAnnée, "Mai "& MonAnnée, "Juin "&
MonAnnée,
"Juillet " _
& MonAnnée, "Août "& MonAnnée, "Septembre "& MonAnnée, "Octobre " _
& MonAnnée, "Novembre "& MonAnnée, "Décembre "&
MonAnnée)).Find(What:=MaRecherche, after:¬tiveCell, LookIn:=xlValues,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse) _
.Activate
L'erreur retournée : Erreur d'exécution 438, Propriété ou méthode non
gérée
par cet objet !!
Pourriez vous m'indiquez la synthaxe exacte.
Merci par avance
Michel MTO
Bonjour Denis,
Ce que je cherche à faire :
1) Sélectionner toutes les feuilles de janvier à décembre (avec la variante
sur l'année), qui se trouve dans mon classeur, dans lequel d'autres feuilles
existent.
2) Je propose une invite (MaRecherche=inputbox"(Entrer votre recherche"))
avec le texte à rechercher
3)Je recherche Dans les 12 feuilles de l'année et j'active la 1ère cellule
trouvée.
4) je fait apparaitre un msbox => est ce bien la cellule que vous
recherchez, si oui exit de la procèdure, sinon on continue la recherche
toujours dans les 12 feuilles et j'active l'occurence suivante trouvée => le
message réapparait => est ce bien la cellule que vous recherchez, si oui
exit de la procèdure, sinon on continue la recherche toujours dans les 12
feuilles et j'active l'occurence suivante trouvée, etc...
J'espère être clair
Merci
Michel MTO
"michdenis" a écrit dans le message de
news:Bonjour,
Pour reprendre un exemple simple :
Ceci fonctionne
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Mais tu ne peux utiliser la propriété "Activate" à un tableau de feuille
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Activate
Sauf si toutes tes feuilles sont sélectionnées et que tu veux rendre
active une feuille particulière tout en conservant la sélection intacte
alors tu peux écrire :
Sheets("Feuil2").Activate
"Michel MTO" a écrit dans le message de groupe
dediscussion : hu02r8$hvo$
Bonjour à toutes et à tous,
je voudrais écrire ceci, où MonAnnée et MaRecherche sont des variables,
maisla synthaxe n'est pas bonne :
Sheets(Array("Janvier "& MonAnnée , "Février "& MonAnnée, "Mars " _
& MonAnnée, "Avril "& MonAnnée, "Mai "& MonAnnée, "Juin "&
MonAnnée,"Juillet " _
& MonAnnée, "Août "& MonAnnée, "Septembre "& MonAnnée, "Octobre " _
& MonAnnée, "Novembre "& MonAnnée, "Décembre "&
MonAnnée)).Find(What:=MaRecherche, after:¬tiveCell, LookIn:=xlValues,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse) _
.Activate
L'erreur retournée : Erreur d'exécution 438, Propriété ou méthode non
géréepar cet objet !!
Pourriez vous m'indiquez la synthaxe exacte.
Merci par avance
Michel MTO
Je te propose une procédure qui devrait faire ce que tu recherches.
Au sujet de la recherche, si la recherche doit se faire sur le contenu de
cellule entière plutôt que sur une partie de son contenu, tu dois modifier
le paramètre suivant :
LookAt:=xlPart pour LookAt:=xlWhole
'-------------------------------------
Sub SearchAllSheets()
Dim strSearchString As String
Dim ws As Worksheet
Dim foundCell As Range
Dim returnValue As Variant
Dim loopAddr As String
strSearchString = InputBox(Prompt:= _
"Entrer la chaîne recherchée.", _
Title:=ThisWorkbook.Name)
For Each ws In Worksheets
With ws
.Activate
Set foundCell = .Cells.Find( _
What:=strSearchString, _
LookIn:=xlValues, _
LookAt:=xlPart)
If Not foundCell Is Nothing Then
loopAddr = foundCell.Address
Do
foundCell.Activate
returnValue = MsgBox("Trouvé """ & strSearchString & _
""" à " & foundCell.Address, _
vbOKCancel, ActiveSheet.Name)
If returnValue = vbCancel Then Exit For
Set foundCell = .Cells.FindNext( _
After:=foundCell)
Loop While Not foundCell Is Nothing And _
foundCell.Address <> loopAddr
End If
End With
Next ws
End Sub
'-------------------------------------
"Michel MTO" a écrit dans le message de groupe
discussion : hu0em2$302$
Bonjour Denis,
Ce que je cherche à faire :
1) Sélectionner toutes les feuilles de janvier à décembre (avec la
sur l'année), qui se trouve dans mon classeur, dans lequel d'autres
existent.
2) Je propose une invite (MaRecherche=inputbox"(Entrer votre recherche"))
avec le texte à rechercher
3)Je recherche Dans les 12 feuilles de l'année et j'active la 1ère cellule
trouvée.
4) je fait apparaitre un msbox = > est ce bien la cellule que vous
recherchez, si oui exit de la procèdure, sinon on continue la recherche
toujours dans les 12 feuilles et j'active l'occurence suivante trouvée =>
message réapparait => est ce bien la cellule que vous recherchez, si oui
exit de la procèdure, sinon on continue la recherche toujours dans les 12
feuilles et j'active l'occurence suivante trouvée, etc...
J'espère être clair
Merci
Michel MTO
"michdenis" a écrit dans le message de
news:
> Bonjour,
>
> Pour reprendre un exemple simple :
>
> Ceci fonctionne
> Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
>
> Mais tu ne peux utiliser la propriété "Activate" à un tableau de feuille
> Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Activate
>
> Sauf si toutes tes feuilles sont sélectionnées et que tu veux rendre
> active une feuille particulière tout en conservant la sélection intacte
> alors tu peux écrire :
> Sheets("Feuil2").Activate
>
>
> "Michel MTO" a écrit dans le message de groupe
de
> discussion : hu02r8$hvo$
> Bonjour à toutes et à tous,
>
> je voudrais écrire ceci, où MonAnnée et MaRecherche sont des variables,
mais
> la synthaxe n'est pas bonne :
>
> Sheets(Array("Janvier " & MonAnnée , "Février " & MonAnnée, "Mars "
> & MonAnnée, "Avril " & MonAnnée, "Mai " & MonAnnée, "Juin " &
MonAnnée,
> "Juillet " _
> & MonAnnée, "Août " & MonAnnée, "Septembre " & MonAnnée, "Octobre "
> & MonAnnée, "Novembre " & MonAnnée, "Décembre " &
> MonAnnée)).Find(What:=MaRecherche, after:¬tiveCell, LookIn:=xlValues,
> LookAt:= _
> xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
> MatchCase:úlse) _
> .Activate
>
> L'erreur retournée : Erreur d'exécution 438, Propriété ou méthode non
gérée
> par cet objet !!
>
> Pourriez vous m'indiquez la synthaxe exacte.
>
> Merci par avance
>
> Michel MTO
>
Je te propose une procédure qui devrait faire ce que tu recherches.
Au sujet de la recherche, si la recherche doit se faire sur le contenu de
cellule entière plutôt que sur une partie de son contenu, tu dois modifier
le paramètre suivant :
LookAt:=xlPart pour LookAt:=xlWhole
'-------------------------------------
Sub SearchAllSheets()
Dim strSearchString As String
Dim ws As Worksheet
Dim foundCell As Range
Dim returnValue As Variant
Dim loopAddr As String
strSearchString = InputBox(Prompt:= _
"Entrer la chaîne recherchée.", _
Title:=ThisWorkbook.Name)
For Each ws In Worksheets
With ws
.Activate
Set foundCell = .Cells.Find( _
What:=strSearchString, _
LookIn:=xlValues, _
LookAt:=xlPart)
If Not foundCell Is Nothing Then
loopAddr = foundCell.Address
Do
foundCell.Activate
returnValue = MsgBox("Trouvé """ & strSearchString & _
""" à " & foundCell.Address, _
vbOKCancel, ActiveSheet.Name)
If returnValue = vbCancel Then Exit For
Set foundCell = .Cells.FindNext( _
After:=foundCell)
Loop While Not foundCell Is Nothing And _
foundCell.Address <> loopAddr
End If
End With
Next ws
End Sub
'-------------------------------------
"Michel MTO" <comptabilite@olcoven.fr> a écrit dans le message de groupe
discussion : hu0em2$302$1@speranza.aioe.org...
Bonjour Denis,
Ce que je cherche à faire :
1) Sélectionner toutes les feuilles de janvier à décembre (avec la
sur l'année), qui se trouve dans mon classeur, dans lequel d'autres
existent.
2) Je propose une invite (MaRecherche=inputbox"(Entrer votre recherche"))
avec le texte à rechercher
3)Je recherche Dans les 12 feuilles de l'année et j'active la 1ère cellule
trouvée.
4) je fait apparaitre un msbox = > est ce bien la cellule que vous
recherchez, si oui exit de la procèdure, sinon on continue la recherche
toujours dans les 12 feuilles et j'active l'occurence suivante trouvée =>
message réapparait => est ce bien la cellule que vous recherchez, si oui
exit de la procèdure, sinon on continue la recherche toujours dans les 12
feuilles et j'active l'occurence suivante trouvée, etc...
J'espère être clair
Merci
Michel MTO
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:exVC55KALHA.1888@TK2MSFTNGP05.phx.gbl...
> Bonjour,
>
> Pour reprendre un exemple simple :
>
> Ceci fonctionne
> Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
>
> Mais tu ne peux utiliser la propriété "Activate" à un tableau de feuille
> Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Activate
>
> Sauf si toutes tes feuilles sont sélectionnées et que tu veux rendre
> active une feuille particulière tout en conservant la sélection intacte
> alors tu peux écrire :
> Sheets("Feuil2").Activate
>
>
> "Michel MTO" <comptabilite@olcoven.fr> a écrit dans le message de groupe
de
> discussion : hu02r8$hvo$1@speranza.aioe.org...
> Bonjour à toutes et à tous,
>
> je voudrais écrire ceci, où MonAnnée et MaRecherche sont des variables,
mais
> la synthaxe n'est pas bonne :
>
> Sheets(Array("Janvier " & MonAnnée , "Février " & MonAnnée, "Mars "
> & MonAnnée, "Avril " & MonAnnée, "Mai " & MonAnnée, "Juin " &
MonAnnée,
> "Juillet " _
> & MonAnnée, "Août " & MonAnnée, "Septembre " & MonAnnée, "Octobre "
> & MonAnnée, "Novembre " & MonAnnée, "Décembre " &
> MonAnnée)).Find(What:=MaRecherche, after:¬tiveCell, LookIn:=xlValues,
> LookAt:= _
> xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
> MatchCase:úlse) _
> .Activate
>
> L'erreur retournée : Erreur d'exécution 438, Propriété ou méthode non
gérée
> par cet objet !!
>
> Pourriez vous m'indiquez la synthaxe exacte.
>
> Merci par avance
>
> Michel MTO
>
Je te propose une procédure qui devrait faire ce que tu recherches.
Au sujet de la recherche, si la recherche doit se faire sur le contenu de
cellule entière plutôt que sur une partie de son contenu, tu dois modifier
le paramètre suivant :
LookAt:=xlPart pour LookAt:=xlWhole
'-------------------------------------
Sub SearchAllSheets()
Dim strSearchString As String
Dim ws As Worksheet
Dim foundCell As Range
Dim returnValue As Variant
Dim loopAddr As String
strSearchString = InputBox(Prompt:= _
"Entrer la chaîne recherchée.", _
Title:=ThisWorkbook.Name)
For Each ws In Worksheets
With ws
.Activate
Set foundCell = .Cells.Find( _
What:=strSearchString, _
LookIn:=xlValues, _
LookAt:=xlPart)
If Not foundCell Is Nothing Then
loopAddr = foundCell.Address
Do
foundCell.Activate
returnValue = MsgBox("Trouvé """ & strSearchString & _
""" à " & foundCell.Address, _
vbOKCancel, ActiveSheet.Name)
If returnValue = vbCancel Then Exit For
Set foundCell = .Cells.FindNext( _
After:=foundCell)
Loop While Not foundCell Is Nothing And _
foundCell.Address <> loopAddr
End If
End With
Next ws
End Sub
'-------------------------------------
"Michel MTO" a écrit dans le message de groupe
discussion : hu0em2$302$
Bonjour Denis,
Ce que je cherche à faire :
1) Sélectionner toutes les feuilles de janvier à décembre (avec la
sur l'année), qui se trouve dans mon classeur, dans lequel d'autres
existent.
2) Je propose une invite (MaRecherche=inputbox"(Entrer votre recherche"))
avec le texte à rechercher
3)Je recherche Dans les 12 feuilles de l'année et j'active la 1ère cellule
trouvée.
4) je fait apparaitre un msbox = > est ce bien la cellule que vous
recherchez, si oui exit de la procèdure, sinon on continue la recherche
toujours dans les 12 feuilles et j'active l'occurence suivante trouvée =>
message réapparait => est ce bien la cellule que vous recherchez, si oui
exit de la procèdure, sinon on continue la recherche toujours dans les 12
feuilles et j'active l'occurence suivante trouvée, etc...
J'espère être clair
Merci
Michel MTO
"michdenis" a écrit dans le message de
news:
> Bonjour,
>
> Pour reprendre un exemple simple :
>
> Ceci fonctionne
> Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
>
> Mais tu ne peux utiliser la propriété "Activate" à un tableau de feuille
> Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Activate
>
> Sauf si toutes tes feuilles sont sélectionnées et que tu veux rendre
> active une feuille particulière tout en conservant la sélection intacte
> alors tu peux écrire :
> Sheets("Feuil2").Activate
>
>
> "Michel MTO" a écrit dans le message de groupe
de
> discussion : hu02r8$hvo$
> Bonjour à toutes et à tous,
>
> je voudrais écrire ceci, où MonAnnée et MaRecherche sont des variables,
mais
> la synthaxe n'est pas bonne :
>
> Sheets(Array("Janvier " & MonAnnée , "Février " & MonAnnée, "Mars "
> & MonAnnée, "Avril " & MonAnnée, "Mai " & MonAnnée, "Juin " &
MonAnnée,
> "Juillet " _
> & MonAnnée, "Août " & MonAnnée, "Septembre " & MonAnnée, "Octobre "
> & MonAnnée, "Novembre " & MonAnnée, "Décembre " &
> MonAnnée)).Find(What:=MaRecherche, after:¬tiveCell, LookIn:=xlValues,
> LookAt:= _
> xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
> MatchCase:úlse) _
> .Activate
>
> L'erreur retournée : Erreur d'exécution 438, Propriété ou méthode non
gérée
> par cet objet !!
>
> Pourriez vous m'indiquez la synthaxe exacte.
>
> Merci par avance
>
> Michel MTO
>