bonsoir
voila ou j'en suis
mon fichier text d'origine ressemble à cela
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub CommandButton1_Click() Open "c:\SR_6_8_4_GARANTI_5.txt" For Input As #1 Do While Not EOF(1) Line Input #1, textline TextBox1.Text = TextBox1.Text & textline & vbCrLf 'MsgBox textline Loop Close #1 End Sub
je cherche donc a extraire et a mettre dans une feuille excel un chiffre par cellule les donnees situees apres les C1:, c30:, etc
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 Type : Systme rducteur Longueur des combinaisons : 2 Nombre de numros : 16 Nombre de combinaisons de base : 120 Nombre de combinaisons rduites : 8 Garantie du systme rducteur : 1/2 C 1 : 01 02 C 30 : 03 04 C 55 : 05 06 C 76 : 07 08 C 93 : 09 10 C 106 : 11 12 C 115 : 13 14 C 120 : 15 16
ex pour la ligne txt C1: on met en cellule B1 le chiffre 01, en C1 le chiffre 02
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 C 1 : 01 02 C 30 : 03 04 C 55 : 05 06 C 76 : 07 08 C 93 : 09 10 C 106 : 11 12 C 115 : 13 14 C 120 : 15 16
C30 : B2 le chiffre 03, en C2 le chiffre 04
etc .....
merci de votre aide
Partager