Non prise en compte de condition (if) dans l'éxecution d'une macro

Bonjour,
Je viens vers vous car j'ai rencontré un problème.
En effet, j'ai une macro qui me permet de prélever des données aléatoirement avec certaines conditions.
Cependant, la macro ne respectent pas la condition if et me renvoie des valeurs erronées.
Ci-joint un extrait du fichier.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Date_exclus() ' Dim tTab ' fm_MsgBoxINPUT.Show ' iRow = Cells(Rows.Count, 1).End(xlUp).Row tTab = Range("A5:H" & iRow) ' Do iFlag = Int(Rnd * UBound(tTab, 1)) + 1 If Mid(tTab(iFlag, 1), 2, 2) > Range("K1") And Mid(tTab(iFlag, 1), 4, 2) > Range("K2") And tTab(iFlag, 8) = "FN " Then tTab(iFlag, 1) = 0 iLig = iLig + 1 Sheets("Feuil2").Range("A" & iLig & ":H" & iLig).Value = Range("A" & iFlag + 1 & ":H" & iFlag + 1).Value End If iFlag1 = iFlag1 + 1 Loop Until iLig = 83 Or iFlag1 = 30000 ' End Sub

---

merci pour votre aide :).

Bonjour,

Comme beaucoup, je n'ouvre pas les fichiers avec macros...
Se pourrait-il que tu compares des valeurs texte (Mid) avec des valeurs numériques ?
Si c'est le cas, aussi bien tout mettre en String avec CStr() ou inversement avec CLng()

Code:

---

If CLng(Mid(tTab(iFlag, 1), 2, 2)) > Range("K1") And CLng(Mid(tTab(iFlag, 1), 4, 2)) > Range("K2") And tTab(iFlag, 8) = "FN " Then

---

bonjour


je pense que ce sont tes variables avec des formats différents qui causent ton problème.

bonne journée

En fait j'ai une suite de nombre et je souhaite extraire les données qui ont le deuxième chiffre supérieur à 65 et le quatrième chiffre supérieur à 5. D'où l'utilisation de Mid pour récupérer ces chiffres.
En utilisant Cstr j'ai une erreur.

Je ne suis pas experte en macros.
Pour harmoniser mes formats je dois passer par vb ou le faire sur Excel ?

As-tu essayé avec CLng comme je t'ai proposé ?

Oui j'ai une erreur 13 : incompatibilité de type.

J'ai essayé différente façon en scindant la macro en deux pour d'abord récupérer les valeurs numériques mais j'ai le même problème.

Essaie comme ceci
La date a 4 chiffres et le mois 1 ou 2 chiffres; il faut donc vérifier cette séquence.
Aussi, il faut vérifier la bonne colonne du tableau. (J'ai utilisé seulement les 2 dernières colonnes)
Avec Rnd, il est préférable d'utiliser Randomize en début de procédure

Par contre, je vois un bug. Il arrive que le tableau ait 0 comme 1er item et je ne vois pas pourquoi (?)
Je vérifie donc que ce soit >0 avant d'aller plus loin

De plus, il faut ajouter +4 et non +1 puisque tes données commencent en ligne 5

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

Sub Date_exclus() Dim tTab   fm_MsgBoxINPUT.Show   Randomize   iRow = Cells(Rows.Count, 1).End(xlUp).Row tTab = Range("G5:H" & iRow).Value   Do iFlag = Int(Rnd * UBound(tTab, 1)) + 1 If tTab(iFlag, 1) > 0 Then If CLng(Mid(tTab(iFlag, 1), 4, 2)) > Range("K2") And CLng(Mid(tTab(iFlag, 1), 1, 4)) > Range("K1") And tTab(iFlag, 2) = "FN " Then tTab(iFlag, 1) = 0 iLig = iLig + 1 Sheets("Feuil2").Range("A" & iLig & ":H" & iLig).Value = Range("A" & iFlag + 4 & ":H" & iFlag + 4).Value End If iFlag1 = iFlag1 + 1 End If Loop Until iLig = 83 Or iFlag1 = 30000   MsgBox "Terminé" End Sub

---