Ma boucle if s'execute mal

Citation:

---

Envoyé par unparia

Tu plaisantes, Ben-L ?

---

Malheureusement non. Mais je me trompe peut-être.

Citation:

---

Envoyé par unparia

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 ?

---

En fait pas du tout... Si tu regardes le code que j'ai proposé, le test à réaliser serait ensuite :

Code:

---

1 2	If pos = Len(toto) - Len(acomparer) + 1 Then _ MsgBox "C'est tout bon !"

---

Si tu fais le test, tu verras que le message de validation ne s'affiche pas. Le matricule n'est donc pas détecté en fin de chaîne.

Citation:

---

Envoyé par unparia

Je t'invite :
1) à trouver une défaillance avec Like (et m'en montrer le test)

---

Euh :weird: En fait c'est déjà fait...
Mais si c'est nécessaire pour te convaincre, je veux bien retaper ça :

Code:

---

1 2 3

acomparer = "[ABC]" toto = "prefixe_[ABC]" MsgBox (toto Like ("*" & acomparer))

---

Quant au chronométrage, je vais plutôt attendre que tu m'expliques en quoi j'ai complètement tort.
Et surtout en quoi Like est utilisable pour le problème posé (puisque je ne vais pas chronométrer une méthode dont je ne suis pas convaincu qu'elle est viable).

Je vois que certaines petites choses t'échappent encore.
Et donc -->> Regarde

Code:

---

1 2 3 4 5 6

acomparer = "[[]ABC[]]" toto = "prefixe_[ABC]" MsgBox (toto Like ("*" & acomparer)) acomparer = "[ABC]" toto = "prefixe_[ABC]" MsgBox (toto Like ("*" & acomparer))

---

et la nature du "suffixe" est connue de l'utilisateur, non ?
Bref ... -->> je préfère arrêter là ... -->> considérations oiseuses évidentes.

Citation:

---

Envoyé par unparia

Je vois que certaines petites choses t'échappent encore.

---

Dans ce cas nous somme deux, puisque j'ai dit précédemment :

Citation:

---

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.

---

Mais également :

Citation:

---

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

---

Bref, mes considérations étaient clairement exposées et leur caractère oiseux ne t'avais pas paru évident jusque là...

Bonjour,

Dans la colonne D peut il y avoir des doublons ? si c'est non on peut passer par la collection

Code:

---

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

---

Est ce que la la casse est respecté pour mat_cascade ?? sinon user de Ucase

Code:

---

mat_cascade = Right(Sheets("cascade").Range("A" & j), Len(mat_rh))

---

En gros on a schématiquement :
mat_rh = MaRef_XXX que l'on doit checker dans mat_cascade =XOXOXOXOMaRef_XXX

Dans une collection on peut stocker en clé mat_rh dont la valeur sera MaRef_XXX et dont l'item sera le n° ligne (en autre ici "i")
En remplacant la clé de mat_rh par mat_cascade on aura une erreur selon si l'on Match ou pas

Donc selon le cas où l'on trouve ou pas on aura déjà la valeur de i, ce qui permettra de faire :

Code:

---

1 2 3 4

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

---

Edit : petite correction de texte

Bon...
les "choses" s'étant calmées, on va aller à des petites choses importantes :
1) For i = 3 To finrh

Code:

---

1 2 3 4 5

mat_rh = CStr(Sheets("rh").Range("D" & i)) ' ----->> c'est donc le suffixe/matricule For j = 2 To fincascade mat_cascade = CStr(Right(Sheets("cascade").Range("A" & j), Len(mat_rh)))   If (mat_rh Like mat_cascade) Then

---

on voit assez bien que mat_rh est le "suffixe" dont on veut vérifier l'existence dans mat_cascade.
Les deux dernières lignes devraient être, si l'on compare avec Like :

Code:

---

1 2	mat_cascade =Sheets("cascade").Range("A" & j) If mat_cascade like "*" & mat_rh Then

---

2) pourquoi utiliser l'opérateur like alors que le code tendait à comparer deux chaînes de caractères dont l'une est déjà le suffixe de la plus grande et l'autre le matricule ?
Il suffit de :

Code:

---

1 2 3

mat_rh = Sheets("rh").Range("D" & i) mat_cascade = Right(Sheets("cascade").Range("A" & j), Len(mat_rh)) If mat_cascade = mat_rh then

---

Ceci devrait par ailleurs être écrit de manière plus orthodoxe (péciser les propriétés utilisées) -->>

Code:

---

1 2 3

mat_rh = Sheets("rh").Range("D" & i).value mat_cascade = Right(Sheets("cascade").Range("A" & j).value, Len(mat_rh)) If mat_cascade = mat_rh then

---

3) Il a fallu demander les autres lignes du code pour y voir plus clair. Mais ce n'est pas seulement un code complété par d'autres lignes, que nous avons vu, mais un code différent --->> où on note l'emploi de la fonction ce conversion cstr.
Or :
- soit le matricule (mat_rh, donc) est du texte (ce qu'il devrait être) dans une cellule formatée en texte et aucune conversion n'est nécessaire
- soit ce matricule est constitué de caractères numériques mis dans une cellule au format standard et aucune conversion n'est non plus nécessaire
- soit ce matricule est constitué de caractères numériques, mais mis dans une cellule au format personnalisé, genre "0###" ou autre. Dans un tel cas : attention, la propriété Value (celle par défaut si non précisée) n'est pas le résultat du formatage de la cellule, mais la valeur sans formatage. Si l'on veut la chaîne résultant du formatage, c'est la propriété Text, qu'il faut utiliser. Et la conversion par cstr est dans ce cas encore inutile.

Voilà

4) lorsque (et pas avant) tout ceci aura été compris par le demandeur, il lui sera expliqué comment traiter cette affaire très différemment, sans la seconde boucle ******.

EDIT : ****** et là encore, VBA travaillera, n'en déplaise à "quelqu'un", en utilisant des caractères génériques. Puis-je simplement rappeler à ce propos que :
- la construction des matricules est connue
- il est toujours possible (et simple) de prendre en compte comme caractère normal un caractère, qui, se trouvant dans une chaîne, est identique à un caractère générique. ;)