Discussion :

[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 :

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

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

[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

[Menhir]

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/

[unparia]

Bonjour à tous

Code :

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

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

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 :

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 ....

[m.peres.97]

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 :

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
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

[m.peres.97]

PS : je ne peux pas joindre les feuilles de données car elles sont confidentielles.

[Igloobel]

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 :

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

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

[Ben_L]

Bonjour,

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 :

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

"[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 :

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

If (mat_rh = mat_cascade) Then

Cordialement