Critères génériques et portabilité.

Bonjour,
J'ai dû utiliser une fonction similaire pour des version Excel françasie
et anglaise il y a 3 ans.
Je vais faire des recherches et l'envoyé tout à l'heure si personne
entre-temps n'a répondu à cette question.
Toutefois, je viens de faire une recherche rapide sur Google
http://groups.google.com/advanced_group_search
En tapant "vba langue utilisateur"
Voici le code que j'y ai trouvé. Il y a de trop pour ton cas, mais il y
suffit de prendre ce qui t'arrange.
Philippe

********************************************************
Option Explicit

Private Const LOCALE_USER_DEFAULT As Long = &H400

Private Enum eLocaleSettings
lsILanguage = &H1 ' language id
lsSLanguage = &H2 ' localized Name of Language
lsSAbbrevLangName = &H3 ' Abbreviated Language Name
lsSNativeLangName = &H4 ' Native Name of Language
lsICountry = &H5 ' country code
lsSCountry = &H6 ' localized Name of Country
lsSAbbrevCtryName = &H7 ' abbreviated country Name
lsSNativeCtryName = &H8 ' Native Name of Country
lsIDefaultLanguage = &H9 ' default language id
lsIDefaultCountry = &HA ' default country code
lsIDefaultCodePage = &HB ' default code page
lsSList = &HC ' List item separator
lsSDecimal = &HE ' Decimal separator
lsIMeasure = &HD ' 0 = metric, 1 = US
lsSThousand = &HF ' thousand separator
lsSGrouping = &H10 ' digit Grouping
lsIDigits = &H11 ' number of fractional digits
lsILZero = &H12 ' leading zeros for decimal
lsSNativeDigits = &H13 ' Native ascii 0-9
lsSCurrency = &H14 ' local Monetary Symbol
lsSIntlSymbol = &H15 ' Intl Monetary Symbol
lsSMonDecimalSEP = &H16 ' Monetary Decimal separator
lsSMonGrouping = &H18 ' Monetary Grouping
lsSMonThousandSep = &H17 ' Monetary thousand separator
lsICurrDigits = &H19 ' # local monetary digits
lsIIntlCurrDigits = &H1A ' # intl monetary digits
lsICurrency = &H1B ' positive currency mode
lsINegCurr = &H1C ' negative currency mode
lsSTime = &H1E ' Time separator
lsSShortDate = &H1F ' short Date format string
lsIDate = &H21 ' short date format ordering
lsILDate = &H22 ' long date format ordering
lsITime = &H23 ' time format specifier
lsICentury = &H24 ' century format specifier
lsITLZero = &H25 ' leading zeros in time field
lsIDayLZero = &H26 ' leading zeros in day field
lsIMonlZero = &H27 ' leading zeros in month field
lsS1159 = &H28 ' AM designator
lsS2359 = &H29 ' PM designator
lsSDayName1 = &H2A ' Long Name for MonDay
lsSDayName2 = &H2B ' Long Name for TuesDay
lsSDayName3 = &H2C ' Long Name for WednesDay
lsSDayName4 = &H2D ' Long Name for ThursDay
lsSDayName5 = &H2E ' Long Name for FriDay
lsSDayName6 = &H2F ' Long Name for SaturDay
lsSDayName7 = &H30 ' Long Name for SunDay
lsSAbbrevDayName1 = &H31 ' abbreviated Name for MonDay
lsSAbbrevDayName2 = &H32 ' Abbreviated Name for TuesDay
lsSAbbrevDayName3 = &H33 ' Abbreviated Name for WednesDay
lsSAbbrevDayName4 = &H34 ' Abbreviated Name for ThursDay
lsSAbbrevDayName5 = &H35 ' Abbreviated Name for FriDay
lsSAbbrevDayName6 = &H36 ' Abbreviated Name for SaturDay
lsSAbbrevDayName7 = &H37 ' Abbreviated Name for SunDay
lsSMonthName1 = &H38 ' Long Name for January
lsSMonthName2 = &H39 ' Long Name for February
lsSMonthName3 = &H3A ' Long Name for March
lsSMonthName4 = &H3B ' Long Name for April
lsSMonthName5 = &H3C ' Long Name for May
lsSMonthName6 = &H3D ' Long Name for June
lsSMonthName7 = &H3E ' Long Name for July
lsSMonthName8 = &H3F ' Long Name for August
lsSMonthName9 = &H40 ' Long Name for September
lsSMonthName10 = &H41 ' Long Name for October
lsSMonthName11 = &H42 ' Long Name for November
lsSMonthName12 = &H43 ' Long Name for December
lsSAbbrevMonthName1 = &H44 ' Abbreviated Name for January
lsSAbbrevMonthName2 = &H45 ' Abbreviated Name for February
lsSAbbrevMonthName3 = &H46 ' Abbreviated Name for March
lsSAbbrevMonthName4 = &H47 ' Abbreviated Name for April
lsSAbbrevMonthName5 = &H48 ' Abbreviated Name for May
lsSAbbrevMonthName6 = &H49 ' Abbreviated Name for June
lsSAbbrevMonthName7 = &H4A ' Abbreviated Name for July
lsSAbbrevMonthName8 = &H4B ' Abbreviated Name for August
lsSAbbrevMonthName9 = &H4C ' Abbreviated Name for September
lsSAbbrevMonthName10 = &H4D ' Abbreviated Name for October
lsSAbbrevMonthName11 = &H4E ' Abbreviated Name for November
lsSAbbrevMonthName12 = &H4F ' Abbreviated Name for December
lsSPositiveSign = &H50 ' positive Sign
lsSNegativeSign = &H51 ' negative Sign
lsIPosSignPos = &H52 ' positive sign position
lsINegSignPos = &H53 ' negative sign position
lsIPosSymPrecedes = &H54 ' mon sym precedes pos amt
lsIPosSepBySpace = &H55 ' mon sym sep by space from pos amt
lsINegSymPrecedes = &H56 ' mon sym precedes neg amt
lsINegSepBYSPACE = &H57 ' mon sym sep by space from neg amt
lsSEngLanguage = &H1001 ' English Name of Language
lsSEngCountry = &H1002 ' English Name of Country
lsSTimeFormat = &H1003 ' Time format string
lsNoUserOverride = &H80000000 ' do not use user overrides
End Enum

