Récupérer la valeur d'une variable d'une colonne vba

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:

---

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.

Bonjour,

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

Bonjour,

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


__________________________________________________________________________________________

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

Soit tu fais ça :

Code:

---

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

---

Soit tu utilises un sleep :

Code:

---

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 :mouarf:

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:

---

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.

J'ai pas compris ta question :weird:

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.

Essaie ceci

Code:

---

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 = ""

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

Comme ceci peut-être ?

Code:

---

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

---

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

Bonne soirée.
Vincent