Bonsoir,
 
dans mon code  
For i = 1 To 26
            Adresses(i) = IpDuReseau + CStr(i + 1)
            Arret(i) = "cmd.exe /c psshutdown -k -t 5 -f \\" & Adresses(i)
            If My.Computer.Network.Ping(Adresses(i)) Then
                RichTextBox1.Text = RichTextBox1.Text & "Poste" & Adresses(i) & " va être éteint" & Chr(13)
                Shell(Arret(i))
            Else
                RichTextBox1.Text = RichTextBox1.Text & "Poste" & Adresses(i) & " pas allumé" & Chr(13)
            End If
        Next i
 
 
mon RichtextBox1 ne se remplit qu'en une seule fois, à la fin de mon for i = 1 to 26.
Or je voudrais qu'il me permette de suivre l'évolution des ping en temps réel.
Une idée ?
 

met un "DoEvents" dans ta boucle (c'est pourri mais bon)

Bonsoir,
Impeccable :
 
Dim i As Integer
        Dim Arret(30) As String
        For i = 1 To 26
            Adresses(i) = IpDuReseau + CStr(i + 1)
            Arret(i) = "cmd.exe /c psshutdown -k -t 5 -f \\" & Adresses(i)
            My.Application.DoEvents()
            If My.Computer.Network.Ping(Adresses(i)) Then
                RichTextBox1.Text = RichTextBox1.Text & "Poste" & Adresses(i) & " va être éteint" & Chr(13)
                Shell(Arret(i))
            Else
                'My.Application.DoEvents()
                RichTextBox1.Text = RichTextBox1.Text & "Poste" & Adresses(i) & " pas allumé" & Chr(13)
            End If
        Next i
 
Merci.

(tu devrais plutôt le mettre une fois que t'as écrit dans ton textbox)

Bonsoir,
j'y ai pensé, mais dans ce cas je le mets deux fois ?
Une fois pour le ping négatif et une fois pour le ping positif ?

bon, après ton end if

Merci