Discussion :

[dodinouche]

Bonjour à tous,

Je vous contact pour que vous m'aidiez à comprendre les lignes de code suivante tiré d'un code VBA. Je voudrais en quelque sorte avoir des commentaire par ligne pour comprendre qu'elle est l'action que cette ligne réalise.

Voila le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test4()
    Columns("B:B").NumberFormat = "dd/mm/yyyy hh:mm:ss"
   '--- Déclaration des données ---
   Dim ReQ, URL, coupe, compte, lig
   '--- Récupération de URL ou sont situés les données ---
    URL = "http://aguila-bidart.fr/demo/ISSY/webservice.php?ndDay=31"
    Set ReQ = CreateObject("microsoft.xmlhttp")
    ReQ.Open "POST", URL, False:    ReQ.send
    coupe = Split(ReQ.responsetext, "Mesure"":" & Chr(34))
    lig = 1
    For i = 1 To UBound(coupe)
        compte = compte + 1
    '--- Coupe le texte grâce à "split" pour avoir seulement les infos qui nous intéressent  ---
        donnée = Split(coupe(i), Chr(34))(0)
    '--- Change la date unix en date normal dd/mm/yyyy hh:mm:ss ---
       Cells(lig, compte) = IIf(compte < 2, "%" & donnée, (donnée / 86400) + CDbl(CDate("1/1/1970") + (1 / 24)))
        If compte = 2 Then lig = lig + 1: compte = 0
     Next
End Sub

Je vous remercie par avance pour votre aide.

Cordialement,
Dodinouche

[clementmarcotte]

Un clic sur NumberFormat et un appui sur

Un clic sur CreateObject et un appui sur

Un clic sur Set et un appui sur

[kiki29]

Salut, voir Early ou Late Binding

[Theze]

Bonjour,

Avec un peu plus de commentaires :

Code :

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

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
 
Sub test4()
 
    'défini le format pour toute la colonne B
    Columns("B:B").NumberFormat = "dd/mm/yyyy hh:mm:ss"
 
    'ici, toutes les variables ne sont pas explicitement typées, elles sont donc de type "Variant"
    Dim ReQ, URL, coupe, compte, lig
 
    '--- Récupération de URL ou sont situés les données ---
    URL = "http://aguila-bidart.fr/demo/ISSY/webservice.php?ndDay=31"
 
    'crée un objet microsoft.xmlhttp pour une requête sur un serveur
    Set ReQ = CreateObject("microsoft.xmlhttp")
 
    'exécute la requête
    ReQ.Open "POST", URL, False: ReQ.send
 
    'récupère dans un tableau les différentes valeurs qui sont séparées par les bornes "Mesure"":" & Chr(34)
    coupe = Split(ReQ.responsetext, "Mesure"":" & Chr(34))
 
    lig = 1
    'boucle sur le tableau...
    For i = 1 To UBound(coupe)
        compte = compte + 1
        '--- Coupe le texte grâce à "split" pour avoir seulement les infos qui nous intéressent ---
        donnée = Split(coupe(i), Chr(34))(0)
        '--- Change la date unix en date normal dd/mm/yyyy hh:mm:ss ---
        Cells(lig, compte) = IIf(compte < 2, "%" & donnée, (donnée / 86400) + CDbl(CDate("1/1/1970") + (1 / 24)))
        If compte = 2 Then lig = lig + 1: compte = 0
    Next
 
End Sub

mais il est vrai que l'appui sur F1 (en ayant mis le curseur sur le mot) donne déjà une bonne part des réponses que l'on souhaite !

[dodinouche]

Je vous remercie tous pour votre aide tout est beaucoup plus clair.

Bon courage et à bientôt.

Dodinouche