Modification de cellules
Arrowhead517
Messages postés
2
Statut
Membre
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis face à une grave problématique ^^
Je suis en train de bosser sur un projet perso de création de fiches techniques (une centaine) et pour la plupart, les mêmes informations sont présentes dans toutes les fiches. Par exemple une cellule avec le texte "couleur orange"est présente sur les 100 fiches techniques
Malheureusement je me suis rendu compte de quelques erreurs d'orthographe sur mes cellules et qui ont été copiées sur l'ensemble des 100 fichiers.
Ma question est simple: Comment modifier les informations d'une cellule présente dans mes 100 fichiers excel sans les reprendre 1 par 1...
J'espere avoir été clair dans ma problématique, je sais que c'est pas évident à expliquer...
Merci d'avance ;)
AR517
Je suis face à une grave problématique ^^
Je suis en train de bosser sur un projet perso de création de fiches techniques (une centaine) et pour la plupart, les mêmes informations sont présentes dans toutes les fiches. Par exemple une cellule avec le texte "couleur orange"est présente sur les 100 fiches techniques
Malheureusement je me suis rendu compte de quelques erreurs d'orthographe sur mes cellules et qui ont été copiées sur l'ensemble des 100 fichiers.
Ma question est simple: Comment modifier les informations d'une cellule présente dans mes 100 fichiers excel sans les reprendre 1 par 1...
J'espere avoir été clair dans ma problématique, je sais que c'est pas évident à expliquer...
Merci d'avance ;)
AR517
2 réponses
-
Bonjour,
Je suppose que les 100 fiches dans le même classeur
si ces fiches sont par exemple situées à partir de la 2eme feuille (la1ere contenant d'autres données) et que le texte à inserer est Description
Alt F11 pour ouvrir l'éditeur VBA
Insertion Module
et dans la fenêtre entrer le code suivant
Sub modif ()
For n = 2 To 111
Sheets(n).Range("B2").Value = "Description"
Next
End Sub
Fermer l'Editeur
Puis Onglet Developpeur
Macros
Executer
Cdlmnt -
Bonjour à tous,
J'ai pris au pied de la lettre "100 fichiers".
Mettre le fichier joint dans le même répertoire que les fichiers à traiter.
Remplir Feuil1 avec les corrections à effectuer et lancer la macro.
Seules les cellules sans formule et sans nombre sont traitées.
https://www.cjoint.com/?CBypsCZZPq3
eric