Private Declare Function GetLocaleInfoA _
Lib "kernel32" _
( _
ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long _
) As Long

Private Function GetLocaleInfo(ByRef ls As eLocaleSettings) As String
GetLocaleInfo = Space$(256)
GetLocaleInfo = Left$(GetLocaleInfo, GetLocaleInfoA(LOCALE_USER_DEFAULT,
ls, GetLocaleInfo, 256))
End Function

Private Sub Main()
Debug.Print GetLocaleInfo(lsSList) ' Renvoit le séparateur de liste
End Sub

**************************************************

"Mersenne" <fa602502@skynet.be> a écrit dans le message de news:
%23HJ4E1fZGHA.3448@TK2MSFTNGP04.phx.gbl...

Bonjour.

Il résulte d'une réponse que m'a faite Circé sur le fil "Non-bug des
critères génériques" que la recherche des critères génériques doit être
rédigée différemment selon les options linguistiques.

Quelqu'un peut-il me dire comment il faut rédiger une telle recherche dans
une macro pour qu'elle fonctionne correctement quelles que soient les
options linguistiques de l'utilisateur ?

Merci d'avance.

M.

Bonjour Philippe,

Anacoluthe, qui sait plein de coses..., m'a expliqué un jour que c'est
possible de le faire en VBA... et même que 'est pas compliqué !
En effet, le séparateur de liste s’obtient avec
SepListe$ = Application.International(wdListSeparator)

