Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel data en boucle

data en boucle

11 réponses
Avatar
aldo
Bonjour,

J'ai besoin de votre aide... (car je suis inculte...)

Dans la feuil1 de A2 à A1001 j’ai des nombres.

En cliquant sur la cellule C1(on/off)
je désire que toutes les 2 secondes apparaisse dans la cellule A1
le nombre des cellules A2, puis 2 secondes après A3, puis 2 seconde après
A4, etc
et qu’après avoir indiqué le nombre de la cellule A1001 à nouveau soit
indiqué le nombre de la cellule A2, A3, A4, A5, etc.

Merci de votre aide

Aldo.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jacquouille
Bonjour Aldo
Si j'ai bien compris, tu veux : C1¡.
Puis 2 sec après, tu veux C1¢, puis C1£ .....? c'est cela ?
Jacques, parti faire un tour en F1.

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"aldo" a écrit dans le message de news:

Bonjour,

J'ai besoin de votre aide... (car je suis inculte...)

Dans la feuil1 de A2 à A1001 j'ai des nombres.

En cliquant sur la cellule C1(on/off)
je désire que toutes les 2 secondes apparaisse dans la cellule A1
le nombre des cellules A2, puis 2 secondes après A3, puis 2 seconde après
A4, etc
et qu'après avoir indiqué le nombre de la cellule A1001 à nouveau soit
indiqué le nombre de la cellule A2, A3, A4, A5, etc.

Merci de votre aide

Aldo.



Avatar
Daniel.C
Bonjour.
Dans le module de ta feuille, mets :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Target.Address <> "$C$1" Then Exit Sub
If teste = False Then
teste = True
Set c = [A2]
Application.OnTime Now + TimeValue("00:00:02"), "Affich"
Else
On Error Resume Next
Application.OnTime Heure, "Affich", , False
End If
End Sub

Dans un module standard, mets :

Public c As Range, teste As Boolean, Heure As Date
Sub Affich()
Application.EnableEvents = False
Heure = Now + TimeValue("00:00:02")
Application.OnTime Heure, "Affich"
[A1] = c.Value
If c.Row < 1000 Then
Set c = c.Offset(1)
Else
Set c = [A2]
End If
Application.EnableEvents = True
End Sub

Je tiens un classeur exemple à ta disposition, éventuellement.
Cordialement.
Daniel
"aldo" a écrit dans le message de news:

Bonjour,

J'ai besoin de votre aide... (car je suis inculte...)

Dans la feuil1 de A2 à A1001 j'ai des nombres.

En cliquant sur la cellule C1(on/off)
je désire que toutes les 2 secondes apparaisse dans la cellule A1
le nombre des cellules A2, puis 2 secondes après A3, puis 2 seconde après
A4, etc
et qu'après avoir indiqué le nombre de la cellule A1001 à nouveau soit
indiqué le nombre de la cellule A2, A3, A4, A5, etc.

Merci de votre aide

Aldo.



Avatar
Daniel.C
Euh, deux choses :
1. il faut un double clic en C1.
2. Modifie le code comme suit :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Target.Address <> "$C$1" Then Exit Sub
If teste = False Then
teste = True
Set c = [A2]
Application.OnTime Now + TimeValue("00:00:02"), "Affich"
Else
teste = False
On Error Resume Next
Application.OnTime Heure, "Affich", , False
End If
End Sub

Daniel
"Daniel.C" a écrit dans le message de news:
%
Bonjour.
Dans le module de ta feuille, mets :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Target.Address <> "$C$1" Then Exit Sub
If teste = False Then
teste = True
Set c = [A2]
Application.OnTime Now + TimeValue("00:00:02"), "Affich"
Else
On Error Resume Next
Application.OnTime Heure, "Affich", , False
End If
End Sub

Dans un module standard, mets :

Public c As Range, teste As Boolean, Heure As Date
Sub Affich()
Application.EnableEvents = False
Heure = Now + TimeValue("00:00:02")
Application.OnTime Heure, "Affich"
[A1] = c.Value
If c.Row < 1000 Then
Set c = c.Offset(1)
Else
Set c = [A2]
End If
Application.EnableEvents = True
End Sub

Je tiens un classeur exemple à ta disposition, éventuellement.
Cordialement.
Daniel
"aldo" a écrit dans le message de news:

Bonjour,

J'ai besoin de votre aide... (car je suis inculte...)

Dans la feuil1 de A2 à A1001 j'ai des nombres.

En cliquant sur la cellule C1(on/off)
je désire que toutes les 2 secondes apparaisse dans la cellule A1
le nombre des cellules A2, puis 2 secondes après A3, puis 2 seconde après
A4, etc
et qu'après avoir indiqué le nombre de la cellule A1001 à nouveau soit
indiqué le nombre de la cellule A2, A3, A4, A5, etc.

Merci de votre aide

Aldo.







Avatar
aldo
Bonsoir Daniel,

Merci de ta réponse.
Avec plaisir le classeur, car tu vas constater que je suis very very INCULTE
...

Tu m'indiques:
Dans le module de ta feuille, mets:
donc clic droit onglet feuil1/visualiser le code/feuil1 worksheet et
la suite ???

Dans un module standard, mets:
Alors là je nage encore plus ...

Encore merci de ton classeur et de ton aide.



"Daniel.C" a écrit :

Euh, deux choses :
1. il faut un double clic en C1.
2. Modifie le code comme suit :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Target.Address <> "$C$1" Then Exit Sub
If teste = False Then
teste = True
Set c = [A2]
Application.OnTime Now + TimeValue("00:00:02"), "Affich"
Else
teste = False
On Error Resume Next
Application.OnTime Heure, "Affich", , False
End If
End Sub

Daniel
"Daniel.C" a écrit dans le message de news:
%
> Bonjour.
> Dans le module de ta feuille, mets :
>
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean)
> Cancel = True
> If Target.Address <> "$C$1" Then Exit Sub
> If teste = False Then
> teste = True
> Set c = [A2]
> Application.OnTime Now + TimeValue("00:00:02"), "Affich"
> Else
> On Error Resume Next
> Application.OnTime Heure, "Affich", , False
> End If
> End Sub
>
> Dans un module standard, mets :
>
> Public c As Range, teste As Boolean, Heure As Date
> Sub Affich()
> Application.EnableEvents = False
> Heure = Now + TimeValue("00:00:02")
> Application.OnTime Heure, "Affich"
> [A1] = c.Value
> If c.Row < 1000 Then
> Set c = c.Offset(1)
> Else
> Set c = [A2]
> End If
> Application.EnableEvents = True
> End Sub
>
> Je tiens un classeur exemple à ta disposition, éventuellement.
> Cordialement.
> Daniel
> "aldo" a écrit dans le message de news:
>
>> Bonjour,
>>
>> J'ai besoin de votre aide... (car je suis inculte...)
>>
>> Dans la feuil1 de A2 à A1001 j'ai des nombres.
>>
>> En cliquant sur la cellule C1(on/off)
>> je désire que toutes les 2 secondes apparaisse dans la cellule A1
>> le nombre des cellules A2, puis 2 secondes après A3, puis 2 seconde après
>> A4, etc
>> et qu'après avoir indiqué le nombre de la cellule A1001 à nouveau soit
>> indiqué le nombre de la cellule A2, A3, A4, A5, etc.
>>
>> Merci de votre aide
>>
>> Aldo.
>>
>
>





Avatar
Daniel.C
> Avec plaisir le classeur, car tu vas constater que je suis very very
INCULTE



http://cjoint.com/?jhvARZZrWD

Tu m'indiques:
Dans le module de ta feuille, mets:
donc clic droit onglet feuil1/visualiser le code/feuil1 worksheet
et
la suite ???



Oui.

> Dans un module standard, mets:
Alors là je nage encore plus ...



Dans la fenêtre Visual Basic (ALT+F11 depuis Excel), visualise le nom de ton
classeur, à gauche, clique les menus Insertion et Module. Colle ici le code.

Daniel
Avatar
aldo
Bonsoir Jacques,

Merci de ta réponse. Alors c'est Massa le Tip top aujourd'hui...

Si tu as compris ça c'est que je me suis mal exprimé. Donc je reformule plus
proprement...

- 1 clic sur C1 et le système marche
- 2 secondes après le nombre de A2 vient dans A1
- 2 secondes après le nombre de A3 vient dans A1
- 2 secondes après le nombre de A4 vient dans A1
- 2 secondes après le nombre de A5 vient dans A1
ainsi de suite toutes les 2 secondes
jusqu'au nombre de A1001 qui vient dand A1 et
2 secondes après c'est le nombre de A2 qui revient dans A1
- si 1 autre clic sur C1, le système s'arrête

Merci de ton aide Jacques.

Aldo.


"Jacquouille" a écrit :

Bonjour Aldo
Si j'ai bien compris, tu veux : C1¡.
Puis 2 sec après, tu veux C1¢, puis C1£ .....? c'est cela ?
Jacques, parti faire un tour en F1.

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"aldo" a écrit dans le message de news:

