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

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



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
    12.6 KB · Affichages: 108
  • 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.
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…