Discussion :

[Superpat9999]

Bonjour,
J'ai un problème avec la fonction OR :

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
Function SupprimeNumerotationLignes(Wb As Workbook, Mdl As String, NomMacro As String)
    Dim Debut As Integer, Fin As Integer, i As Integer
    Dim strVar As String
 
    With Wb.VBProject.VBComponents(Mdl).CodeModule
        Debut = .ProcStartLine(NomMacro, vbext_pk_Proc)
        Fin = .ProcCountLines(NomMacro, vbext_pk_Proc) + Debut
        'Debug.Print "debut " & Debut & " fin " & Fin
        For i = Debut To Fin - 1
            'Resultat = Resultat & .Lines(i, 1) & vbCr
            strVar = .Lines(i, 1)
            If Mid(strVar, 1) <> "ErrHandle_1:" Then
                strVar = Mid(strVar, 7)
                .ReplaceLine i, strVar
            Else
                Debug.Print strVar
            End If
        Next
    End With
End Function

Tout se passe correctement, le résultat est "ErrHandle_1:". Lorsque je demande le test sur 2 mots en écrivant :

Code :

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

1
2
 
            If Mid(strVar, 1) <> "ErrHandle_1:" Or Mid(strVar, 1) <> "ErrHandle:" Then

Le mot est tronqué et devient "dle:".
Pourriez-vous me dire quel est l'erreur dans la formulation ?
Merci

[ARTURO83]

Bonjour,

Je pense qu'il faudrait faire un ET plutôt qu'un OU et tester une égalité.

Code :

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

If Mid(strVar, 1) = "ErrHandle_1:" and Mid(strVar, 1) = "ErrHandle:" Then

Cdlt

[Menhir]

A mon époque, en 1ère, on apprenait la logique en mathématiques.
Entre autre, on apprenait que :

Code :

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

Non(A Ou B) = (Non A) Et (Non B)

Si tu réfléchis, tu comprendras que ta variable ne peut pas être égale à deux chaines elles-mêmes différentes.
Donc si la variable est égale à une des chaines (1er argument Faux), elle sera forcément différente de l'autre (second argument Vrai), à moins qu'elle ne soit différentes aux deux chaines (deux arguments Vrai).
Avec un "Ou" entre les deux, ça produit dans tous ces cas une condition Vrai.

Bref, la condition de ton If ne peut jamais être Faux.

Petite remarque : pour ma curiosité personnelle, pourrais-tu expliquer pourquoi tu utilises la fonction Mid ?
Je ne comprends vraiment pas à quoi elle peut servir avec 1 en premier argument et rien en second. En gros, ça signifie que dans ta chaine de caractère, tu récupère tout ce qui se trouve entre le premier et le dernier caractères inclus, bref, la totalité de la chaine.

Je pense qu'il faudrait faire un ET plutôt qu'un OU et tester une égalité.

Code :

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

If Mid(strVar, 1) = "ErrHandle_1:" and Mid(strVar, 1) = "ErrHandle:" Then

Il faudrait soit transformer le Or en And, soit transformer les <> en =.
Mais faire les deux, c'est un peu comme prendre deux fois l'opposé d'un nombre : on retrouve le même résultat.
Dans la condition que tu as écrite, jamais la variable ne pourra être simultanément égale aux deux chaînes. Avec un And entre les deux, la condition sera donc toujours Faux puisse qu'au moins un des éléments sera faux.

[Superpat9999]

Petite remarque : pour ma curiosité personnelle, pourrais-tu expliquer pourquoi tu utilises la fonction Mid ?
Je ne comprends vraiment pas à quoi elle peut servir avec 1 en premier argument et rien en second. En gros, ça signifie que dans ta chaine de caractère, tu récupère tout ce qui se trouve entre le premier et le dernier caractères inclus, bref, la totalité de la chaine.

Merci, exact, ne sert à rien.
J'ai trouvé :

Code :

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

1
2
3
4
5
 
            If Mid(strVar, 1, 9) <> "ErrHandle" Then
                strVar = Mid(strVar, 7)
                .ReplaceLine i, strVar
            End If

Merci de vos aides qui m'ont aiguillées.