Discussion :

[Ardiden31]

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 :

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

[parmi]

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 :

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

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

[a_diard]

bonjour


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

bonne journée

[Ardiden31]

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 ?

[parmi]

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

[Ardiden31]

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.

[parmi]

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 :

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