Modifier le contenu d'une Cellule
Résolu
Hemilco
-
Raymond PENTIER Messages postés 71852 Date d'inscription Statut Contributeur Dernière intervention -
Raymond PENTIER Messages postés 71852 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je doit manipuler un document .txt (j'utilise excel parce q'on m'a dit c plus pratique) qui contient environ 3500 lignes,
chaque ligne contient un mot (ou plutot un nom genre "Sebastien")
ce que je veux faire est de modifier Sebastien en {Sebastien}
mais, vous l'avez bien compris ceci doit se faire avec 3500 noms (ce qui prendra bcp de tmps, et ceci n'est vraiment pas disponible)
je me demandais si y aura une macro qui pourrai faire cette modification ou si y a une autre methode (meme avec un autre log)
je doit manipuler un document .txt (j'utilise excel parce q'on m'a dit c plus pratique) qui contient environ 3500 lignes,
chaque ligne contient un mot (ou plutot un nom genre "Sebastien")
ce que je veux faire est de modifier Sebastien en {Sebastien}
mais, vous l'avez bien compris ceci doit se faire avec 3500 noms (ce qui prendra bcp de tmps, et ceci n'est vraiment pas disponible)
je me demandais si y aura une macro qui pourrai faire cette modification ou si y a une autre methode (meme avec un autre log)
A voir également:
- Modifier le contenu d'une Cellule
- Modifier dns - Guide
- Modifier liste déroulante excel - Guide
- Comment modifier une story sur facebook - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
- Modifier extension fichier - Guide
7 réponses
Bonsoir
En principe, il n(' a pas besoin de macro.
Sélectionnez la feuille
Barre des taches/ Edition/Remplacer
Remplissez la boite avec l'ancienne et la nouvelle appelation dans les lignes correspondantes.
Cliquez sur remplacer tout
PS:A toutes fins utiles, pour sélectionner toute la feuille, cliquez dans le carré libre en haut de la barre des N° de ligne et à gauche de la ligne d'entête de colonne.
BCRDLMNT
Bonjour
Voici une macro pour cela
Sub Macro1()
For Each m In Selection 'Plage où se trouveve les noms à convertir
m.Select
q = "{"
d = "}"
m = "" & g & "" & m & "" & d& ""
ActiveCell = m
Next
End Sub
Voici une macro pour cela
Sub Macro1()
For Each m In Selection 'Plage où se trouveve les noms à convertir
m.Select
q = "{"
d = "}"
m = "" & g & "" & m & "" & d& ""
ActiveCell = m
Next
End Sub
Bonsoir,
Est-ce que l'on peut détecter à coup sûr le nom à modifier ? Par exemple toujours au début et il n'y a pas de nom composé avec un espace, ou toujours après le 3ème ; etc ?
Sinon peux-tu déposer sur www.cijoint.fr (et coller le lien ici) qcq dizaines de lignes de ton fichier car la faisabilité dépend de comment elles se présentent.
eric
Est-ce que l'on peut détecter à coup sûr le nom à modifier ? Par exemple toujours au début et il n'y a pas de nom composé avec un espace, ou toujours après le 3ème ; etc ?
Sinon peux-tu déposer sur www.cijoint.fr (et coller le lien ici) qcq dizaines de lignes de ton fichier car la faisabilité dépend de comment elles se présentent.
eric
d'abord la macro de néné contient quelques erreurs dans cette ligne :
m = "" & g & "" & m & "" & d& ""
j'ai constaté que le g n'a rien à faire ici et je l'ai remplacé avec un q mais le problem persiste...
la 1ere solution n'est pas intégralement realisable mais y'a des fonctionalités interessantes (don't je soupçonnais l'existance) qui peuvent malgré tout servir...
Voici une liste de noms
Demophilos
Dexicrates
Diadromos
Dikon
Diocles
Dionysios
Diores
Dioxippos
Dorimachos
Doros
Dromocleides
Epeios
Epharmostos
of_Abai
of_Aigition
of_Alope
of_Alpenos
of_Alyzia
of_Amphicleia
of_Amphissa
of_Apodotoi
of_Atalante
of_Boulis
m = "" & g & "" & m & "" & d& ""
j'ai constaté que le g n'a rien à faire ici et je l'ai remplacé avec un q mais le problem persiste...
la 1ere solution n'est pas intégralement realisable mais y'a des fonctionalités interessantes (don't je soupçonnais l'existance) qui peuvent malgré tout servir...
Voici une liste de noms
Demophilos
Dexicrates
Diadromos
Dikon
Diocles
Dionysios
Diores
Dioxippos
Dorimachos
Doros
Dromocleides
Epeios
Epharmostos
of_Abai
of_Aigition
of_Alope
of_Alpenos
of_Alyzia
of_Amphicleia
of_Amphissa
of_Apodotoi
of_Atalante
of_Boulis
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Donc tu les as tous en colonne A
- En B1 tu saisis = "{" & A1 & "}" et tu recopies vers le bas.
- Tu sélectionnes la colonne B, clic-droit 'copier', clic-droit 'collage spécial' en cochant 'valeurs'
- Tu sélectionnes la colonne A, clic-droit 'supprimer'
eric
- En B1 tu saisis = "{" & A1 & "}" et tu recopies vers le bas.
- Tu sélectionnes la colonne B, clic-droit 'copier', clic-droit 'collage spécial' en cochant 'valeurs'
- Tu sélectionnes la colonne A, clic-droit 'supprimer'
eric
ok j'ai trouvé une solution pas trés catholique, mais ça marche (ok c pas comme une macro qui fait tout d'un coup mais c quand meme rapide)
les fonctions utilisés sont copier/coller et rechercher/effacer
los logiciels utilisés sont Word et Excel
1 ouvrir le fichier txt dans excel (on a alors une colonne composée de plusieur lignes)
2 on ajoute une colonne devant celle qui contient les noms et on tape dans la premiere case { que l'on colle dans toutes les cases suivantes)
3 on fera pareille dans la trosieme colonne mais cette fois avec'' }''
on enregistre au format brut .txt
On ouvre dans word le document enregistré et on fait Edition/ Remplacer et onglet "remplacer"
"Avancé" et on selectionne dans "special" tabulations
et pour finir on clique sur "remplacer tout"
Voila le travail est fait
les fonctions utilisés sont copier/coller et rechercher/effacer
los logiciels utilisés sont Word et Excel
1 ouvrir le fichier txt dans excel (on a alors une colonne composée de plusieur lignes)
2 on ajoute une colonne devant celle qui contient les noms et on tape dans la premiere case { que l'on colle dans toutes les cases suivantes)
3 on fera pareille dans la trosieme colonne mais cette fois avec'' }''
on enregistre au format brut .txt
On ouvre dans word le document enregistré et on fait Edition/ Remplacer et onglet "remplacer"
"Avancé" et on selectionne dans "special" tabulations
et pour finir on clique sur "remplacer tout"
Voila le travail est fait