Remplacement contenu cellule dans toute la feuille

Fredo1003 Messages postés 8 Statut Membre -  
Fredo1003 Messages postés 8 Statut Membre -
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:

1 réponse

Réponse 1 / 1
marc
 
Bonjour Fredo1003,

Je te propose ce code VBA : 


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

Cordialement
 
0
Fredo1003 Messages postés 8 Statut Membre
 
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.
0
marc > Fredo1003 Messages postés 8 Statut Membre
 
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"
0
Fredo1003 Messages postés 8 Statut Membre
 
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.
0
marc > Fredo1003 Messages postés 8 Statut Membre
 
 
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).
 
0
Fredo1003 Messages postés 8 Statut Membre > marc
 
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.
0

Discussions similaires

Les feuilles Diddl
TiiteBaakaa -
soso -

8 réponses
Excel : colorer une cellule sous condition d'une autre ?
KAKEPATHEL -
Pascal -

15 réponses
Feuille de score belote
nulleeninfo -
brucine -

7 réponses
arriere plan
minangi -
Raymond PENTIER -

1 réponse
feuille excel de gestion belote
SiFaSiLa -
frank -

2 réponses