× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Supprimer x caractères dans plusieurs cellulesSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Morgane
  Posté le 16/04/2011 @ 12:56 
Aller en bas de la page 
Maîtresse astucienne

Bonjour à tous,

(Excel v.2007)

Est-ce qu'il a un truc pour supprimer ce que j'ai surligné en jaune et conserver le reste ? (Pour ensuite trier par ordre alphabétique)

En colonne B sur 381 lignes {#} en sachant qu'à la ½ du fichier les chiffres sont remplacés par des lettres, ex: Code:;SVMB;Description:;

Merci d'avance

Morgane

Publicité
ferrand
 Posté le 16/04/2011 à 13:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Une petite macro à copier et coller dans un module standard devrait faire l'affaire :

Sub EpurerChaine()
Dim c As Range, ch$, h%
For Each c In Selection
ch = c.Value
h = InStr(ch, ";")
Do While h > 0
ch = Right(ch, Len(ch) - h)
h = InStr(ch, ";")
Loop
c.Value = Trim(ch)
Next c
End Sub

Sélectionner la plage de cellules à traiter et la lancer.

NB: Elle est utilisable pour traiter toute chaîne dont la partie à conserver est celle qui suit le dernier caractère ";". On peut l'adapter facilement pour conserver la partie finale qui suit un caractère autre apparaissant pour la dernière fois dans la chaîne en remplaçant ";" par un autre caractère dans la macro.



Modifié par ferrand le 16/04/2011 13:37
Morgane
 Posté le 16/04/2011 à 13:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Maîtresse astucienne

Ferrand,

Je vais le tester un peu plus tard, je dois revoir comment on lance une macro

Je dois avoir çà dans mes suivis, galopin m'a déjà donné la procédure. Faut que je retrouve

@+ et merci.

ferrand
 Posté le 16/04/2011 à 13:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Morgane a écrit :

Ferrand,

Je vais le tester un peu plus tard, je dois revoir comment on lance une macro

Je dois avoir çà dans mes suivis, galopin m'a déjà donné la procédure. Faut que je retrouve

@+ et merci.

Dans Excel 2007, onglet Développeur, clic sur Visual Basic pour ouvrir l'éditeur VBA. Dans l'éditeur menu Insertion > Module pour créer un module standard dans lequel coller la macro.

Dans l'onglet Développeur à nouveau, clic sur Macros : sélection de la macro dans la boîte de dialogue, puis Exécuter. [Ceci après sélection de cellules à traiter.]

Bonne journée.

Morgane
 Posté le 16/04/2011 à 14:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Maîtresse astucienne

ferrand a écrit :

Dans Excel 2007, onglet Développeur, clic sur Visual Basic pour ouvrir l'éditeur VBA. Dans l'éditeur menu Insertion > Module pour créer un module standard dans lequel coller la macro.

Dans l'onglet Développeur à nouveau, clic sur Macros : sélection de la macro dans la boîte de dialogue, puis Exécuter. [Ceci après sélection de cellules à traiter.]

C'est tigidou

J'ai un peu galéré mais j'ai trouvé, il me manquait ceci entre les deux:

"Dans Visual Basic Editor, dans le menu Fichier, cliquez sur Fermer et retourner à Microsoft Excel lorsque vous avez fini d’écrire la macro"

Un grooooooooooooos merci

Bonne journée.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
9,99 €Adaptateur Bluetooth USB TP-Link UB400 à 9,99 €
Valable jusqu'au 11 Août

Amazon fait une promotion sur l'adaptateur Bluetooth USB TP-Link UB400 qui passe à 9,99 €. Cet adaptateur à brancher sur un port USB va vous permettre d'ajouter le bluetooth à votre ordinateur et d'utiliser ensuite sans fil vos périphériques bluetooth : souris, clavier, casque, manette, téléphone, ...


> Voir l'offre
35,29 €Compresseur portable autonome Xiaomi Mija à 35,29 €
Valable jusqu'au 09 Août

Gearbest fait une promotion sur le compresseur portable autonome Xiaomi Mija qui passe à 35,29 €. Ce compresseur à emporter facilement avec vous comporte un écran (où vous pourrez choisir la pression à atteindre en PSI ou BAR) une batterie de 2000 mA et vous permettra de gonfler vos jouets (41 pièces avec une charge), pneus de vélo, de trotinette, de moto (6 pneus avec une charge) et même de voiture (5 pneus avec une charge) facilement. Le câble est accompagné d'un embout pour valve Schrader et un adapteur Presta et une aiguille sont fournis. Le compresseur se recharge via une prise Micro USB.

Ce marchand sérieux se trouvant en Chine, la livraison peut prendre une vingtaine de jours. Vous pouvez payer par carte bancaire ou par Paypal (conseillé pour bénéficier de la garantie Paypal).


> Voir l'offre
GratuitApplication Noeuds 3D gratuite
Valable jusqu'au 06 Août

L'application Nœuds 3D est actuellement gratuite pour Android et iOS au lieu de 4,49 €. Avec elle, vous allez pouvoir apprendre à réaliser 144 noeuds.


> Voir l'offre

Sujets relatifs
chercher chaîne de caractères VBA dans plusieurs fichiers XL
dans excel, comment supprimer plusieurs dessins ?
Total de plusieurs cellules dans une autre
Récupération de caractères dans cellules
Supprimer l'apostrophe dans les céllules excel ?
[Extraction dans cellules]
Insérer un texte dans plusieurs champs avec Word
Relier des choix à des cellules dans excel
trier numéros dans plusieurs colonnes
Ecrir par macro dans des cellules différents
Plus de sujets relatifs à Supprimer x caractères dans plusieurs cellules
 > Tous les forums > Forum Bureautique