Discussion :

[Clemclem972]

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.

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Clemclem972]

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