Ma boucle if s'execute mal

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous, je souhaite comparer deux matricule (l'un étant les X derniers caractères de l'autre) dans un if, cependant mon code ne reconnais pas quand les matricules sont égaux et donc bascule par défault dans le else, pouvez vous m'aider ? merci

Dim mat_rh As String
Dim mat_cascade As String
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 mat_rh = Sheets("rh").Range("D" & i) mat_cascade = Right(Sheets("cascade").Range("A" & j), Len(mat_rh)) If (mat_rh Like mat_cascade) Then anomalie = 0 Exit For Else anomalie = 1 End If

18/10/2017, 16h16
joe.levrai

Bonjour,

je vois un Exit For, signifiant qu'une partie de ta procédure n'est pas visible ici
pourquoi utiliser LIKE si tu cherches une égalité ? l'opérateur d'égalité "=" me semble plus approprié

peux-tu mettre l'intégralité de la procédure, et également un exemple de jeux de données pour les deux variables mat_rh et mat_cascade

Citation:
Envoyé par m.peres.97
Bonjour à tous, je souhaite comparer deux matricule (l'un étant les X derniers caractères de l'autre) dans un if, cependant mon code ne reconnais pas quand les matricules sont égaux et donc bascule par défault dans le else, pouvez vous m'aider ? merci

Dim mat_rh As String
Dim mat_cascade As String
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 mat_rh = Sheets("rh").Range("D" & i) mat_cascade = Right(Sheets("cascade").Range("A" & j), Len(mat_rh)) If (mat_rh Like mat_cascade) Then anomalie = 0 Exit For Else anomalie = 1 End If
Bonjour,

Bon déjà ton titre "ma boucle If ..."

If n'étant pas un boucle c'est sur que cela doit mal marcher ...

de plus Ton "EXIT FOR" ne peut exister QUE dans une boucle FOR ...

donc

- soit tu n'as pas tout montrer
- soit il manque une boucle (qui englobe le IF) un petit algorithme t'aiderait à bien concevoir ton Code

Tu dis

@ bientôt

18/10/2017, 16h24
Menhir

Citation:

ma boucle if s'execute mal

C'est normal puisque la structure If n'est pas une boucle : https://msdn.microsoft.com/fr-fr/vba...else-statement

Pour ce qui est des boucles, je te conseille cette lecture : http://silkyroad.developpez.com/vba/boucles/
18/10/2017, 17h04
Ben_L

Bonjour,

Citation:

Envoyé par m.peres.97

je souhaite comparer deux matricule (l'un étant les X derniers caractères de l'autre)

Ce n'est pas du tout ce que vous faîtes...
Votre code compte le nombre de caractères du matricule situé en colonne D (appelons ce nombre N), puis prend les N derniers éléments du matricule situé en colonne A et compare les deux.

Je passe sur ce problème qui n'est probablement lié qu'à une description très approximative de ce que vous voulez faire... (comme l'ont d'ailleurs noté les précédents contributeurs)

L'utilisation de l'opérateur Like peut induire de nombreux problèmes, du fait que la deuxième opérande n'est pas évaluée comme une chaîne classique, mais plutôt comme un schéma à respecter par la première opérande.
Ainsi, l'expression suivante renverra False :

Code:

"[ABC]" Like "[ABC]"

Regardez donc du côté des caractères génériques (wildcards) utilisés par l'opérateur Like si vous souhaitez comprendre pourquoi.

Dans le cas où vous souhaitez uniquement vérifier que 2 chaînes de caractères sont strictement égales, utilisez plutôt :

Code:

If (mat_rh = mat_cascade) Then

Cordialement
18/10/2017, 17h13
unparia

Bonjour à tous

Code:

mat_rh = Sheets("rh").Range("D" & i)

Tout n'est en effet pas montré. Le i ici présent laisse deviner que ce code est- à l'intérieur d'une boucle For i = ... to ... Next-
le signe = laisse deviner que mat_rh est une valeur et non un objet. On peut déplorer que cette valeur ne soit pas associée à la propriété concernée de l'objet Range concerné. Idem en ce qui concerne l'initialisation de mat_cascade

Citation:

deux matricule (l'un étant les X derniers caractères de l'autre)

