- Dim a, c, h As String
- Dim I, K, J, L, b, d, e, f, x, z, y As Integer
-
- Function test01()
- '(type:01.Auteur_Titre.doc)
- y = InputBox("Nb de séries à entrer")
- For m = 1 To y
- x = InputBox("valeur de début de sélection")
- z = InputBox("valeur de fin de sélection")
-
- For b = x To z
- base6
- Next b
- Next m
-
- End Function
-
- 'Programme d'extraction (type:01.Auteur_Titre.doc)
- Function base6()
- Cells(b, 2).Select
- a = Selection.Value
-
- L = InStr(1, a, " ")
- K = InStr(1, a, " ")
- I = InStr(K + 1, a, "_")
- J = InStr(I + 1, a, ".")
- d = J - I - 1 'longueur de la chaine Titre
- f = I - K - 1 'longueur de la chaine Auteur
-
- For e = 1 To d
- c = Mid(a, I + 1, d)
- Next e
- Cells(b, 7) = c
-
- For e = 1 To f
- h = Mid(a, K + 1, f)
- Next e
- Cells(b, 6) = h
- End Function
Dim a, c, h As String
Dim I, K, J, L, b, d, e, f, x, z, y As Integer
Function test01()
'(type:01.Auteur_Titre.doc)
y = InputBox("Nb de séries à entrer")
For m = 1 To y
x = InputBox("valeur de début de sélection")
z = InputBox("valeur de fin de sélection")
For b = x To z
base6
Next b
Next m
End Function
'Programme d'extraction (type:01.Auteur_Titre.doc)
Function base6()
Cells(b, 2).Select
a = Selection.Value
L = InStr(1, a, " ")
K = InStr(1, a, " ")
I = InStr(K + 1, a, "_")
J = InStr(I + 1, a, ".")
d = J - I - 1 'longueur de la chaine Titre
f = I - K - 1 'longueur de la chaine Auteur
For e = 1 To d
c = Mid(a, I + 1, d)
Next e
Cells(b, 7) = c
For e = 1 To f
h = Mid(a, K + 1, f)
Next e
Cells(b, 6) = h
End Function