Discussion :

[FrancisZheng]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aziz1015]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou bien pour regrouper les deux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aziz1015]

Bonjour rdurupt,

Juste pour apprendre. Pourquoi la conversion en majuscules ?

Merci d'avance

[patricktoulon]

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)

[FrancisZheng]

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

[Invité]

Bonsoir,

...
ou bien pour regrouper les deux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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/


@+