Je suis gentille de donner la solution ici, vu la manière dont
anacoluthe s'est fait traité par mersenne... :s

Circé


Corona a utilisé son clavier pour écrire :

Bonjour,
J'ai dû utiliser une fonction similaire pour des version Excel
françasie et anglaise il y a 3 ans.
Je vais faire des recherches et l'envoyé tout à l'heure si
personne entre-temps n'a répondu à cette question.
Toutefois, je viens de faire une recherche rapide sur Google
http://groups.google.com/advanced_group_search
En tapant "vba langue utilisateur"
Voici le code que j'y ai trouvé. Il y a de trop pour ton cas,
mais il y suffit de prendre ce qui t'arrange.
Philippe

********************************************************
Option Explicit

Private Const LOCALE_USER_DEFAULT As Long = &H400

Private Enum eLocaleSettings
lsILanguage = &H1 ' language id
lsSLanguage = &H2 ' localized Name of Language
lsSAbbrevLangName = &H3 ' Abbreviated Language Name
lsSNativeLangName = &H4 ' Native Name of Language
lsICountry = &H5 ' country code
lsSCountry = &H6 ' localized Name of Country
lsSAbbrevCtryName = &H7 ' abbreviated country Name
lsSNativeCtryName = &H8 ' Native Name of Country
lsIDefaultLanguage = &H9 ' default language id
lsIDefaultCountry = &HA ' default country code
lsIDefaultCodePage = &HB ' default code page
lsSList = &HC ' List item separator
lsSDecimal = &HE ' Decimal separator
lsIMeasure = &HD ' 0 = metric, 1 = US
lsSThousand = &HF ' thousand separator
lsSGrouping = &H10 ' digit Grouping
lsIDigits = &H11 ' number of fractional digits
lsILZero = &H12 ' leading zeros for decimal
lsSNativeDigits = &H13 ' Native ascii 0-9
lsSCurrency = &H14 ' local Monetary Symbol
lsSIntlSymbol = &H15 ' Intl Monetary Symbol
lsSMonDecimalSEP = &H16 ' Monetary Decimal separator
lsSMonGrouping = &H18 ' Monetary Grouping
lsSMonThousandSep = &H17 ' Monetary thousand separator
lsICurrDigits = &H19 ' # local monetary digits
lsIIntlCurrDigits = &H1A ' # intl monetary digits
lsICurrency = &H1B ' positive currency mode
lsINegCurr = &H1C ' negative currency mode
lsSTime = &H1E ' Time separator
lsSShortDate = &H1F ' short Date format string
lsIDate = &H21 ' short date format ordering
lsILDate = &H22 ' long date format ordering
lsITime = &H23 ' time format specifier
lsICentury = &H24 ' century format specifier
lsITLZero = &H25 ' leading zeros in time field
lsIDayLZero = &H26 ' leading zeros in day field
lsIMonlZero = &H27 ' leading zeros in month field
lsS1159 = &H28 ' AM designator
lsS2359 = &H29 ' PM designator
lsSDayName1 = &H2A ' Long Name for MonDay
lsSDayName2 = &H2B ' Long Name for TuesDay
lsSDayName3 = &H2C ' Long Name for WednesDay
lsSDayName4 = &H2D ' Long Name for ThursDay
lsSDayName5 = &H2E ' Long Name for FriDay
lsSDayName6 = &H2F ' Long Name for SaturDay
lsSDayName7 = &H30 ' Long Name for SunDay
lsSAbbrevDayName1 = &H31 ' abbreviated Name for MonDay
lsSAbbrevDayName2 = &H32 ' Abbreviated Name for TuesDay
lsSAbbrevDayName3 = &H33 ' Abbreviated Name for WednesDay
lsSAbbrevDayName4 = &H34 ' Abbreviated Name for ThursDay
lsSAbbrevDayName5 = &H35 ' Abbreviated Name for FriDay
lsSAbbrevDayName6 = &H36 ' Abbreviated Name for SaturDay
lsSAbbrevDayName7 = &H37 ' Abbreviated Name for SunDay
lsSMonthName1 = &H38 ' Long Name for January
lsSMonthName2 = &H39 ' Long Name for February
lsSMonthName3 = &H3A ' Long Name for March
lsSMonthName4 = &H3B ' Long Name for April
lsSMonthName5 = &H3C ' Long Name for May
lsSMonthName6 = &H3D ' Long Name for June
lsSMonthName7 = &H3E ' Long Name for July
lsSMonthName8 = &H3F ' Long Name for August
lsSMonthName9 = &H40 ' Long Name for September
lsSMonthName10 = &H41 ' Long Name for October
lsSMonthName11 = &H42 ' Long Name for November
lsSMonthName12 = &H43 ' Long Name for December
lsSAbbrevMonthName1 = &H44 ' Abbreviated Name for January
lsSAbbrevMonthName2 = &H45 ' Abbreviated Name for
February
lsSAbbrevMonthName3 = &H46 ' Abbreviated Name for March
lsSAbbrevMonthName4 = &H47 ' Abbreviated Name for April
lsSAbbrevMonthName5 = &H48 ' Abbreviated Name for May
lsSAbbrevMonthName6 = &H49 ' Abbreviated Name for June
lsSAbbrevMonthName7 = &H4A ' Abbreviated Name for July
lsSAbbrevMonthName8 = &H4B ' Abbreviated Name for August
lsSAbbrevMonthName9 = &H4C ' Abbreviated Name for
September
lsSAbbrevMonthName10 = &H4D ' Abbreviated Name for
October
lsSAbbrevMonthName11 = &H4E ' Abbreviated Name for
November
lsSAbbrevMonthName12 = &H4F ' Abbreviated Name for
December
lsSPositiveSign = &H50 ' positive Sign
lsSNegativeSign = &H51 ' negative Sign
lsIPosSignPos = &H52 ' positive sign position
lsINegSignPos = &H53 ' negative sign position
lsIPosSymPrecedes = &H54 ' mon sym precedes pos amt
lsIPosSepBySpace = &H55 ' mon sym sep by space from pos
amt
lsINegSymPrecedes = &H56 ' mon sym precedes neg amt
lsINegSepBYSPACE = &H57 ' mon sym sep by space from neg
amt
lsSEngLanguage = &H1001 ' English Name of Language
lsSEngCountry = &H1002 ' English Name of Country
lsSTimeFormat = &H1003 ' Time format string
lsNoUserOverride = &H80000000 ' do not use user overrides
End Enum

