Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel syntaxe pour une comparaison

syntaxe pour une comparaison

9 réponses
Avatar
Patrick BASTARD
Bonsoir à tous.

Je fais une nouvelle fois appel à vous pour un petit problème de syntaxe :

Je sais tester le nom complet d'un fichier :

If Sh.Name = "AnoJan"...

Mais si je veux tester toutes les feuilles qui contiennent ou qui commencent
par "Ano" (AnoJan, XXAnoFév...) suis-je obligé d'utiliser AND, ou bien
l'utilisation des caractère joker est-elle possible ?
If Sh.Name = "*Anomalies*" ou If Sh.Name = like "*Anomalies*" ne conviennent
pas, et l'aide VBA de Like ne m'aide pas beaucoup.

Merci de votre aide,

--
Bien cordialement,
P. Bastard
Signaler un problème avec ce contenu

9 réponses

Supprimer
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
Avatar
Hervé
Salut Patrick,
Like marche bien, regarde si cela convient :

Sub FeuilleExiste()
Dim I As Integer
For I = 1 To Worksheets.Count
If Worksheets(I).Name Like "*Ano*" Then
MsgBox Worksheets(I).Name
End If
Next
End Sub

Hervé.

"Patrick BASTARD" a écrit dans le
message news:
Bonsoir à tous.

Je fais une nouvelle fois appel à vous pour un petit problème de syntaxe :

Je sais tester le nom complet d'un fichier :

If Sh.Name = "AnoJan"...

Mais si je veux tester toutes les feuilles qui contiennent ou qui
commencent

par "Ano" (AnoJan, XXAnoFév...) suis-je obligé d'utiliser AND, ou bien
l'utilisation des caractère joker est-elle possible ?
If Sh.Name = "*Anomalies*" ou If Sh.Name = like "*Anomalies*" ne
conviennent

pas, et l'aide VBA de Like ne m'aide pas beaucoup.

Merci de votre aide,

--
Bien cordialement,
P. Bastard




Avatar
Patrick BASTARD
Bonjour, *Patrick BASTARD*
J'ai lu ton post
avec le plus grand intéret :


Correction :

Bonsoir à tous.

Je fais une nouvelle fois appel à vous pour un petit problème de
syntaxe :
Je sais tester le nom complet d'un fichier :

If Sh.Name = "AnoJan"...

Mais si je veux tester toutes les feuilles qui contiennent ou qui
commencent par "Ano" (AnoJan, XXAnoFév...) suis-je obligé d'utiliser
AND, ou bien l'utilisation des caractère joker est-elle possible ?
If Sh.Name = "*Anomalies*" ou If Sh.Name = like "*Anomalies*"


Lire : If Sh.Name = "étoileAnoétoile" ou If Sh.Name = like "étoileAnoétoile"
ne

conviennent pas, et l'aide VBA de Like ne m'aide pas beaucoup.

Merci de votre aide,


Avatar
JpPradier
Bonsoir Patrick

Il ne faut pas de "=" avec Like :

If Sh.Name like "*Anomalies*" then ...

j-p
Avatar
Patrick BASTARD
Bonsoir, *Jean Pascal*

Et une nouvelle fois,

Merci.
;-)



Bonsoir Patrick

Il ne faut pas de "=" avec Like :

If Sh.Name like "*Anomalies*" then ...

j-p


Avatar
Patrick BASTARD
Bonsoir, *Hervé*

En effet, en virant le signe égal, ça le fait. Cest là que ça coinçait.

Merci de ton intervention.

--
Bien cordialement,
P. Bastard


Salut Patrick,
Like marche bien, regarde si cela convient :

Sub FeuilleExiste()
Dim I As Integer
For I = 1 To Worksheets.Count
If Worksheets(I).Name Like "*Ano*" Then
MsgBox Worksheets(I).Name
End If
Next
End Sub

Hervé.

"Patrick BASTARD" a écrit dans le
message news:
Bonsoir à tous.

Je fais une nouvelle fois appel à vous pour un petit problème de
syntaxe :

Je sais tester le nom complet d'un fichier :

If Sh.Name = "AnoJan"...

Mais si je veux tester toutes les feuilles qui contiennent ou qui
commencent par "Ano" (AnoJan, XXAnoFév...) suis-je obligé d'utiliser
AND, ou bien l'utilisation des caractère joker est-elle possible ?
If Sh.Name = "*Anomalies*" ou If Sh.Name = like "*Anomalies*" ne
conviennent pas, et l'aide VBA de Like ne m'aide pas beaucoup.

Merci de votre aide,

--
Bien cordialement,
P. Bastard




Avatar
GD
Lire : If Sh.Name = "étoileAnoétoile" ou If Sh.Name like
"étoileAnoétoile" ne


je n'avais donc pas la berlue ....
c'est bien OE qui cafouille ????
dans ma réponse je vois bien les étoiles ci-dessous alors quelles sont
invisibles dans l'onglet de visualisation !!!
Bonjour, *Patrick BASTARD* <<<<<<<<<<<<<<<<<<< là
../..

If Sh.Name = "*Anomalies*" ou If Sh.Name = like "*Anomalies*"
<<<<<<<<<<<<<<<<<<<e t là


../..
Lire : If Sh.Name = "étoileAnoétoile" ou If Sh.Name = like
"étoileAnoétoile"




dit JièL tu as une explication ???
ou c'est OE Quote Fix qui buggue ???
@+


Avatar
JièL Goubert
Bonjoir(c) GD

Le 19/02/2005 00:16 vous avez écrit ceci :
dit JièL tu as une explication ???
ou c'est OE Quote Fix qui buggue ???


Quotefix qui fait en sorte de remplacer les texte mis entre étoiles par du
gras. OE ne sait pas faire ça.
les _ pour le souligné _souligné_
les / pour l'italique /italique/
l' * pour le gras *gras*

ça ne fonctionne que s'il n'y a pas d'espace je crois

Je ne sais plus ou est-ce que ça s'active ou se désactive, mais tu dois
bien trouver ça dans les options de ce dernier ;-)

PS : c'est d'office sur Thunderbird

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/eska/maitriser_office_2003.htm

Avatar
Patrick BASTARD
Bonjour, *Modeste*

Je confirme, c'est bien Quote Fix, mais le pauvre, il ne fait que ce pour
quoi il a été prévu...


--
Bien cordialement,
P. Bastard



Lire : If Sh.Name = "étoileAnoétoile" ou If Sh.Name like
"étoileAnoétoile" ne


je n'avais donc pas la berlue ....
c'est bien OE qui cafouille ????
dans ma réponse je vois bien les étoiles ci-dessous alors quelles
sont invisibles dans l'onglet de visualisation !!!
Bonjour, *Patrick BASTARD* <<<<<<<<<<<<<<<<<<< là
../..

If Sh.Name = "*Anomalies*" ou If Sh.Name = like "*Anomalies*"
<<<<<<<<<<<<<<<<<<<e t là


../..
Lire : If Sh.Name = "étoileAnoétoile" ou If Sh.Name = like
"étoileAnoétoile"




dit JièL tu as une explication ???
ou c'est OE Quote Fix qui buggue ???
@+




Avatar
GD
Bonsour® JièL© ;o)))
l' * pour le gras *gras*
ça ne fonctionne que s'il n'y a pas d'espace je crois
Je ne sais plus ou est-ce que ça s'active ou se désactive, mais tu
dois bien trouver ça dans les options de ce dernier ;-)


voila une explication qui satsisfait tout à fait mes turlupitudes...
l'incertitude est une situation tellement stressante ;o)))
@+