Non prise en compte condition if dans l'exécution d'une macro [Résolu/Fermé]

Signaler
-
 Loumie6564 -
Bonjour,

Je me permets de vous écrire car j'ai besoin de votre aide.
J'ai une macro qui me permet de prélever des données aléatoirement avec des conditions.
Cependant la macro ne respectent aucune des conditions et me renvoie des valeurs erronées.
Voici le code

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


Je sais qu'il y a un problème au niveau du format des variables mais je ne sais pas comment le résoudre.
Merci pour le temps que vous prendrez.

Loumie.

2 réponses

Messages postés
15724
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 avril 2021
1 481
Bonjour,

Oui, mais votre fichier, sans donnees confidentielles mais coherente, serait le bienvenu
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Problème résolu après plusieurs recherches.
Merci à toi la prochaine fois je joins le fichier avec ma question : )

A+.