begin process at 2012 02 17 01:14:53
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBA

 > EXTRAIRE UNE CHAINE DE CARACTÈRES D'UNE CELLULE POUR LA COPIER

EXTRAIRE UNE CHAINE DE CARACTÈRES D'UNE CELLULE POUR LA COPIER


 Information sur la source

Note :
1,2 / 10 - par 5 personnes
1,20 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBA Niveau :Débutant Date de création :10/12/2004 Vu :10 757
Auteur : komgan

Ecrire un message privé
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 Description

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

  • 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

 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.


 Sources de la même categorie

Source avec Zip Source avec une capture OUTLOOK ATTACHEMENT SAVER par MoiLafouine
Source avec Zip GESTION PERSONNEL par oudlarbi
Source avec Zip Source avec une capture CALENDRIER EN VBA POUR EXCEL 2010 par nounou94
Source avec Zip Source avec une capture MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai
Source avec Zip Source avec une capture COLLECTION ID par Le Pivert
Toutes les sources de la catégorie VBA

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy S
Entre 529€ et 529€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Renewable Energy is Within Reach
Photo drapeau corse 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,406 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)