laisse deviner que mat_cascade est ce X
et que l'opérateur Like est alors mal utilisé (Like "*" & mat_cascade et non Like mat_cascade)

On peut enfin deviner que cette formulation est maladroite :

Citation:

cependant mon code ne reconnais pas quand les matricules sont égaux

Voilà
On peut enfin déplorer d'avoir eu trop de choses à "deviner". Mais bon ....

Tout d'abord, désolé si je n'ai pas été précis, ensuite je vais essayer de me débarasser du LIKE :

Voici le code en entier

Cordialement

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
39
40
Sub controle()
 
Dim i As Integer
Dim j As Integer
Dim finrh As Integer
Dim fincascade As Integer
Dim mat_rh As String
Dim mat_cascade As String
Dim finlist As Long
Dim anomalie As Integer
 
finrh = Sheets("rh").Range("B" & Rows.Count).End(xlUp).Row
fincascade = Sheets("cascade").Range("B" & Rows.Count).End(xlUp).Row
 
    For i = 3 To finrh
mat_rh = CStr(Sheets("rh").Range("D" & i))
          For j = 2 To fincascade
mat_cascade = CStr(Right(Sheets("cascade").Range("A" & j), Len(mat_rh)))
 
                If (mat_rh Like mat_cascade) Then
                anomalie = 0
                Exit For
                Else
 
                anomalie = 1
 
                End If
 
            Next
 
 
        If (anomalie = 1) Then
            finlist = Sheets("controle effectif").Range("A" & Rows.Count).End(xlUp).Row + 1
            Sheets("controle effectif").Range("A" & finlist) = Sheets("rh").Range("F" & i) & " " & Sheets("rh").Range("G" & i)
 
        End If
 
    Next
 
End Sub

19/10/2017, 08h25
m.peres.97

PS : je ne peux pas joindre les feuilles de données car elles sont confidentielles.
19/10/2017, 08h30
unparia

Citation:

je vais essayer de me débarasser du LIKE

= et tu vas le remplacer par quoi ?
Relis ce que j'ai écrit à propos de son utilisation.
19/10/2017, 09h04
m.peres.97

J'ai donc laissé le LIKE et j'ai retirer la partie de mon code qui regarde les X derniers caracteres de mat_cascade (X etant le nombre de caractères de mat_rh) j'ai donc laissé mat_rh et mat_cascade tels qu'ils sont dans les feuilles de données

De plus j'ai remplacé

Code:

If (mat_rh Like mat_cascade) Then

par

Code:

If (mat_cascade Like "*" & mat_rh ) Then

Puisque ce sont les derniers caractères de mat_cascade qui correspondent à mat_rh

Toujours le même résultat, ma procedure me retourne toutes les personnes présentes dans la feuille "rh" au lieu de me retourner les personnes présentes dans la feuille rh mais absentes dans la feuille cascade

Voici donc mon nouveau code :

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
39
40
Sub controle()
 
Dim i As Integer
Dim j As Integer
Dim finrh As Integer
Dim fincascade As Integer
Dim mat_rh As String
Dim mat_cascade As String
Dim finlist As Long
Dim anomalie As Integer
 
finrh = Sheets("rh").Range("B" & Rows.Count).End(xlUp).Row
fincascade = Sheets("cascade").Range("B" & Rows.Count).End(xlUp).Row
 
    For i = 3 To finrh
mat_rh = CStr(Sheets("rh").Range("D" & i).Value)
          For j = 2 To fincascade
mat_cascade = CStr(Sheets("cascade").Range("A" & j).Value)
 
                If (mat_cascade Like "*" & mat_rh) Then
                anomalie = 0
                Exit For
                Else
 
                anomalie = 1
 
                End If
 
            Next
 
 
        If (anomalie = 1) Then
            finlist = Sheets("controle effectif").Range("A" & Rows.Count).End(xlUp).Row + 1
            Sheets("controle effectif").Range("A" & finlist) = Sheets("rh").Range("F" & i) & " " & Sheets("rh").Range("G" & i)
 
        End If
 
    Next
 
End Sub

Bonjour,

personnellement j'aurais utilisé la fonction "InStr" à la place du Like

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
 
'Var = InStr(Start, String1, String2, Compare)
 
 
' Start : le numéro du caractère à partir duquel la recherche démarre (c'est un entier). _
          Pour une recherche simple, la valeur sera "1" elle se fera dans tout le texte.
 
