Forum des développeurs  

Le forum de référence en programmation et développement. Articles, cours et tutoriels du débutant au chef de projet et DBA confirmé.
Précédent   Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Excel > VBA Excel

Réponse
 
Outils de la discussion
Vieux 10/10/2008, 11h57   #1 (permalink)
Inscrit(e)
 
Date d'inscription: février 2008
Messages: 169
Par défaut recherche - -

salut à tous
mon problème est
les cellules de la colonne "a" contiennent des valeur comme "x-1452";"gfd-ijhuqq";"fdpl-pl154" et je que les cellules de la colonne "b" me revoie les caractères après le "-" càd "1452";"ijhuqq";"pl154"
pour bien voir ceci
A............................B
x-1452.....................1452
gfd-ijhuqq.................ijhuqq
fdpl-pl154.................pl154
merci d'avance.
abouhossam est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 10/10/2008, 12h05   #2 (permalink)
pgz
Expert Confirmé
 
Avatar de pgz
 
Date d'inscription: août 2005
Localisation: AriègePyrénées
Messages: 1 768
Par défaut

Bonjour

Pour déterminer la position du "-" dans chaque chaîne de caractères, tu peux utiliser la fonction InStr.
Pour prélever une partie de la chaîne, tu as la fonction Mid.

En combinant les deux, tu devrais arriver à tes fins.

Bon courage,

PGZ
__________________
Vous n'auriez pas l'idée de déclamer : "Oh taon, suspends ton vol!". Alors, de grâce, ne dites plus "Autant pour moi!". Dites : "Au temps pour moi!".
pgz est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 10/10/2008, 13h27   #3 (permalink)
Inscrit(e)
 
Date d'inscription: février 2008
Messages: 169
Par défaut

merci pour votre aide
le resultat est

Code :
With Sheets("fl")
For i = 2 To .Range("a65535").End(xlUp).Row
If .Range("a" & i) <> "" Then
.Range("b" & i).Value = Mid(.Range("a" & i).Value, InStr(Range("a" & i).Value, "-") + 1)
End If
Next
End With

Dernière modification par Guardian ; 10/10/2008 à 13h37 Motif: Tag resolu
abouhossam est déconnecté   Envoyer un message privé Réponse avec citation
NEWS MS-OFFICEFAQs OFFICETUTORIELS OFFICELIVRES OFFICESOURCES VBAACCESS

Réponse

Précédent   Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Excel > VBA Excel

 
Offres d' emploi informatique sur Lesjeudis.com


Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are non
Pingbacks are non
Refbacks are non
Navigation rapide


Fuseau horaire GMT +1. Il est actuellement 12h45.


Publiez vos articles, tutoriels et cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter
Copyright 2000-2008 www.developpez.com - Legal informations