Besoin d'aide sur un script VBA

Jeremy dufaure -  
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   -
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

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    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