Discussion :

[vins86]

Bonjour tout le monde,

Je souhaiterais connaitre les possibilités afin de pouvoir obtenir ceci:

Dans la cellule B2 de la feuil1 récupérer la valeur de la cellule A1 de la feuil2

5 sec après

Dans la cellule B2 de la feuil1 récupérer la valeur de la cellule A2 de la feuil2

5 sec après

Dans la cellule B2 de la feuil1 récupérer la valeur de la cellule A3 de la feuil2
etc..............

et quand on à fait la dernière cellule de la colonne A de la feuil2 remplie
On revient à la première cellule de la colonne:

Dans la cellule B2 de la feuil1 récupérer la valeur de la cellule A1 de la feuil2
et on recommence avec les 5 sec jusqu'à la demande d'arrêt

J'espère être bien explicatif de ma demande.

Cordialement,

Vincent.

A savoir, j'ai essayé cela:

Code :

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

1
2
3
4
5
Sub test3()
 For i = 1 To 10
    Sheets("feuil1").Range("B2") = Sheets("feuil2").Cells(i, 1)
Next i
End Sub

Mais entre chaque i, il n'y a pas d'intervalle de 5 sec expliquer plus haut.

Merci d'avance de m'aiguiller.

Vincent.

[parmi]

Bonjour,

Regarde du côté de Application.OnTime()

[Marc-L]

Bonjour,

voir du côté des propriétés CurrentRegion, Rows, Count et de la méthode Wait …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[illight]

Soit tu fais ça :

Code :

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

Application.Wait Time + TimeSerial(0, 0, 5)

Soit tu utilises un sleep :

Code :

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

1
2
3
4
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) ' à mettre en haut de module
 
 
Sleep 5000 'Sleep calcule en millisecondes

EDIT : mouarf, 3 à répondre en même temps

[vins86]

Merci pour vos réponses très rapides et fonctionnelles.

Maintenant comment lui dire de revenir à 1 après la dernière cellule remplis?

Cordialement,

J'ai essayé ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test3()
 For i = 1 To 10
    If i = "" Then
    i = 1
    Else
    Sheets("feuil1").Range("B2") = Sheets("feuil2").Cells(i, 1)
    Application.Wait Time + TimeSerial(0, 0, 5)
 
    End If
Next i
End Sub

Mais il ne prend pas en compte la cellule vide.

[illight]

J'ai pas compris ta question

[vins86]

En faite quand il fait la dernière cellule remplis de la colonne A de la feuil2.
Actuellement il s'arrête; Moi je souhaiterais qu'il revient à la première ligne et s'arrête que à la demande.

Cordialement,

Vincent.

Je demande cela mais c'est peut-être pas possible vu que c'est avec un for définis?

Je fais pleins de test mais rien n'y fait.

Cordialement,

Vincent.

[parmi]

Essaie ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test3()
    Dim I As Long
 
    For I = 1 To 10
        Sheets("feuil1").Range("B2") = Sheets("feuil2").Cells(I, 1)
        Application.Wait Time + TimeSerial(0, 0, 1)
        If I = 10 Then
            I = 0
        End If
    Next I
End Sub

En passant, dans une boucle For i = 1 to 10, rien ne sert de valider si i = ""

[vins86]

Merci beaucoup Parmi ceci fonction correctement.
Par contre la dernière ligne remplis est variable.

Peux ton mettre un for i = 1 to ..;
Comme ceci: Range("A2:A" & F.[A65000].End(xlUp).Row).Value

Merci d'avance pour ta réponse.

vincent

[parmi]

Comme ceci peut-être ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test3()
   Dim I As Long, nbLignes As Long
 
   nbLignes = Sheets("Feuil2").Cells(Rows.Count, "A").end(xlUp).Row
 
   For I = 1 To nbLignes 
        Sheets("feuil1").Range("B2") = Sheets("feuil2").Cells(I, 1)
        Application.Wait Time + TimeSerial(0, 0, 1)
        If I = nbLignes Then
            I = 0
        End If
    Next I
End Sub

[vins86]

Merci encore Parmi. C'est parfait çà!
Maintenant je vais pouvoir continuer mon appli.

Bonne soirée.
Vincent