'String1 : c'est la chaine de caractère dans laquelle se fera la recherche
'String2 : c'est la chaîne de caractères que l'on veut trouver dans la première.
'Compare : ce paramètre sert pour savoir si la recherche doit ou pas êtresensible aux minuscules/majuscules. _
         vbBinaryCompare (0) – la recherche EST sensible aux majuscules et minuscules. _
                  Ceci est la valeur par défaut.
'        vbTextCompare (1) – la recherche N'EST PAS sensible aux majuscules et minuscules.
 
 
'exemple :
 
Sub test()
    Dim Val_cherche As Long
 
    Val_cherche = InStr(1, "123 Lucie OLLE", "Lucie OLLE") ' => 5
 
    Val_cherche = InStr(1, "123 Lucie OLLE", "Lucie Olle") ' => 0
 
    Val_cherche = InStr(1, "123 Lucie OLLE", "Lucie Olle", vbTextCompare) ' => 5
End Sub

Ce qui te permetterai de ne pas prendre en compte la Casse en cas d'écriture différente de plus s'il ne trouve pas il ne plante pas puisqu'il renvois "0"

19/10/2017, 11h04
unparia

Bonjour Igloobel
Instr ne saurait gérer à coup sûr ceci :

Citation:

je souhaite comparer deux matricule (l'un étant les X derniers caractères de l'autre)

La fonction Right, à la limite, mais alors à condition de connaître la longueur exacte du matricule ;)
19/10/2017, 14h09
Igloobel

Citation:

Envoyé par unparia

Bonjour Igloobel
Instr ne saurait gérer à coup sûr ceci :

Citation:

je souhaite comparer deux matricule (l'un étant les X derniers caractères de l'autre)

La fonction Right, à la limite, mais alors à condition de connaître la longueur exacte du matricule ;)

Bonjour à toi unparia

Je vois pas en quoi le fait de ramener une position dans la chaine fait que la comparaison n'est pas faite

Pour moi si c'est <>0 c'est qu'il y a égalité

Tu me dis pourquoi je me trompe

A+
19/10/2017, 14h31
unparia

Citation:

Tu me dis pourquoi je me trompe

tout simplement parce que le fait qu'une chaîne A soit présente dans une chaine B ne signifie pas que la chaine A est forcément à la fin de la chaine B
19/10/2017, 15h31
Igloobel

Certes tout à fait exact

mais j'ai pensé que cela ne génerais pas parce qu'ila dit :

Citation:

je souhaite comparer deux matricule (l'un étant les X derniers caractères de l'autre)

j'ai pris ses paroles comme une règle d'où ma proposition de "instr" et comme j'aime peu Like sous Excel (je l'aime beaucoup sous Access) j'ai cru bien faire car on peu s'en passé (du like bien sûr)

maintenant ce serait bien qu'il dise se qu'il en pense de nos propositions au sein de nos échanges

Bonjour à tous,

Concernant l'utilisation de Like, je maintiens que c'est dangereux en l'absence de l'assurance qu'aucun caractère générique ne se trouve dans la 2nde chaîne.
Et l'ajout d'une étoile en début de 2nde chaîne n'y change rien...

Pour ce qui est de l'utilisation de InStr, elle me semble tout à fait acceptable, sous réserve de petits ajustements. Voir ci-dessous.

Enfin, pour m.peres.97, voici une proposition de correction du code.
Votre problème provient a priori du fait que vous ne remettez jamais la variable anomalie à sa valeur initiale. Enfin je crois...

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
Sub controle()
    Dim i As Integer
    Dim j As Integer
    Dim finrh As Integer
    Dim fincascade As Integer
    Dim mat_rh As String
    Dim mat_cascade As String
    Dim finlist As Long
    Dim anomalie As Integer
    finrh = Sheets("rh").Range("B" & Rows.Count).End(xlUp).Row
    fincascade = Sheets("cascade").Range("B" & Rows.Count).End(xlUp).Row
    For i = 3 To finrh
        mat_rh = Sheets("rh").Range("D" & i).Text
        anomalie = 0
        For j = 2 To fincascade
            mat_cascade = Sheets("cascade").Range("A" & j).Text
            If InStr(mat_rh, mat_cascade) = Len(mat_rh) - Len(mat_cascade) + 1 Then
                anomalie = 1
                Exit For
            End If
        Next j
        If anomalie = 1 Then
            finlist = Sheets("controle effectif").Range("A" & Rows.Count).End(xlUp).Row + 1
            Sheets("controle effectif").Range("A" & finlist) = Sheets("rh").Range("F" & i) & " " & Sheets("rh").Range("G" & i)
        End If
    Next i
