Besoin d'aide sur un script VBA

Fermé
Jeremy dufaure - Modifié par baladur13 le 12/12/2016 à 09:46
yg_be Messages postés 22802 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 21 mai 2024 - 12 déc. 2016 à 20:04
Bonjour,

J'ai besoin d'une aide sur afin de changer une valeur en une autre dans un script VBA.

Aujourd'hui je récupère une valeur dans un fichier xml, cette valeur n'est plus cohérente avec la valeur actuel et je ne sais pas comment faire pour écrire dans le script : si tu à valeur (x) alors changer cette valeur en Y.

voici un bout de ce script:

Dim EN30KUFreq, EN30LOFreq, EN30LBand, ModCodeCs, ModCodeR    Dim srate, rolloff , fractalrolloff        EN30KUFreq = CDbl(GetCelValue("Ku Freq [MHz]", conf))    EN30LOFreq = CDbl(GetCelValue("LO Freq [MHz]", conf))    rolloff = Cint(GetCelValue("Roll Off [%]", conf))    EN30LBand = ABS(EN30KUFreq - EN30LOFreq) * 1000000    ModCodeCs = Cint(GetCelValue("ModCod", conf))    ModCodeR = Cint(GetCelValue("ModCod (rain)", conf))        EN31M.SetValue 0, "ModulationStandard", 1132 , GetCelValue("[/contents/1116-modem Modulation] Type", conf)

En gros, je récupère une valeur "Modulation Type" de ce fameux fichier xml qui est fausse et j'aimerais la remplacer par la valeur réelle.

Merci d'avance pour votre aide.

Bien à vous,

Jeremy

1 réponse

yg_be Messages postés 22802 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 21 mai 2024 1 468
12 déc. 2016 à 20:04
Tu ne donnes pas beaucoup d'infos.
Ceci?
'EN31M.SetValue 0, "ModulationStandard", 1132, GetCelValue("[/contents/1116-modem Modulation] Type", conf)
Dim ceci As Integer
ceci = GetCelValue("[/contents/1116-modem Modulation] Type", conf)
If ceci = 23 Then
    ceci = 32
End If
EN31M.SetValue 0, "ModulationStandard", 1132, ceci
0