Private Declare Function GetLocaleInfoA _
Lib "kernel32" _
( _
ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long _
) As Long

Private Function GetLocaleInfo(ByRef ls As eLocaleSettings) As String
GetLocaleInfo = Space$(256)
GetLocaleInfo = Left$(GetLocaleInfo,
GetLocaleInfoA(LOCALE_USER_DEFAULT, ls, GetLocaleInfo, 256))
End Function

Private Sub Main()
Debug.Print GetLocaleInfo(lsSList) ' Renvoit le séparateur de
liste
End Sub

**************************************************

"Mersenne" <fa602502@skynet.be> a écrit dans le message de news:
%23HJ4E1fZGHA.3448@TK2MSFTNGP04.phx.gbl...

Bonjour.

Il résulte d'une réponse que m'a faite Circé sur le fil "Non-bug
des critères génériques" que la recherche des critères génériques
doit être rédigée différemment selon les options linguistiques.

Quelqu'un peut-il me dire comment il faut rédiger une telle
recherche dans une macro pour qu'elle fonctionne correctement
quelles que soient les options linguistiques de l'utilisateur ?

Merci d'avance.

M.

"Corona" <Philippe Tulliez> a écrit dans le message de news:
eoy42FgZGHA.3972@TK2MSFTNGP04.phx.gbl...