End Sub

19/10/2017, 19h00
unparia
Bonjour Ben_L

Citation:

c'est dangereux en l'absence de l'assurance qu'aucun caractère générique ne se trouve dans la 2nde chaîne

Explique donc cela : si un caractère générique doit également être recherché, l'utilisation de Like sait gérer cela !
Preuve :
Code:

1 2 3 toto = "*fgh12*3" MsgBox toto Like "*12[*]3" ' --> vrai MsgBox toto Like "*123" ' --> faux
(tu devrais lire plus attentivement ce qu'en dit la rubrique Like.

Et une autre fois : Instr ne garantit absolument pas la position de la sous-chaîne !
20/10/2017, 09h42
Ben_L
Bonjour unparia,

Merci tout d'abord pour ta réponse.

Citation:

Envoyé par unparia

Et une autre fois : Instr ne garantit absolument pas la position de la sous-chaîne !

En testant la valeur retournée, on peut vérifier si la chaîne trouvée se trouve à la fin de la chaîne dans laquelle on recherche.
Cependant tu as raison sur un point : rechercher "123" dans "a123bc123" avec la méthode que j'ai proposée renverrait False... :aie:
Pour que ça fonctionne proprement, il faut utiliser InStrRev à la place de InStr.
Citation:
Envoyé par unparia

Explique donc cela : si un caractère générique doit également être recherché, l'utilisation de Like sait gérer cela !
Preuve :

Code:

1 2 3 toto = "*fgh12*3" MsgBox toto Like "*12[*]3" ' --> vrai MsgBox toto Like "*123" ' --> faux

(tu devrais lire plus attentivement ce qu'en dit la rubrique Like.
Une fort jolie preuve ma foi ! Mais pour problème que tu sembles avoir créé pour l'occasion... :weird:
Pour rappel, le sujet était ici d'identifier les cas où une chaîne Str1 est présente à la fin d'une chaîne Str2. Et pour ce problème particulier, ne t'en déplaise, Like n'est (en l'absence de précisions sur les formats de Str1 et Str2) pas une solution.
L'exemple que j'ai donné plus haut montre clairement que "Str1 Like Str1 peut renvoyer False... Dit autrement, il n'est pas raisonnable d'utiliser comme 2^ème opérande de Like une chaîne qui n'a pas été spécifiquement formatée pour.
Il est possible de "reformater", dans le numéro de matricule, les caractères susceptibles de poser problème. Mais cela paraît bien lourd en comparaison avec l'utilisation de InStrRev...
20/10/2017, 12h03
unparia
Tu plaisantes, Ben-L ?
regarde ce qui se produirait dans un tel cas :
Code:

1 2 3 4 acomparer = "521" toto = "5452113745" pos = InStrRev(toto, acomparer) MsgBox pos
Tu le vois, le problème ? -->> 521 est bien présent mais ses caractères ne sont pas les derniers (ceux d'un "matricule", donc)
Désolé, mais il te faudrait en plus vérifier que rien n'est présent après 521 -->> refaire un "Like bâtard ", quoi .... pour ce que Like (écrit en C, lui) fait bien plus vite !
as-tu une idée de la double opération ? -->>
1) déterminer une position dans une chaîne, avec VBA
2) reconsidérer l'ensemble de la chaîne pour vérifier que rien n'est présent plus loin (et toujours avec VBA !
Et plus la chaîne traitée sera longue, plus VBA ramera par rapport à Like. Peu significatif sur une seule chaîne, mais bien visible sur un grand nombre de chaînes à traiter !
Je t'invite :
1) à trouver une défaillance avec Like (et m'en montrer le test)
2) à chronométrer les deux méthodes sur une boucle de 20000 articles -->> tu verras.

Voir 40 message(s) de cette discussion en une page