Discussion :

[cheerleaders]

Bonjour à tous,

J'ai une colonne avec plein de nombre séparé par des ;

Exemple : 1445 ; 1447 ; 1234 ; 1652 ; 1477

Je voudrais séparer ces données sans les copier dans d'autres cellules, mais seulement récupérer la valeur pour faire une recherche de cette même valeur dans un autre fichier

Exemple :
Je récupère la valeur 1445, je vais voir dans mon autre fichier, je cherche en fonction de la valeur 1445, je copie une donnée dans mon fichier (ou se trouve 1445).
Et je recommence pour toutes les valeurs séparé par ;

Pour le moment, je voudrais déjà récupérer les valeurs

Si je met :

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
Sub extractionNb()
    Dim Tableau() As String
    Dim i As Integer
 
    'découpe la chaine
 
 
    Tableau = Split(Range("Y4").Value, ";")
 
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'résultat
        MsgBox (Tableau(i))
    Next i
End Sub

ça fonctionne très bien! Mais quand je veux l'appliquer sur plusieurs lignes et donc faire un compteur, il y a un problème au niveau de tableau, pourquoi?

Voici le code :

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
Sub extractionNb()
    Dim Tableau() As String
    Dim i As Integer
    Dim cpt As Integer
    'découpe la chaine
 
    For cpt = 4 To cpt = Cells(Cells.Rows.Count, "Y").End(xlUp).Row
    Tableau = Split(Range("Y" & cpt).Value, ";")
    Next cpt
 
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche 
        MsgBox (Tableau(i))
    Next i
End Sub

Merci pour votre aide

[joe.levrai]

Bonjour,

tu penses ajouter des données au fur et à mesure dans ton tableau .. en fait tu écrases ton tableau à chaque tour de boucle

peut-être quelque chose comme ça ?
j'ai remplacé le MsgBox par un Debug.Print (plus pratique que d'avoir 200 MsgBox à valider)
j'ai modifier le Type de certaines variables pour éviter les dépassements de capacité (éviter les Integer pour des lignes par exemple)

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
Sub extractionNb()
Dim Tableau
Dim i As Long
Dim cpt As Long
 
For cpt = 4 To Cells(Cells.Rows.Count, "Y").End(xlUp).Row
    Tableau = Split(Range("Y" & cpt).Value, ";")
 
    For i = LBound(Tableau) To UBound(Tableau)
        'Le résultat s'affiche
        Debug.Print Tableau(i) & " de la ligne " & cpt
    Next i
Next cpt
 
End Sub

[cheerleaders]

Bonjour Joe,

Merci pour ton aide!

Je viens de tester le code, mais rien ne s'affiche... Pas d'erreur ni mes valeurs

Enfait je viens de retester en mettant le MsgBox, ça fonctionne!

Faut il faire quelques chose de particulier pour voir les valeurs avec Debug.Print?

Merci en tout cas!!

[joe.levrai]

les tests sont visible dans la fenêtre d'exécution de l'éditeur de code

pour l'afficher :

- Ctrl + G
OU
- Menu Affichage >> Fenêtre d'exécution

l'avantage, c'est que toutes tes lignes de tests vont s'écrire sans que tu soit dans l'obligation de valider la fenêtre (contrairement aux MsgBox)

[cheerleaders]

Je ne connaissais pas, merciii !!!!!