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+

[fred65200]

Essaie ça

[B2].Delete Shift:=xlUp

Sinon je n'ai rien compris

[joeyd]

bon en gros voila un bout de code que j'ai fais.... par contre l'appel de la fonction proc n'est pas prise en compte... je ne sais pas poukoi!
j'espere queca vous aidera a me comprendre!!
merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim proc As String
Dim i As Long
Sub fonc1(ByVal inc As Long)
    [sheet1!A1].Value = [sheet2!B2].Offset(inc, 0).Value
End Sub
Sub fonc2()
    For i = 0 To 4
        proc = "fonc1 (" & i & ")"
        fonc1 (i)
        RunWhen = TimeValue(Now + TimeSerial(0, 0, 5))
        Application.OnTime RunWhen, proc
    Next i
End Sub

[ouskel'n'or]

As-tu testé ça ?

Code :

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

        Application.OnTime Now + TimeValue("00:00:05"), "fonc1 " & i

[joeyd]

je viens juste de le faire...
ca me dit:

"the macro "book1!fonc1 4" cannot be found
"the macro "book1!fonc1 3" cannot be found
...en etc en msg box

[ouskel'n'or]

Ok. Le i est pris dans le nom de la macro, non comme un paramètre
Tu peux tester

Code :

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

Application.OnTime Now + TimeValue("00:00:05"), "fonc1(" & i & ")"

mais j'ai bien peur qu'on obtienne la même chose. Ontime ne "semble" pas accepter de paramètre pour la macro à exécuter si l'on s'en réfère aux exemples de l'aide en ligne.
Siça ne fonctionne toujours pas, ce que tu peux faire est déclarer i en Public et d'utiliser i dans Fonc1.
Mais utilise une autre variable que i pour qu'elle ne s'embrouille pas avec les autres procédures (i est souvent utilisé et ça pourrait troubler ces petites bêtes)
A+

[joeyd]

Oais ca ne marche tjs pas

j'ai pas tres bien compris ce que tu m'as dit d'essayer...

[joeyd]

en fait je regarde encore mon code et me dit que ce n'est peut etre pa exactement ca:
en gros regarde cette chaine:

je mets une valeur dans A1---> SQL s'execute automatiquement
macro contenant le code executant SQL va appeler FONC genre 5 seconde apres avoir executer les requetes

FONC a une selection de valeur---> elle mets une valeur ds A1
et ainsi de suite

je rappelle que mon excel est dynamique donc une fois A1 entree ya plein de choses qui se passe tout seul...(entre autre cree des requetes SQL)
la valeur de A1 est une cle qui dependamment de sa valeur fait des choses differentes (dou le besoin de TOUt tester)

en resume:

KEY--> requetes--5secondes-> changement de cle etc..

mon besoin la c'est de creer cette fonction qui selection une plage de valeur(no pb pour ca) et parcours cette selection... mais chaque fois qu'on l'appelle chnage de valeur (pas qu;elle parcoure tout en meme temps= une decrementation par appel)

voila.. c plus clair?