Voilà un petit code rigolo que j'ai fait il y a quelques temps qui fait
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le résultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy
Voilà un petit code rigolo que j'ai fait il y a quelques temps qui fait
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le résultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy
Voilà un petit code rigolo que j'ai fait il y a quelques temps qui fait
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le résultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le rés ultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le rés ultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le rés ultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy
Voilà un petit code rigolo
;o) oui
Salut,
J'ai trouvé ceci de "ilcocodrillo"
Youky
Voilà un petit code rigolo que j'ai fait il y a quelques temps qui fait
défiler du texte toute seule sui vous la mettez dans une macro
évenementielle open ou activate et tant que la feuille toto est la feui lle
active.
on peut joueur sur les paramètres de longueur et de vitesse
Option Explicit
Dim TexTe As String
Dim TexTe2 As String
Dim AffichAge As String
Dim AffichAge2 As String
Dim ViTesse As Double
Dim tempo As Date
Sub DefiLement()
TexTe = " Défilement à gauche"
TexTe2 = "Défilement à droite "
Do While ActiveSheet.Name = "toto"
TexTe = Right(TexTe, Len(TexTe) - 1) & Left(TexTe, 1)
AffichAge = Left(TexTe, 25)
[e2] = AffichAge
TexTe2 = Right(TexTe2, 1) & Left(TexTe2, Len(TexTe2) - 1)
AffichAge2 = Left(TexTe2, 25)
[e5] = AffichAge2
ViTesse = 0.1
tempo = Timer
Do While Timer < tempo + ViTesse
DoEvents
Loop
Loop
End Sub
------------------------------------------------------------------------- -------
"Guy72" a écrit dans le message de news:
ulY%Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le r ésultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy
Voilà un petit code rigolo
;o) oui
Salut,
J'ai trouvé ceci de "ilcocodrillo"
Youky
Voilà un petit code rigolo que j'ai fait il y a quelques temps qui fait
défiler du texte toute seule sui vous la mettez dans une macro
évenementielle open ou activate et tant que la feuille toto est la feui lle
active.
on peut joueur sur les paramètres de longueur et de vitesse
Option Explicit
Dim TexTe As String
Dim TexTe2 As String
Dim AffichAge As String
Dim AffichAge2 As String
Dim ViTesse As Double
Dim tempo As Date
Sub DefiLement()
TexTe = " Défilement à gauche"
TexTe2 = "Défilement à droite "
Do While ActiveSheet.Name = "toto"
TexTe = Right(TexTe, Len(TexTe) - 1) & Left(TexTe, 1)
AffichAge = Left(TexTe, 25)
[e2] = AffichAge
TexTe2 = Right(TexTe2, 1) & Left(TexTe2, Len(TexTe2) - 1)
AffichAge2 = Left(TexTe2, 25)
[e5] = AffichAge2
ViTesse = 0.1
tempo = Timer
Do While Timer < tempo + ViTesse
DoEvents
Loop
Loop
End Sub
------------------------------------------------------------------------- -------
"Guy72" <gu...@Bonjour.tous> a écrit dans le message de news:
ulY%23liN1HHA.4...@TK2MSFTNGP05.phx.gbl...
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le r ésultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy
Voilà un petit code rigolo
;o) oui
Salut,
J'ai trouvé ceci de "ilcocodrillo"
Youky
Voilà un petit code rigolo que j'ai fait il y a quelques temps qui fait
défiler du texte toute seule sui vous la mettez dans une macro
évenementielle open ou activate et tant que la feuille toto est la feui lle
active.
on peut joueur sur les paramètres de longueur et de vitesse
Option Explicit
Dim TexTe As String
Dim TexTe2 As String
Dim AffichAge As String
Dim AffichAge2 As String
Dim ViTesse As Double
Dim tempo As Date
Sub DefiLement()
TexTe = " Défilement à gauche"
TexTe2 = "Défilement à droite "
Do While ActiveSheet.Name = "toto"
TexTe = Right(TexTe, Len(TexTe) - 1) & Left(TexTe, 1)
AffichAge = Left(TexTe, 25)
[e2] = AffichAge
TexTe2 = Right(TexTe2, 1) & Left(TexTe2, Len(TexTe2) - 1)
AffichAge2 = Left(TexTe2, 25)
[e5] = AffichAge2
ViTesse = 0.1
tempo = Timer
Do While Timer < tempo + ViTesse
DoEvents
Loop
Loop
End Sub
------------------------------------------------------------------------- -------
"Guy72" a écrit dans le message de news:
ulY%Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le r ésultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le résultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le résultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le résultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy
Bonjour JB
Ton exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par contr e je
n'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut p eut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" a écrit dans le message denews:118604561
Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" wrote:Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le r ésultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB
Ton exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par contr e je
n'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut p eut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" <boisgont...@hotmail.com> a écrit dans le message denews:118604561 6.379338.173220@w3g2000hsg.googlegroups.com...
Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le r ésultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB
Ton exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par contr e je
n'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut p eut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" a écrit dans le message denews:118604561
Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" wrote:Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le r ésultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB
Ton exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par contr e je
n'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut p eut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" a écrit dans le message denews:118604561
Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" wrote:Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le r ésultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB
Ton exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par contr e je
n'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut p eut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" <boisgont...@hotmail.com> a écrit dans le message denews:118604561 6.379338.173220@w3g2000hsg.googlegroups.com...
Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le r ésultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB
Ton exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par contr e je
n'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut p eut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" a écrit dans le message denews:118604561
Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" wrote:Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le r ésultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB
Ton exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par contre
je
n'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut peut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" a écrit dans le message
denews:
Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" wrote:Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le
résultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB
Ton exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par contre
je
n'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut peut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" <boisgont...@hotmail.com> a écrit dans le message
denews:1186045616.379338.173220@w3g2000hsg.googlegroups.com...
Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le
résultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB
Ton exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par contre
je
n'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut peut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" a écrit dans le message
denews:
Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" wrote:Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le
résultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
BonjourJB
J'aime beaucoup ta présentation des questions.
Si je pouvais faire apparître des images suivant les questions, ce sera is
parfait ?
Est ce possible ?
J'ai pris les validations de données, à la place des boutons car j'ai
environ 60 questions X 10 feuilles, ça me faisait 600 boutons, mais ave c ta
solution je n'ai peut être besoin que de 4 boutons maxi ?
Merci de ton aide
"JB" a écrit dans le message denews:118612367
Bonjour,
Exemple de QCM avec formulaire:
http://cjoint.com/?idiVXZ4XcN
JB
On 2 août, 13:06, "Guy72" wrote:> BonjourJBTon exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par con tre
jen'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut peut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" a écrit dans le message
denews:Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" wrote:Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le
résultatde la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
BonjourJB
J'aime beaucoup ta présentation des questions.
Si je pouvais faire apparître des images suivant les questions, ce sera is
parfait ?
Est ce possible ?
J'ai pris les validations de données, à la place des boutons car j'ai
environ 60 questions X 10 feuilles, ça me faisait 600 boutons, mais ave c ta
solution je n'ai peut être besoin que de 4 boutons maxi ?
Merci de ton aide
"JB" <boisgont...@hotmail.com> a écrit dans le message denews:118612367 6.046021.315800@g4g2000hsf.googlegroups.com...
Bonjour,
Exemple de QCM avec formulaire:
http://cjoint.com/?idiVXZ4XcN
JB
On 2 août, 13:06, "Guy72" <gu...@Bonjour.tous> wrote:> BonjourJB
Ton exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par con tre
je
n'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut peut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" <boisgont...@hotmail.com> a écrit dans le message
denews:1186045616.379338.173220@w3g2000hsg.googlegroups.com...
Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le
résultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
BonjourJB
J'aime beaucoup ta présentation des questions.
Si je pouvais faire apparître des images suivant les questions, ce sera is
parfait ?
Est ce possible ?
J'ai pris les validations de données, à la place des boutons car j'ai
environ 60 questions X 10 feuilles, ça me faisait 600 boutons, mais ave c ta
solution je n'ai peut être besoin que de 4 boutons maxi ?
Merci de ton aide
"JB" a écrit dans le message denews:118612367
Bonjour,
Exemple de QCM avec formulaire:
http://cjoint.com/?idiVXZ4XcN
JB
On 2 août, 13:06, "Guy72" wrote:> BonjourJBTon exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par con tre
jen'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut peut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" a écrit dans le message
denews:Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" wrote:Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le
résultatde la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
BonjourJB
J'aime beaucoup ta présentation des questions.
Si je pouvais faire apparître des images suivant les questions, ce serais
parfait ?
Est ce possible ?
J'ai pris les validations de données, à la place des boutons car j'ai
environ 60 questions X 10 feuilles, ça me faisait 600 boutons, mais avec
ta
solution je n'ai peut être besoin que de 4 boutons maxi ?
Merci de ton aide
"JB" a écrit dans le message
denews:
Bonjour,
Exemple de QCM avec formulaire:
http://cjoint.com/?idiVXZ4XcN
JB
On 2 août, 13:06, "Guy72" wrote:> BonjourJBTon exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par contre
jen'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut
peut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" a écrit dans le message
denews:Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" wrote:Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le
résultatde la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
BonjourJB
J'aime beaucoup ta présentation des questions.
Si je pouvais faire apparître des images suivant les questions, ce serais
parfait ?
Est ce possible ?
J'ai pris les validations de données, à la place des boutons car j'ai
environ 60 questions X 10 feuilles, ça me faisait 600 boutons, mais avec
ta
solution je n'ai peut être besoin que de 4 boutons maxi ?
Merci de ton aide
"JB" <boisgont...@hotmail.com> a écrit dans le message
denews:1186123676.046021.315800@g4g2000hsf.googlegroups.com...
Bonjour,
Exemple de QCM avec formulaire:
http://cjoint.com/?idiVXZ4XcN
JB
On 2 août, 13:06, "Guy72" <gu...@Bonjour.tous> wrote:> BonjourJB
Ton exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par contre
je
n'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut
peut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" <boisgont...@hotmail.com> a écrit dans le message
denews:1186045616.379338.173220@w3g2000hsg.googlegroups.com...
Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" <gu...@Bonjour.tous> wrote:
Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le
résultat
de la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
BonjourJB
J'aime beaucoup ta présentation des questions.
Si je pouvais faire apparître des images suivant les questions, ce serais
parfait ?
Est ce possible ?
J'ai pris les validations de données, à la place des boutons car j'ai
environ 60 questions X 10 feuilles, ça me faisait 600 boutons, mais avec
ta
solution je n'ai peut être besoin que de 4 boutons maxi ?
Merci de ton aide
"JB" a écrit dans le message
denews:
Bonjour,
Exemple de QCM avec formulaire:
http://cjoint.com/?idiVXZ4XcN
JB
On 2 août, 13:06, "Guy72" wrote:> BonjourJBTon exemple me convient parfaitement.
Mais je n'arrive pas à le faire fonctionner dans mon dossier, par contre
jen'est pas signalé que j'avais plusieurs feuilles (10) et cela ne peut
peut
êtres pas fonctionner ?
Cordialement
guyhttp://cjoint.com/?icnglqePSt
"JB" a écrit dans le message
denews:Bonjour,
Dim Témoin, sauv
Private Sub Worksheet_Calculate()
If [A180] >= 1 Then
If Not Témoin Then sauv = [C180]
m = [C180]
Témoin = True
n = 0
Do While n < 50 And Témoin
m = Right(m, 1) & Left(m, Len(m) - 1)
[C180] = m
w = 0.2
temp = Timer
Do While Timer < temp + w: DoEvents: Loop
n = n + 1
Loop
[C180] = sauv
Else
Témoin = False
[C180] = sauv
End If
End Sub
http://cjoint.com/?iclgUpZ5Lp
JB
On 2 août, 09:42, "Guy72" wrote:Bonjour
Je souhaiterais que dans la cellule C180 le texte défile quant le
résultatde la cellule A180 au moins 1.
Merci de votre aide
Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -