× 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
599,99 €PC portable 17 pouces Lenovo (Core i5, 8 Go de RAM, SSD 512 Go, GeForce GTX 1650) à 599,99 €
Valable jusqu'au 24 Novembre

Fnac fait une vente flash sur le PC portable 17 pouces Lenovo Ideapad L340-17IRH qui passe à 599,99 € alors qu'on le trouve ailleurs autour de 799 €. Ce portable dispose d'un écran de 17 pouces FullHD (1920x1080), d'un processeur Intel Core i5 9300H, de 8 Go de RAM, d'un SSD de 512 Go, d'une carte graphique dédiée NVIDIA GeForce GTX 1650 4 Go, du WiFi et du Bluetooth. Le tout tourne sous Windows 10.


> Voir l'offre
17,79 €Micro clé USB 3.1 Sandisk Ultra Fit 128 Go à 17,79 €
Valable jusqu'au 25 Novembre

Amazon fait une promotion sur la micro clé USB Sandisk Ultra Fit d'une capacité de 128 Go qui passe à 17,79 €. La minuscule taille de cette clé USB va vous permettre de la laisser brancher en permanence sur votre portable, votre TV ou votre autoradio sans qu'elle dépasse de manière disgracieuse. Sa compatibilité USB 3.1 lui permet d'atteindre des débits jusqu'à 130 Mo/s. 


> Voir l'offre
249,99 €Solution Wifi Multiroom Netgear Orbi RBK50 à 249,99 €
Valable jusqu'au 25 Novembre

Pour le Black Friday, Amazon fait une belle promotion sur le Kit Wifi Multiroom Netgear Orbi RBK50 qui passe à 249,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 399 €. Avec Orbi, vous bénéficiez d’un Wifi étendu n’importe où chez vous sans perte de connexion. Ce Kit Orbi vous permettra de couvrir jusqu’à 350 m² grâce à son Wifi Tri-Band AC6000. Avec le système Wifi tribande d’Orbi, vos équipements peuvent se déplacer entre les différents modules Orbi sans avoir à se reconnecter. Toute la surface de votre maison sera couverte par un réseau ultra rapide, vous offrant ainsi des performances Wifi inégalées partout où vous allez. Vous avez besoin d’une couverture supérieure ? Il vous suffit d’ajouter un satellite Orbi pour étendre instantanément votre couverture Wifi. Pour en savoir plus sur Orbi, n'hésitez pas à lire notre dossier Créer une couverture réseau WiFi rapide parfaite chez soi avec Orbi. L'offre n'est valable qu'aujourd'hui jusqu'à 18h.


> 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