× 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
14,99 €Clé USB 3.0 et Micro USB Sandisk Ultra OTG 64 Go à 14,99 €
Valable jusqu'au 06 Juillet

Amazon fait une vente flash sur la nouvelle version de la clé USB 3.0 SanDisk Dual Drive 64 Go qui passe à 14,99 €. La particularité de cette clé USB réside dans le fait qu'elle dispose à la fois d'un connecteur USB pour la brancher sur votre ordinateur ou votre TV, mais également d'un connecteur micro USB pour la brancher sur votre smartphone ou votre tablette. Compatible USB 3.0 (et 2.0), cette clé USB offre des débits jusqu'à 150 Mo/s.


> Voir l'offre
29,99 €Clavier et Souris sans fil Microsoft Wireless Desktop 900 à 29,99 €
Valable jusqu'au 05 Juillet

Amazon fait une promotion sur le pack Microsoft Wireless Desktop 900 qui passe à 29,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 45 €. Cet ensemble clavier/souris Microsoft Wireless Desktop 900 est à la fois contemporain et minimaliste. Le clavier est doté de touches silencieuses offrant une expérience de frappe sereine et la souris de taille classique permet une navigation confortable et précise. Le clavier Wireless Desktop 900 est doté du chiffrement AES (Advanced Encryption Standard), qui vous permet de protéger vos informations en chiffrant votre saisie. La durée de vie de la pile est de 2 ans pour le clavier et pour la souris.


> Voir l'offre
22,17 €Souris sans fil Logitech M280 à 22,17 €
Valable jusqu'au 04 Juillet

Amazon fait une petite promotion sur la souris sans fil Logitech M280 qui passe à 22,17 €. On la trouve ailleurs à partir de 30 €. Sa forme profilée est adaptée aux droitiers. Son autonomie est de 18 mois (pile AA que vous pourrez remplacer).


> 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