Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Rechercher et remplacer des valeurs

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Amilo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Amilo

XLDnaute Accro
Bonjour le Forum,

Dans mon fichier ci-joint, je souhaite remplacer les noms des clubs en rouge par l'orthographe des clubs en vert (pour faciliter la compréhension, j'ai volontairement créer un 2ème tableau à droite du 1er mais en réalité je souhaite écraser les noms en rouge par les noms en vert dans mon premier tableau...)

Les clubs en rouge correspondent en fait aux clubs qui posent problème lors d'un export WEB (qui me serviront dans une formule), je les ai listé dans l'onglet "Liste des club" (liste non exhaustive).

Y-a-t-il une astuce ou un moyen de rechercher et remplacer ces clubs ???

Merci d'avance pour vos propositions

Cordialement
 

Pièces jointes

Trier par date Trier par votes
Re : Rechercher et remplacer des valeurs

Hello,

Voici une solution VBA.

Place un bouton sur la feuille double-click dessus et colle ce code
Code: 
Private Sub CommandButton1_Click()

    Dim x As Range
    
    For Each x In Range("A2:A" & Range("A65536").End(xlUp).Row)
        If x.Font.ColorIndex = 3 Then
            x.Value = x.Offset(0, 6).Value
        End If
    Next x
    
    For Each x In Range("D2:D" & Range("D65536").End(xlUp).Row)
        If x.Font.ColorIndex = 3 Then
            x.Value = x.Offset(0, 6).Value
        End If
    Next x

End Sub
 
Vote positif 0 Vote négatif
Re : Rechercher et remplacer des valeurs

Re,

Une boucle suffit au fait...
Code: 
Private Sub CommandButton1_Click()

    Dim x As Range
    
    For Each x In Range("A2:A" & Range("A65536").End(xlUp).Row)
        If x.Font.ColorIndex = 3 Then x.Value = x.Offset(0, 6).Value
        If x.Offset(0, 3).Font.ColorIndex = 3 Then x.Offset(0, 3).Value = x.Offset(0, 9)
        ' x.Font.ColorIndex = 0 ' si tu veux remettre la police en noir
        ' x.Offset(0, 3).Font.ColorIndex = 0 ' idem
    Next x
    
End Sub
 
Vote positif 0 Vote négatif
Re : Rechercher et remplacer des valeurs

Bonsoir david84, Hulk,

Merci beaucoup pour vos solutions,

le résultat de Hulk correspond exactement à ma demande à savoir :

- écraser les clubs en rouge dans le tableau AD par les noms des clubs en vert de l'onglet "Liste des clubs", et le 2ème tableau G:J n'existera pas en réalité (je l'ai indiqué ici pour une meilleure compréhension de mon problème),

Le code de Hulk va malheureusement chercher les informations du tableau G:J

Je souhaite en fait que la macro aille chercher les informations dans l'onglet "Liste des clubs" qui n'est pas figé et pourra être complété par d'autres clubs par la suite...


Comment l'adapter aux données de l'onglet "Liste des clubs" ??

Merci encore à vous
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Rechercher et remplacer des valeurs

Bonsoir, salut Hulk,
une autre solution par formule au cas où.
Ceci-dit, par formule je ne vois pas comment tu peux te passer du 1er tableau pour en créer un 2ème sans créer une référence circulaire.
Par macro, je pense que c'est jouable.
Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Rechercher et remplacer des valeurs


Re,

Merci david84 pour cette autre solution,

effectivement les macros seraient plus adaptées à mon problème mais à défaut d'une solution VBA, votre 2ème proposition ferait l'affaire...et faute d'avoir un seul tableau "corrigé" en AD j'adapterai mes propres formules en conséquence sur le tableau G:J

Sinon, je transmets un autre fichier avec une nouvelle explication pour ceux ou celles qui n'ont peut-être pas compris mon problème :

Pour dire plus simplement, je souhaite dans ce fichier remplacer les clubs en rouge de la "feuil1" par les clubs en vert de l'onglet "liste des clubs" sans créer de nouveau tableau en G:J

Bonne soirée à toutes et à tous

Cordialement
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Y
  • Résolu(e)
Microsoft 365 Rechercher et remplacer éditer une procedure
Réponses
8
Affichages
352
YGU1
Y
P
  • Question Question
XL 2010 Fonction Alea.entre.bornes et les doublons .....
Réponses
5
Affichages
993
crocrocro
C
M
  • Question Question
XL 2019 Rechercher/remplacer plusieurs valeurs sur une feuille excel
Réponses
4
Affichages
859
TooFatBoy
J
  • Question Question
XL pour MAC Rechercher et renvoyer valeurs entre plusieurs feuilles
Réponses
1
Affichages
462
chaelie2015
  • Question Question
XL 2016 Chercher/Remplacer complexe
Réponses
2
Affichages
1 K
KamalB
E
  • Résolu(e)
Microsoft 365 Conception d'un outils alliant faciliter d'utilisation et optimisation de la RAM/Processeur/Espace Disque
Réponses
6
Affichages
939
elgringo123456
E
J
  • Résolu(e)
XL 2016 vba cherche 2 valeurs dans une autre feuille et remplace des données
Réponses
9
Affichages
1 K
julien741
J
G
  • Résolu(e)
Microsoft 365 extraire colonnes et lignes a partir de plusieurs valeurs proches dans un tableau
Réponses
5
Affichages
1 K
Greg59115
G
A
  • Question Question
XL 2013 Ouvrir un fichier Excel sur le réseau et coller des valeurs
Réponses
9
Affichages
3 K
sylvanu
F
  • Question Question
XL 2019 Fonction vBA pour rechercher une ligne sur un autre tableau et copier une cellule sur une autre feuille
Réponses
5
Affichages
1 K
Phil69970
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
983
oguruma
B
  • Question Question
Word Fonction rechercher/remplacer à choix multiples
Réponses
0
Affichages
1 K
bilbinou
B
R
  • Question Question
XL 2019 Rechercher et comparer l'équivalent
Réponses
6
Affichages
1 K
re4
R
V
  • Question Question
Microsoft 365 Valeur rechercher selon plusieurs critères et sur plusieurs pages par rapport à une cellule
Réponses
12
Affichages
2 K
Varona Rodriguez
V
L
  • Résolu(e)
XL 2019 PRESQUE RESOLU : Remplacer RecherchV complexe pour correspondance INPN et cardobs par VBA
2 3
Réponses
38
Affichages
4 K
lusert
L
M
  • Question Question
Rechercher Trouver et Supprimer
Réponses
2
Affichages
2 K
Moniato
M
P
  • Question Question
Microsoft 365 Extraire des valeurs dans un tableau et les lister en colonne en fonction d'un critère
Réponses
3
Affichages
834
premion
P
  • Question Question
XL 2013 [Résolu] par Dugenou et Berbére] Formule index et ? pour rechercher des données sur une liste
Réponses
5
Affichages
1 K
bellenm
R
  • Question Question
XL 2010 AIDE POUR CREATION MAIN COURANTE
Réponses
0
Affichages
2 K
Raphy3034
R
R
  • Question Question
AIDE URGENT POUR CRÉATION MAIN COURANTE
Réponses
3
Affichages
5 K
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…