Bonjour,
J'ai un programme qui permet de filtrer un gros tableau de données selon différents critères.
Le programme va supprimer les lignes en fonction des conditions énoncées dans l'extrait de code ci-dessous :
If aa(i, 2) <> "" And Not Len(aa(i, 2)) < 4 And Not Len(aa(i, 2)) > 4 And Not aa(i, 2) Like "F*" And Not aa(i, 2) Like "TT*" And Not aa(i, 2) Like "*a" And Not aa(i, 2) Like "*b" And Not aa(i, 2) Like "*c" And Not aa(i, 2) Like "*+" Then
Ma liste de conditions commence à grossir et j'aimerais la simplifier en étant le plus exhaustif possible.
Je conserve donc :
If aa(i, 2) <> "" And Not Len(aa(i, 2)) < 4 And Not Len(aa(i, 2)) > 4
J'aimerai ajouter comme condition (sans savoir la syntaxe exacte) :
- Si la valeur contenue dans aa(i,2) ne démarre pas par une lettre majuscule suivie de 3 chiffres (exemple H001)
Malgré mes recherches je n'ai pas trouver d'exemple me permettant de rédiger cette condition.
Je ne partage volontairement pas le fichier car le code y est trop long et lourd.
Merci d'avance pour vos retours
Bonne journée
J'ai un programme qui permet de filtrer un gros tableau de données selon différents critères.
Le programme va supprimer les lignes en fonction des conditions énoncées dans l'extrait de code ci-dessous :
If aa(i, 2) <> "" And Not Len(aa(i, 2)) < 4 And Not Len(aa(i, 2)) > 4 And Not aa(i, 2) Like "F*" And Not aa(i, 2) Like "TT*" And Not aa(i, 2) Like "*a" And Not aa(i, 2) Like "*b" And Not aa(i, 2) Like "*c" And Not aa(i, 2) Like "*+" Then
Ma liste de conditions commence à grossir et j'aimerais la simplifier en étant le plus exhaustif possible.
Je conserve donc :
If aa(i, 2) <> "" And Not Len(aa(i, 2)) < 4 And Not Len(aa(i, 2)) > 4
J'aimerai ajouter comme condition (sans savoir la syntaxe exacte) :
- Si la valeur contenue dans aa(i,2) ne démarre pas par une lettre majuscule suivie de 3 chiffres (exemple H001)
Malgré mes recherches je n'ai pas trouver d'exemple me permettant de rédiger cette condition.
Je ne partage volontairement pas le fichier car le code y est trop long et lourd.
Merci d'avance pour vos retours
Bonne journée