Rechercher : dans
Par :

Modifier le contenu d'une Cellule

Dernière réponse le 8 déc 2007 à 04:59:42 Hemilco, le 7 déc 2007 à 18:39:03 
 Signaler ce message aux modérateurs

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)

Configuration: Windows XP
Firefox 2.0.0.8

Meilleures réponses pour « Modifier le contenu d'une Cellule » dans :
Tableur - Les cellules Voir La notion de cellule On appelle "cellule" l'intersection entre une ligne (horizontale) et une colonne (verticale) de la feuille de calcul. Ainsi le nom de la ligne combiné au nom de la colonne donne les coordonnées d'une cellule (le terme d'adresse...
[VBA] Détection de modification de cellule VoirExemple pour une MFC avec plus de 3 conditions. Private Sub Worksheet_Change(ByVal Target As Range) Dim Cel As Range For Each Cel In Target 'Adapter la/les plages. If Not Intersect(Cel, Range("B1:B30,D1:D30")) Is Nothing...
Tableur - La sélection des cellules VoirSélection de cellules Le tableur est un formidable outil pour manipuler des données. Ainsi, pour pouvoir manipuler les données il est nécessaire de disposer d'outils permettant de sélectionner rapidement toutes les cellules dont on a...

1

Vaucluse, le 7 déc 2007 à 18:49:44


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

Science sans conscience n'est que ruine de l'Ame

Répondre à Vaucluse

2

néné, le 7 déc 2007 à 18:57:44

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

Répondre à néné

3

eriiic, le 7 déc 2007 à 19:36:42

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

Répondre à eriiic

4

Hemilco, le 7 déc 2007 à 19:46:49

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

Répondre à Hemilco

5

eriiic, le 7 déc 2007 à 19:59:59

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

Répondre à eriiic

6

Hemilco, le 7 déc 2007 à 20:03:49

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

Répondre à Hemilco

8

 Raymond PENTIER, le 8 déc 2007 à 04:59:42

Non, ta méthode est trop compliquée et peu élégante.
Quand tu as effectué ta manipulation 1 (importation du texte), fais ce que t'a indiqué eriiic au post 5. C'est plus rapide et plus fiable.
Un retraité au soleil des Antilles :-)
Raymond

Répondre à Raymond PENTIER

7

Hemilco, le 7 déc 2007 à 20:09:35

Probleme Résolu.

Merci à tous

Répondre à Hemilco