> Bonjour,
>
> J'ai besoin de votre aide... (car je suis inculte...)
>
> Dans la feuil1 de A2 à A1001 j'ai des nombres.
>
> En cliquant sur la cellule C1(on/off)
> je désire que toutes les 2 secondes apparaisse dans la cellule A1
> le nombre des cellules A2, puis 2 secondes après A3, puis 2 seconde après
> A4, etc
> et qu'après avoir indiqué le nombre de la cellule A1001 à nouveau soit
> indiqué le nombre de la cellule A2, A3, A4, A5, etc.
>
> Merci de votre aide
>
> Aldo.
>





Avatar
aldo
Re bonsoir Daniel,

VIFS VIFS remerciements !
je reste à ton service on sait jamais (juridique, gestion, finance, et autre
peut être)

Aldo



"Daniel.C" a écrit :

> Avec plaisir le classeur, car tu vas constater que je suis very very
> INCULTE

http://cjoint.com/?jhvARZZrWD

> Tu m'indiques:
> Dans le module de ta feuille, mets:
> donc clic droit onglet feuil1/visualiser le code/feuil1 worksheet
> et
> la suite ???

Oui.

> Dans un module standard, mets:
> Alors là je nage encore plus ...

Dans la fenêtre Visual Basic (ALT+F11 depuis Excel), visualise le nom de ton
classeur, à gauche, clique les menus Insertion et Module. Colle ici le code.

Daniel





Avatar
aldo
Re bonsoir Jacques,

Ne te déranges pas plus, Daniel C. vient de me donner la solution.

Encore merci de ton concours.

Aldo.



"Jacquouille" a écrit :

Bonjour Aldo
Si j'ai bien compris, tu veux : C1¡.
Puis 2 sec après, tu veux C1¢, puis C1£ .....? c'est cela ?
Jacques, parti faire un tour en F1.

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"aldo" a écrit dans le message de news:

> Bonjour,
>
> J'ai besoin de votre aide... (car je suis inculte...)
>
> Dans la feuil1 de A2 à A1001 j'ai des nombres.
>
> En cliquant sur la cellule C1(on/off)
> je désire que toutes les 2 secondes apparaisse dans la cellule A1
> le nombre des cellules A2, puis 2 secondes après A3, puis 2 seconde après
> A4, etc
> et qu'après avoir indiqué le nombre de la cellule A1001 à nouveau soit
> indiqué le nombre de la cellule A2, A3, A4, A5, etc.
>
> Merci de votre aide
>
> Aldo.
>





Avatar
Jacky
Bonsoir,
Pour ma curiosité perso....
A quoi doit servir cette manouvre ???

--
Salutations
JJ


"aldo" a écrit dans le message de news:

Re bonsoir Daniel,

VIFS VIFS remerciements !
je reste à ton service on sait jamais (juridique, gestion, finance, et
autre
peut être)

Aldo



"Daniel.C" a écrit :

> Avec plaisir le classeur, car tu vas constater que je suis very very
> INCULTE

http://cjoint.com/?jhvARZZrWD

> Tu m'indiques:
> Dans le module de ta feuille, mets:
> donc clic droit onglet feuil1/visualiser le code/feuil1
> worksheet
> et
> la suite ???

Oui.

> Dans un module standard, mets:
> Alors là je nage encore plus ...

Dans la fenêtre Visual Basic (ALT+F11 depuis Excel), visualise le nom de
ton
classeur, à gauche, clique les menus Insertion et Module. Colle ici le
code.

Daniel







Avatar
aldo
Bonsoir Daniel,

En plus d'Excel, j'utilise également Calc, d'où j'ai copié ton code dans
Calc mais ça ne fonctionne pas.

Peux tu m'aider pour que je puisse avoir le même résultat sur Calc que j'ai
avec Excel ???

Encore merci de tes sevices,

Aldo.


"Daniel.C" a écrit :

> Avec plaisir le classeur, car tu vas constater que je suis very very
> INCULTE

http://cjoint.com/?jhvARZZrWD

> Tu m'indiques:
> Dans le module de ta feuille, mets:
> donc clic droit onglet feuil1/visualiser le code/feuil1 worksheet
> et
> la suite ???

Oui.

> Dans un module standard, mets:
> Alors là je nage encore plus ...

Dans la fenêtre Visual Basic (ALT+F11 depuis Excel), visualise le nom de ton
classeur, à gauche, clique les menus Insertion et Module. Colle ici le code.

Daniel





1 2