Bonjour,
J'ai dû utiliser une fonction similaire pour des version Excel
françasie et anglaise il y a 3 ans.
Je vais faire des recherches et l'envoyé tout à l'heure si personne
entre-temps n'a répondu à cette question.
Toutefois, je viens de faire une recherche rapide sur Google
http://groups.google.com/advanced_group_search
En tapant "vba langue utilisateur"
Voici le code que j'y ai trouvé. Il y a de trop pour ton cas, mais il y
suffit de prendre ce qui t'arrange.
Philippe

Merci beaucoup.

Je vais examiner cela à l'aise après quelques courses urgentes.

M.

Bonjour Circé,

En effet, le séparateur de liste s'obtient avec SepListe$ =
Application.International(wdListSeparator)

Je ne revenais plus sur l'instruction exacte. Quand j'hésite, une petite
recherche rapide sur Google et le tour est joué.

Je suis gentille de donner la solution ici, vu la manière dont
anacoluthe s'est fait traité par mersenne... :s

Et pour facher anacoluthe, il en faut beaucoup.
Philippe

"Circé" <circe@aea.gr> a écrit dans le message de news:
mn.b3497d64d7b0d35c.20493@aea.gr...

Bonjour Philippe,

Anacoluthe, qui sait plein de coses..., m'a expliqué un jour que c'est
possible de le faire en VBA... et même que 'est pas compliqué !
En effet, le séparateur de liste s'obtient avec
SepListe$ = Application.International(wdListSeparator)

Je suis gentille de donner la solution ici, vu la manière dont anacoluthe
s'est fait traité par mersenne... :s

Circé


Corona a utilisé son clavier pour écrire :

Bonjour,
J'ai dû utiliser une fonction similaire pour des version Excel
françasie et anglaise il y a 3 ans.
Je vais faire des recherches et l'envoyé tout à l'heure si personne
entre-temps n'a répondu à cette question.
Toutefois, je viens de faire une recherche rapide sur Google
http://groups.google.com/advanced_group_search
En tapant "vba langue utilisateur"
Voici le code que j'y ai trouvé. Il y a de trop pour ton cas, mais il
y suffit de prendre ce qui t'arrange.
Philippe

********************************************************
Option Explicit

Private Const LOCALE_USER_DEFAULT As Long = &H400

