× 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
598,99 €Disque dur externe Western Digital My Book Duo 28 To USB 3.1 à 598, 99 €
Valable jusqu'au 14 Août

Amazon propose actuellement le disque dur externe Western Digital My Book 24 To USB 3.1 à 598,99 € livré alors qu'on le trouve ailleurs à partir de 900 €. Le My Book Duo est une solution de stockage RAID de bureau d’une très grande capacité, idéale pour stocker des photos, des vidéos, des documents et de la musique. Vous pourrez l'utiliser en mode RAID 0 pour des perfomances ultrarapides (vitesse de lecture séquentielle pouvant atteindre 360 Mo/s) ou bien en mode RAID 1 pour bénéficier d’une redondance et mettre vos données en miroir sur les disques durs installés dans le boîtier. Ce dernier comporte en effet 2 disques durs Western Digital RED de 14 To adaptés aux NAS et qui peuvent être récupérés pour être utilisés ailleurs. Sachant qu'un disque dur RED 14 To coûte au moins 450 €, l'achat du Western Digital My Book Duo 28 To peut aussi être une solution économique si vous avez besoin de 2 disques durs 14 To pour votre NAS.


> Voir l'offre
82,65 €Disque dur externe portable Seagate Basic 4 To USB 3.0 à 82,65 € avec le code AFFAIRE10
Valable jusqu'au 15 Août

Cdiscount fait une promotion sur le disque dur externe portable Seagate Basics d'une capacité de 4 To qui passe à 82,65 € grâce au code promo AFFAIRE10. Ce disque dur externe portable au format 2,5 pouces dispose d'une interface USB 3.0 compatible USB 2.0. Une excellente affaire pour ce disque dur qui offre des débits de 115 Mo/s. Il n'est pas soudé et est donc démontable si vous souhaitez le réutiliser ailleurs (console, NAS, PC).


> Voir l'offre
139,99 €Disque dur portable externe WD Black P10 Game Drive 5 To à 129,99 €
Valable jusqu'au 17 Août

Amazon fait une promotion sur le disque dur externe portable WD Black P10 Game Drive 5 To qui passe à 129,99 € livré gratuitement au lieu de 180 €. Ce disque dur USB 3.1 est dédié pour gérer et transporter votre bibliothèque de jeux sur PC ou sur console. 


> 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