Discussion :

[joeyd]

bonjour,

j'ai un macro disons sub fonc1() qui selectionne une range par exemple de B2:B6
for each cel in selection
A1 prends la valeur de cel.

j'ai un macro sub fonc2() qui appelle fonc1 onTime. et qui place disons B2 dans A1.

ce que je veux faire en gros, appeler fonc2, avoir la valeur de B2 dans A1... puis appeler fonc2 encore une fois et avoir B3 dans A1 cette fois ci.. et ainsi de suite jusque la fin de la selection de fonc1... ceci est-il possible??

Merci

[fred65200]

bonsoir

est ce que ce qui suit te convient?

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 aa()
For Each c In Range("B2:b6")
[a1] = c.Value
Attendre 5
Next
 
End Sub
Function Attendre(Secondes As Integer)
' Cette procédure temporise pendant le nombre de secondes
'qu'on lui transmet en argument
'auteur inconnu
Dim Début As Long, fin As Long, Chrono As Long
Début = Timer
fin = Début + Secondes
Do Until Timer >= fin
    DoEvents
Loop
End Function

salutations

[joeyd]

salut,
merci pour ta rapide reponse...
le probleme c'est que je veux rappeler la donction aa manuellement
pour la simple raison que une fois que ma case A1 est pleine il y a des cases qui se remplissent dynamiquement... du coup je ne sais pas combien de temps attendre... donc en gros... je mets kkchose dans A1... j'attends...que tout se fasse et je reviens plus tard pour changer la valeur de A1...
entre tmps j'aimerais qu'il y ai decrementation au niveau de la range!!!
pfff c affreu!!! j'y ai passe tout la journee... mais en vain!

[fred65200]

Je ne comprend pas bien ce que tu veux faire
Qu'entends tu par "j'aimerais qu'il y ai decrementation au niveau de la range!!!"

par exemple pour "B2:B6"
Quand la valeur de B2 est en A1 que tu n'est plus que les valeurs de B3:B6 qui se "déplacent" en B2:B5? Si oui dans quel but?

As tu un classeur exemple ou des copies d'écran de ce que tu veux

Qu'advient il des cellules qui changent dynamiquement en fonction de A1.
Conserves tu leur valeur quelque part
fred65200

[joeyd]

salut,
voila l'explication totale:

j'ai un excel dynamique... (enfin on m'en a donne un quoi) qui se connecte a je ne sais pas quoi... bref...

lorsque je mets une KEY precise dans la case A1 disont, le fichier genere pleins d'infos dans le sheet1, et creer plein de requetes SQL dans le sheet3...
dans le sheet 2 il y a une liste de KEY
donc au depart j'ai fait une liste deroulante dans le sheet 1, l'utilisateur choisis la KEY qu'il veut et le reste se fait tout seul...
j'ai du ensuite creer un bouton qui execute toutes les requetes SQL... ca c bon...

mnt on me dit...
j'ai la fonc2 qui execute les requetes... je mets un OnTime dedans pour appeler la fonc1... cette fonc1 remplace dans sheet1!A1 la case disons sheet2!B2 apres par exemple 10secondes.
je r'appelle fonc2, elle execute les requetes et 10 secondes apres appelle fonc1 qui elle mettra sheet2!B3 dans sheet1!A1... donc du coup la selection a decrementer!!!
c un truc de fou je sais...
on m;a dit que offset pourrait m'aider mais je n'ai aucune idee de comment c;est possible!!

merci de ton aide fred, et tous les autres qui lisent c truc maxi complique...

[ouskel'n'or]

Que veux-tu décrémenter ? As-tu un compteur ?
Dans quelles condition ? (Appel fonc2 ou fonc1 ?)
Comment est lancé Fonc2 ?

l'utilisateur choisis la KEY qu'il veut

De quoi parles-tu ?
Fonc1 est-elle appelée toutes les 10 secondes un fois lancée ou seulement une fois ?
Si Fonct1 se poursuit, qu'est-ce qui arrête le timer ?
As-tu un compteur qui te permet de décrémenter... et quoi ?
Tes explications ne nous permettent pas de t'aider. Reprends la démarche en énumérant ce que fait ta procédure et ce qui la conditionne. Ou donne nous un code qui nous permette de comprendre.
Si c'est un simple compteur qu'il te faut, place-le dans une feuille de calculs ou dans un contrôle (un textbox par exemple) avec Visible = false, et agit dessus chaque fois que la condition pour le modifier est remplie.
Tu dis
A+