Private Enum eLocaleSettings
lsILanguage = &H1 ' language id
lsSLanguage = &H2 ' localized Name of Language
lsSAbbrevLangName = &H3 ' Abbreviated Language Name
lsSNativeLangName = &H4 ' Native Name of Language
lsICountry = &H5 ' country code
lsSCountry = &H6 ' localized Name of Country
lsSAbbrevCtryName = &H7 ' abbreviated country Name
lsSNativeCtryName = &H8 ' Native Name of Country
lsIDefaultLanguage = &H9 ' default language id
lsIDefaultCountry = &HA ' default country code
lsIDefaultCodePage = &HB ' default code page
lsSList = &HC ' List item separator
lsSDecimal = &HE ' Decimal separator
lsIMeasure = &HD ' 0 = metric, 1 = US
lsSThousand = &HF ' thousand separator
lsSGrouping = &H10 ' digit Grouping
lsIDigits = &H11 ' number of fractional digits
lsILZero = &H12 ' leading zeros for decimal
lsSNativeDigits = &H13 ' Native ascii 0-9
lsSCurrency = &H14 ' local Monetary Symbol
lsSIntlSymbol = &H15 ' Intl Monetary Symbol
lsSMonDecimalSEP = &H16 ' Monetary Decimal separator
lsSMonGrouping = &H18 ' Monetary Grouping
lsSMonThousandSep = &H17 ' Monetary thousand separator
lsICurrDigits = &H19 ' # local monetary digits
lsIIntlCurrDigits = &H1A ' # intl monetary digits
lsICurrency = &H1B ' positive currency mode
lsINegCurr = &H1C ' negative currency mode
lsSTime = &H1E ' Time separator
lsSShortDate = &H1F ' short Date format string
lsIDate = &H21 ' short date format ordering
lsILDate = &H22 ' long date format ordering
lsITime = &H23 ' time format specifier
lsICentury = &H24 ' century format specifier
lsITLZero = &H25 ' leading zeros in time field
lsIDayLZero = &H26 ' leading zeros in day field
lsIMonlZero = &H27 ' leading zeros in month field
lsS1159 = &H28 ' AM designator
lsS2359 = &H29 ' PM designator
lsSDayName1 = &H2A ' Long Name for MonDay
lsSDayName2 = &H2B ' Long Name for TuesDay
lsSDayName3 = &H2C ' Long Name for WednesDay
lsSDayName4 = &H2D ' Long Name for ThursDay
lsSDayName5 = &H2E ' Long Name for FriDay
lsSDayName6 = &H2F ' Long Name for SaturDay
lsSDayName7 = &H30 ' Long Name for SunDay
lsSAbbrevDayName1 = &H31 ' abbreviated Name for MonDay
lsSAbbrevDayName2 = &H32 ' Abbreviated Name for TuesDay
lsSAbbrevDayName3 = &H33 ' Abbreviated Name for WednesDay
lsSAbbrevDayName4 = &H34 ' Abbreviated Name for ThursDay
lsSAbbrevDayName5 = &H35 ' Abbreviated Name for FriDay
lsSAbbrevDayName6 = &H36 ' Abbreviated Name for SaturDay
lsSAbbrevDayName7 = &H37 ' Abbreviated Name for SunDay
lsSMonthName1 = &H38 ' Long Name for January
lsSMonthName2 = &H39 ' Long Name for February
lsSMonthName3 = &H3A ' Long Name for March
lsSMonthName4 = &H3B ' Long Name for April
lsSMonthName5 = &H3C ' Long Name for May
lsSMonthName6 = &H3D ' Long Name for June
lsSMonthName7 = &H3E ' Long Name for July
lsSMonthName8 = &H3F ' Long Name for August
lsSMonthName9 = &H40 ' Long Name for September
lsSMonthName10 = &H41 ' Long Name for October
lsSMonthName11 = &H42 ' Long Name for November
lsSMonthName12 = &H43 ' Long Name for December
lsSAbbrevMonthName1 = &H44 ' Abbreviated Name for January
lsSAbbrevMonthName2 = &H45 ' Abbreviated Name for February
lsSAbbrevMonthName3 = &H46 ' Abbreviated Name for March
lsSAbbrevMonthName4 = &H47 ' Abbreviated Name for April
lsSAbbrevMonthName5 = &H48 ' Abbreviated Name for May
lsSAbbrevMonthName6 = &H49 ' Abbreviated Name for June
lsSAbbrevMonthName7 = &H4A ' Abbreviated Name for July
lsSAbbrevMonthName8 = &H4B ' Abbreviated Name for August
lsSAbbrevMonthName9 = &H4C ' Abbreviated Name for September
lsSAbbrevMonthName10 = &H4D ' Abbreviated Name for October
lsSAbbrevMonthName11 = &H4E ' Abbreviated Name for November
lsSAbbrevMonthName12 = &H4F ' Abbreviated Name for December
lsSPositiveSign = &H50 ' positive Sign
lsSNegativeSign = &H51 ' negative Sign
lsIPosSignPos = &H52 ' positive sign position
lsINegSignPos = &H53 ' negative sign position
lsIPosSymPrecedes = &H54 ' mon sym precedes pos amt
lsIPosSepBySpace = &H55 ' mon sym sep by space from pos amt
lsINegSymPrecedes = &H56 ' mon sym precedes neg amt
lsINegSepBYSPACE = &H57 ' mon sym sep by space from neg amt
lsSEngLanguage = &H1001 ' English Name of Language
lsSEngCountry = &H1002 ' English Name of Country
lsSTimeFormat = &H1003 ' Time format string
lsNoUserOverride = &H80000000 ' do not use user overrides
End Enum

