Extraire une chaine de caractères d'une cellule pour la copier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 968 fois - Téléchargée 37 fois

Contenu du snippet

Mon prog est assez simple il me sert à extraire la valeur titre d'une chaine de caratère de type "01.Auteur_Titre.doc" et le mettre dans une autre colonne.
La première partie (function test01())sert juste à lui signifier à combien de séries de ligne on veut appliquer la manip puis le numéro de la 1ère et de la dernière ligne de chaque série.
La seconde partie Function base6() m'extrait la partie titre de la chaine et me la met dans ma colonne titre.
InStr me renvoi la position du caractère demandé de la façon suivante
'L=InStr(position de départ de la recherche,chaine analysée,"caractère recherché")

Après j'uilise des ptites équations qui me donnent la longueur de ma chaine pour pouvoir extraire ce qu'il y a entre les caractères _ et .

Puis je fais ma ptite boucle qui m'extrait la chaine
pour info
c=Mid(chaine initiale,position du premier caractère ,longueur de chaine extraite)

Source / Exemple :


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

Conclusion :


Un grand merci à Geff et jrivet (ils se reconnaitront) qui m'ont donnés les astuces qui m'ont servies à créer le programme dont font parties ces quelques lignes.

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.