Discussion :

[vb_noob]

Bonjour tout le monde,

Je me tourne vers vous parce que je suis un peu perdu, pour pas dire complètement.

J'ai un fichier qui a des valeurs en colonne E, ces valeurs sont séparées par des ; non triées, mais toujours à 4 chiffres.

Mon objectif est de splitter ces valeurs puis de vérifier que chaque valeur est comprise dans l'intervalle (colonne H et I).

Le fichier est assez lourd, 1M de lignes alors je vous passe un échantillon.
http://cjoint.com/?0BrqKCEWAxr

J'ai déjà essayé de faire le split, qui fonctionne cependant je pense que ce serait mieux de le stocker dans une memoire temporaire mais ça me dépasse,
si quelqu'un peut m'orienter ce serait super.

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
Option Explicit
 
Sub Test_split()
 
Dim val As String
Dim i As Integer
Dim test As Variant
 
val = ActiveCell.Value
test = Split(val, ";")
 
    For i = 0 To UBound(test)
 
        Cells(1, i + 1).Value = test(i)
 
    Next i
 
 
 
 
End Sub

J'espère avoir été clair, sinon je suis à votre disposition pour donner plus de précisions.

Par avance, merci,

Et bonne fin de journée

[Jean-Philippe André]

Salut,

peux-tu nous dire ce que tu fais selon le résultat de ton contrôle (valeur entre les bornes de ton intervalle ou non) ?

A noter que pour 1 million de lignes, je proposerai plutôt Access comme application native.

[issoram]

Bonjour,

En fait quelle est la question exactement?

Pour moi il te faut coder ceci:
pour chaque élément de la colonne E
- Split de la valeur
Pour chaque valeur du tableau "splité"
- vérifier qu'elle se trouve entre les bornes

Mais encore une fois, quelle est la question?

[vb_noob]

En effet si j'oublie le principal...

En fait c'est déjà un extract à partir de 3 tables depuis access, mais si VBA est gérable sous access pour exporter après ça me va aussi.

J'aimerais ajouter une colonne en bout de tableau en mettant OK et NOK ou des 1 et des 0 si plus pratique pour me dire que ça fait partie de l'intervalle ou non.

[patricktoulon]

Bonjour

copie ca dans un module standard et lance le test tu aura la reponse dans la colonne J

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
Option Base 1
 
Sub test()
    Dim tabloligne, derlig
    Columns("J") = ""
    derlig = Range("E" & Rows.Count).End(xlUp).Row
    For i = 2 To derlig
        tabloligne = Split(Cells(i, 5), ";")
        For e = LBound(tabloligne) To UBound(tabloligne)
            If Val(tabloligne(e)) > Val(Cells(i, 8)) And Val(tabloligne(e)) < Val(Cells(i, 9)) Then Cells(i, 10) = "oui"
        Next
        If Cells(i, 10) = "" Then Cells(i, 10) = "Non"
        Erase tabloligne
    Next
End Sub

pour Kegen

ta solution est fausse le résultat ok ou non ok est dans la même boucle

si un des élément du split est faux il te donnera un faux hors quelques tour avant il a pu en trouver un OK

principe;
gerer simplement le OK dans la boucle
gerer le non ok en dehors de la boucle



Au plaisir

[keygen08]

Bonjour
Merci Patrick, c'est en lisant ta reponse que j'ai compris la question.

[vb_noob]

Bonjour,

tout d'abord un grand merci à tous et surtout à Patrick, c'est tout à fait ce que je souhaitais.

Hormis petit soucis de bornes qui devaient être supérieures et égales ou inférieures et égales, mais je ne l'avais pas précisé. J'ai donc modifié .


Merci encore et bonne journée,