Private Declare Function GetLocaleInfoA _
Lib "kernel32" _
( _
ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long _
) As Long

Private Function GetLocaleInfo(ByRef ls As eLocaleSettings) As String
GetLocaleInfo = Space$(256)
GetLocaleInfo = Left$(GetLocaleInfo,
GetLocaleInfoA(LOCALE_USER_DEFAULT, ls, GetLocaleInfo, 256))
End Function

Private Sub Main()
Debug.Print GetLocaleInfo(lsSList) ' Renvoit le séparateur de liste
End Sub

**************************************************

"Mersenne" <fa602502@skynet.be> a écrit dans le message de news:
%23HJ4E1fZGHA.3448@TK2MSFTNGP04.phx.gbl...

Bonjour.

Il résulte d'une réponse que m'a faite Circé sur le fil "Non-bug des
critères génériques" que la recherche des critères génériques doit être
rédigée différemment selon les options linguistiques.

Quelqu'un peut-il me dire comment il faut rédiger une telle recherche
dans une macro pour qu'elle fonctionne correctement quelles que soient
les options linguistiques de l'utilisateur ?

Merci d'avance.

M.

"Circé" <circe@aea.gr> a écrit dans le message de news:
mn.b3497d64d7b0d35c.20493@aea.gr...

En effet, le séparateur de liste s'obtient avec
SepListe$ = Application.International(wdListSeparator)

Il faudrait donc faire une variable représentant
Application.International(wdListSeparator)
ou utiliser cette expression elle-même.
Quelqu'un peut-il me dire comment on utilise un nom de variable ou de
propriété dans la recherche par critères génériques ?

Merci d'avance.

M.

Bonjour,
Je suppose que ceci doit fonctionner.
sr = String(3, 32) & "(2" & Application.International(wdListSeparator) &
")"
Selection.Find.Execute FindText:=sr, Forward:=True,
Wrap:=wdFindContinue, ReplaceWith:=" ", Replace:=wdReplaceAll
Philippe

"Mersenne" <fa602502@skynet.be> a écrit dans le message de news:
%232eou4gZGHA.4936@TK2MSFTNGP05.phx.gbl...

"Circé" <circe@aea.gr> a écrit dans le message de news:
mn.b3497d64d7b0d35c.20493@aea.gr...

En effet, le séparateur de liste s'obtient avec
SepListe$ = Application.International(wdListSeparator)

Il faudrait donc faire une variable représentant
Application.International(wdListSeparator)
ou utiliser cette expression elle-même.
Quelqu'un peut-il me dire comment on utilise un nom de variable ou de
propriété dans la recherche par critères génériques ?

Merci d'avance.

M.

"Corona" <Philippe Tulliez> a écrit dans le message de news:
%23FWf3khZGHA.1192@TK2MSFTNGP03.phx.gbl...

Bonjour,
Je suppose que ceci doit fonctionner.
sr = String(3, 32) & "(2" & Application.International(wdListSeparator)
& ")"
Selection.Find.Execute FindText:=sr, Forward:=True,
Wrap:=wdFindContinue, ReplaceWith:=" ", Replace:=wdReplaceAll
Philippe

Merci beaucoup.

J'ai fait ces tout petit changements, pour rendre cette macro plus adaptée
au cas en question :

Dim sr As String

sr = String(2, 32) & "{2" & Application.International(wdListSeparator) &
"}"
Selection.Find.Execute FindText:=sr, Forward:=True, Wrap:=wdFindContinue,
ReplaceWith:=" ", Replace:=wdReplaceAll

Je suppose aussi qu'il faudrait ajouter le paramètre MatchWildCards:=True si
ce n'était pas sa valeur en cours.

Cela fonctionne tout à fait bien.

Encore merci.

M.