Programmation dans excel

Programmation dans excel - Divers - Programmation

Marsh Posté le 18-04-2012 à 13:31:05    

Bonjour
J’ai un tableau sur excel  
Sous cette forme par exemple  
 
 A B C
1 EX  Lapin [T] . Permuter [C]  
2 EX  Chien [A] . Apporter de la  [E]  
     
   
J’aimerais remplacer de façon automatique  les caractères  [T]  , [A]  , [C]  ,  [E]   par une chaine de caractère de mon choix par exemple  [E] remplacé nourriture
Le document doit rechercher les caractères de façon autonome dans la table excel en effectuant un balayage de tout es les ligne (jusqu’au 50/60 ) et des colonnes (7/8). Et donc à chaque fois que le programme va voir [E] il va mettre nourriture…
Je ne sais pas trop comment faire sachant que je dois laisser mon tableau sous excel
Merci

Reply

Marsh Posté le 18-04-2012 à 13:31:05   

Reply

Marsh Posté le 18-04-2012 à 15:35:26    

Bonjour,
 
Soit, dans excel, tu fais ctrl+H et tu indiques ton texte à chercher ([E]) et le texte de remplacement (nourriture).
Soit en VBA, une macro :

Code :
  1. Sub remplacer_du_texte()
  2.           Range("A1:H60" ).Replace What:="[E]", Replacement:="nourriture"
  3. End Sub


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
Reply

Marsh Posté le 19-04-2012 à 09:15:25    

Merci  
J'ai utilisé la méthode VBA.
Je me demande. Peut on faire un programme toujours avec VBA
Qui demande à l'opérateur ce qu'il veut remplacer et par quoi..
Par exemple en utilisant les boutons!!

Reply

Marsh Posté le 19-04-2012 à 09:16:50    

Donc dans une cellule excel on note ce qu'on souhaite remplacer et dans la cellule voisine par ce qu'on remplace

Reply

Marsh Posté le 19-04-2012 à 14:05:53    

Oui, bien sûr, c'est possible, il suffit de rajouter 2 variables (pas testé hein) :
 

Code :
  1. Sub remplacer_du_texte()
  2.           dim AncienTxt as String
  3.           dim NouveauTxt as String
  4.           AncienTexte = Cells(1, 1) 'Valeur de la cellule A1
  5.           NouveauTexte = Cells(1, 2) 'Valeur de la cellule B1
  6.           Range("A1:H60" ).Replace What:=AncienTexte, Replacement:=NouveauTexte
  7. End Sub


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
Reply

Marsh Posté le 26-04-2012 à 13:29:59    

Merci c'est ok

Reply

Marsh Posté le 26-04-2012 à 13:43:13    

J'ai crée un bouton afin de valider le code, mais une fois valider je ne peux plus retourner en arrière!!
La fonction précédente du tableur ne fonctionne pas, il faut également écrire un programme?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed