Macro permettant d'analyser une colonne + remplacement

  • Initiateur de la discussion Initiateur de la discussion avrilspirit
  • 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 !

A

avrilspirit

Guest
Bonjour,

J'ai une petite question concernant excel, je ne sais pas si ma demande est réalisable avec excel et si cela est facile à mettre en place.

J'ai un tableau à droite avec deux colonnes importante :

F => vieux ID
G => nouvel ID

1.png

Je souhaiterais que le macro fasse la correspondance est mette à jour la colonne B avec la valeur correspondante de la colonne G.

Par exemple cela donnerait :
Original:
attribut1 4
attribut2 6
attribut3 8
Modification:
attribut1 2
attribut2 5
attribut3 7

Voyez vous comment puis-je réaliser cette opération?

Je joins le fichier ( Regarde la pièce jointe Test_attributs.xls ).

Bonne journée.

Antoine
 

Pièces jointes

  • 1.png
    1.png
    12.6 KB · Affichages: 108
  • 1.png
    1.png
    12.6 KB · Affichages: 110
Re : Macro permettant d'analyser une colonne + remplacement

Bonjour,

Merci pour cette réponse rapide 🙂

Par contre cela ne fonctionne pas tout à fait car en colonne F, c'est un ID unique donc il ne peut pas apparaître deux fois, par contre il peut apparaître plusieurs fois en colonne B ou il devra être remplacer à chaque fois (table de correspondance).

En gros si on prend l’exemple :
Tout les 4 de la colonne B doivent être remplacé en 2
Tout les 6 de la colonne B doivent être remplacé en 5...

Merci pour votre aide.
 
Re : Macro permettant d'analyser une colonne + remplacement

Bonsoir à tous


Une solution possible (test OK)
(basée sur et seulement sur ton exemple, donc à adapter si tu modifies ton exemple)
Code:
Sub a()
Dim t, i&, c As Range
t = Range("F2:G5").Value
For Each c In Range("B2:B13")
For i = 1 To 4
If c.Value = t(i, 1) Then
c.Value = t(i, 2)
End If
Next i
Next c
End Sub
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Retour