Remplacement contenu cellule dans toute la feuille

Fermé

Fredo1003 Messages postés 8 Date d'inscription samedi 15 juillet 2017 Statut Membre Dernière intervention 14 août 2017 - 14 août 2017 à 11:12
Fredo1003 Messages postés 8 Date d'inscription samedi 15 juillet 2017 Statut Membre Dernière intervention 14 août 2017 - 14 août 2017 à 14:08

Bonjour,je souhaiterai pouvoir remplacer automatiquement le contenu de la cellule i10(contenu se trouvant dans plusieurs endroits differents de la feuille)par celui de J10 ainsi que i11 par j11 etc...jusqu'à J20.Si qqun peut m'aider à trouver une macro car manuellement c'est beaucoup trop de travail pour moi.
Merci

A voir également:

Remplacement contenu cellule dans toute la feuille
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel sans verrouiller la feuille - Guide
Word a trouvé du contenu illisible - Guide
Feuille de pointage excel - Télécharger - Tableur
Excel cellule couleur si condition texte - Guide

1 réponse

Réponse 1 / 1

marc
14 août 2017 à 12:04

Bonjour Fredo1003,

Je te propose ce code VBA :


Sub Essai()
  [J10:J20].Copy [I10]
End Sub

Cordialement

Fredo1003 Messages postés 8 Date d'inscription samedi 15 juillet 2017 Statut Membre Dernière intervention 14 août 2017
14 août 2017 à 12:21

Bonjour marc et merci pour ton aide mais c'est un peu plus complexe que cela.Je vais essayer d etre plus clair.
En fait il faut que le mot se trouvant dans la cellule i10 par exemple "PIERRE" et qui se trouve plusieurs fois dans la feuille (admettons 100 fois) dans plusieurs cellules différentes,soit remplacé par le mot se trouvant dans J10 "YVES" mais dans les 100 cellules différentes.Pareil pour i11 "RENE" par J11 "ANDRE" etc etc jusqu'à i20 et j20.
Cordialement.

marc > Fredo1003 Messages postés 8 Date d'inscription samedi 15 juillet 2017 Statut Membre Dernière intervention 14 août 2017
14 août 2017 à 12:38

Dans ce cas, je crois que le plus simple est d'utiliser Ctrl h :
a) rechercher : "PIERRE" ; remplacer par : "YVES" ; bouton "Remplacer tout"
b) rechercher : "RENE" ; remplacer par : "ANDRE" ; bouton "Remplacer tout"

Fredo1003 Messages postés 8 Date d'inscription samedi 15 juillet 2017 Statut Membre Dernière intervention 14 août 2017
14 août 2017 à 12:57

Merci marc je connais cette fonction mais je l'aurai voulu sous forme de macro sachant que les mots sont deja ecrit dans les cellules i10 et j10 jusqu'à 20.J'ai beaucoup de feuilles à faire et c'est tres long.si je peux appuyer que sur 1 bouton et que tout se fasse automatiquement :) ça serait mieux.

marc > Fredo1003 Messages postés 8 Date d'inscription samedi 15 juillet 2017 Statut Membre Dernière intervention 14 août 2017
Modifié le 14 août 2017 à 13:40

Je te propose ce code VBA :


Option Explicit

Sub Essai()
  Dim lig As Byte: Application.ScreenUpdating = False
  For lig = 10 To 20
    Columns("A:I").Replace Cells(lig, 9), Cells(lig, 10), 1
  Next lig
End Sub

⚠ plage de remplacement : colonnes "A:I" ; à adapter ;
si tu veux un remplacement sur toute la feuille :
Cells.Replace Cells(lig, 9), Cells(lig, 10), 1

J'ai supposé qu'il n'y a pas de cellule vide en "I10:J20" ; sinon, il faudra
2 adaptations : éviter de chercher une cellule vide, puis éviter de faire
un remplacement par une cellule vide.

À te lire pour avoir ton avis (et éventuelles adaptations).

Fredo1003 Messages postés 8 Date d'inscription samedi 15 juillet 2017 Statut Membre Dernière intervention 14 août 2017 > marc
14 août 2017 à 14:08

Vraiment bravo c'est exactement ça,merci tu vas me faire gagner des heures de boulot....et encore merci d'avoir pris du temps pour moi.

Discussions similaires

Savoir de quel ville à été envoyé le message

Excel si cellule contient texte alors...

Excel : colorer une cellule sous condition d'une autre ?

Feuille de score belote

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters