VBA remplace sous conditions IF

Bonjour,
Je vous présente mon problème actuel. J'ai un tableau (T_ACTION) et je fais appel à une VBA pour remplacer des mots (ou groupe de mots) en valeur numérique.
Je ne maîtrise que partiellement le VBA. J'ai ainsi trouvé sur le net.

Worksheets("Calculs").Columns("J").Replace _
What:="Jet F", Replacement:="1", _
SearchOrder:=xlByColumns, MatchCase:=True

Ce code fonctionne très bien pour me remplacer donc dans la colonne J tout les intitulés "Jet F" par 1.

Mais je souhaiterai faire une petite modification. En effet en colonne "O" du même tableau j'ai des localisations de l'évènement ("9M", "6M"). Et forcement je cherche en fonction de la location en colonne O, à remplacer le texte en colonne "J" par des valeurs différentes (par exemple à remplacer "Jet F" par 1 si sur la même ligne en colonne O on trouve "9M", et par 0,5 si on trouve sur la même ligne "6M")

Merci de votre coup de main.

Bonjour,
Proposition avec une boucle sur des variables tableaux (Array)
Les données sont dans un tableau structuré nommé "t_Test".
La colonne contenant les valeurs "Jet F" se nomme "Staff" et la colonne contenant soit "9m", soit "6m" se nomme "Mesure"

Autre solution à l'aide de Power Query pour créer une nouvelle table. Plus simple à développer si les conditions sont multiples

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub t() Dim t1 As Variant, t2 As Variant Dim myTable As ListObject Dim e As Long Set myTable = Range("t_Test").ListObject t1 = myTable.ListColumns("Staff").DataBodyRange.Value t2 = myTable.ListColumns("Mesure").DataBodyRange.Value For e = LBound(t1) To UBound(t1) If t1(e, 1) = "Jet F" Then t1(e, 1) = IIf(t2(e, 1) = "9m", 1, 0.5) Next myTable.ListColumns("Staff").DataBodyRange.Value = t1 Set myTable = Nothing End Sub

---

Tutoriels à lire éventuellement

• Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
• Utiliser les variables tableaux en VBA Excel
• Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

Bonjour merci ça fonctionne parfaitement. J'ai même pu rajouter une autre recherche sur des nouveaux mots.