Rechercher et remplacer des valeurs

[Amilo]

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

 

[david84]

Re : Rechercher et remplacer des valeurs

Bonsoir Amilo,
cf fichier ci-joint.
Cordialement

 

[Hulk]

Re : Rechercher et remplacer des valeurs

Hello,

Voici une solution VBA.

Place un bouton sur la feuille double-click dessus et colle ce 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

 

[Hulk]

Re : Rechercher et remplacer des valeurs

Re,

Une boucle suffit au fait...

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

 

[Amilo]

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

 

[david84]

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

 

[Amilo]

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

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