If string = "a" or "b" ?

Apparemment c'est pas ça. Alors comment l'écrire? Merci d'avance;)

Code:

---

If site_sa = "http://www.utc.fr" Or "http://www.utc.fr/" Then

---

Bonjour,

Code:

---

If site_sa = "http://www.utc.fr" Or site_sa = "http://www.utc.fr/" Then

---

ou bien pour regrouper les deux

Code:

---

If site_sa = "http://www.utc.fr*" Then

---

Cordialement

Code:

---

If ucase( site_sa) = ucase("http://www.utc.fr") Or ucase(site_sa) =ucase("http://www.utc.fr/") Then

---

Bonjour rdurupt,

Juste pour apprendre. Pourquoi la conversion en majuscules ?

Merci d'avance

Bonjour
la convertion en majuscule est fait faite pour formater l'object de la demande et les arguments

en gros si il y a un defaut de majuscule dans ta demande ta fonction repondra toujours non


en majuscule ta variable et les urls si elles sont identiques vont matcher

pourquoi ucase et pas lcase parceque tres souvent il y a des caracteres bizaroides dans les url ucase formate tout en majuscule

apres d'apres ce que je vois de ta demande la question est que il est possible que le dernier slash manque tu pourrais te contenter de controler ce simple point avec right(url,1)

Merci à tous ceux qui m'ont répondu:P Le problème est résolu.

Bonsoir,

Citation:

---

Envoyé par aziz1015

...
ou bien pour regrouper les deux

Code:

---

1 2 3

If site_sa = "http://www.utc.fr*" Then

---

Cordialement

---

If site_sa Like "http://www.utc.fr*" Then plutôt car c'est l'opérateur Like qui prend en charge ce genre de syntaxe spécifique et non l'opérateur =. Le signe égal fait une comparaison bit à bit en comparant tous les caractères à gauche et à droite du signe =.

Avec le signe =, c'est à peu près équivalent à faire ce genre de test (Tant que Option Compare n'est pas spécifié en tête de module):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Sub Test() Dim site_sa As String   site_sa = "http://www.utc.fr/"   If site_sa = "http://www.utc.fr/" Then Stop Else Stop End If   If IsTextEgal(site_sa, "http://www.utc.fr/") Then Stop Else Stop End If   If IsTextEgal(site_sa, "http://www.utc.fR/") Then Stop Else Stop End If   End Sub   Function IsTextEgal(Text1 As String, Text2 As String) As Boolean Dim i As Long Dim aText1() As Byte, aText2() As Byte   aText1 = Text1 aText2 = Text2   For i = LBound(aText1) To UBound(aText2) If aText1(i) <> aText2(i) Then Exit Function Next IsTextEgal = True End Function

---

L'opérateur Like est spécifique:
http://loufab.developpez.com/tutorie...operateurlike/


@+