1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
Sub TestConfigCsv()
Dim AireConfigAlias As Range, AireConfigPn As Range, AireConfigSn As Range
Dim AireMesuresAlias As Range, AireMesuresMin As Range, AireMesuresMax As Range
Dim AireCsv As Range
Dim I As Integer, J As Integer
Set AireConfigAlias = Range("TableDesConfigurations[Alias]")
Set AireConfigPn = Range("TableDesConfigurations[Pn attendu]")
Set AireConfigSn = Range("TableDesConfigurations[Sn attendu]")
Set AireMesuresAlias = Range("TableDesMesures[Alias]")
Set AireMesuresMin = Range("TableDesMesures[Valeur Min]")
Set AireMesuresMax = Range("TableDesMesures[Valeur Max]")
Set AireCsv = Sheets("Config csv").Range("B1:BK1")
For I = 1 To AireConfigAlias.Count
For J = 1 To AireCsv.Count
If "ZzPnAtt" & AireConfigAlias(I) = AireCsv(J) Then AireCsv(J).Offset(1, 0) = AireConfigPn(I)
If "ZzSnAtt" & AireConfigAlias(I) = AireCsv(J) Then AireCsv(J).Offset(1, 0) = AireConfigSn(I)
Next J
Next I
For I = 1 To AireMesuresAlias.Count
For J = 1 To AireCsv.Count
If "ZzMin" & AireMesuresAlias(I) = AireCsv(J) Then AireCsv(J).Offset(1, 0) = AireMesuresMin(I)
If "ZzMax" & AireMesuresAlias(I) = AireCsv(J) Then AireCsv(J).Offset(1, 0) = AireMesuresMax(I)
Next J
Next I
Set AireConfigAlias = Nothing: Set AireConfigPn = Nothing: Set AireConfigSn = Nothing
Set AireMesuresAlias = Nothing: Set AireMesuresMin = Nothing: Set AireMesuresMax = Nothing
Set AireCsv = Nothing
End Sub |
Partager