Je voudrai réaliser un pavé numérique aléatoire type ceux rencontré sur les
sites bancaire lorsque l'on doit rentrer son n° secret pour éviter que son
code soit identifié par l'emplacement des n°.
1) Il faudrait que les cellules A1 à E5 contiennent de façon aléatoire les
chiffres de 0 à 9. Les autres cases doivent rester vide.
2) Il faudrait qu'en cliquant sur 1 chiffre la valeur du chiffre vienne se
placer en G3 avec la contrainte suivante
si j'appuie sur le 2 puis sur le 7 la cellule G3 doit contenir 27 (puis sur
le 4 => 274 etc.)
Sub zzz() Application.ScreenUpdating = False [tablo] = "": [G3] = "" BornInf = 0: BornSup = 25 For i = 1 To 25 x1 = Evaluate("int(rand()*(" & BornSup + 1 & "-" & BornInf & ")+" & BornInf & ")") If Application.CountIf([tablo], x1) > 0 Then i = i - 1 Else [tablo].Item(i) = x1 Next For Each c In [tablo] If c.Value > 9 Then c.Value = "" Next End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean) Cancel = True If Intersect(zz, [tablo]) Is Nothing Then Exit Sub If zz <> "" Then [G3] = [G3] & zz End Sub
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message
news:<uM4#10pLHHA.3588@TK2MSFTNGP06.phx.gbl>...
Un exemple là :
http://cjoint.com/?bctLDgkIus
Sub zzz()
Application.ScreenUpdating = False
[tablo] = "": [G3] = ""
BornInf = 0: BornSup = 25
For i = 1 To 25
x1 = Evaluate("int(rand()*(" & BornSup + 1 & "-" & BornInf & ")+" &
BornInf & ")")
If Application.CountIf([tablo], x1) > 0 Then i = i - 1 Else
[tablo].Item(i) = x1
Next
For Each c In [tablo]
If c.Value > 9 Then c.Value = ""
Next
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As
Boolean)
Cancel = True
If Intersect(zz, [tablo]) Is Nothing Then Exit Sub
If zz <> "" Then [G3] = [G3] & zz
End Sub
Sub zzz() Application.ScreenUpdating = False [tablo] = "": [G3] = "" BornInf = 0: BornSup = 25 For i = 1 To 25 x1 = Evaluate("int(rand()*(" & BornSup + 1 & "-" & BornInf & ")+" & BornInf & ")") If Application.CountIf([tablo], x1) > 0 Then i = i - 1 Else [tablo].Item(i) = x1 Next For Each c In [tablo] If c.Value > 9 Then c.Value = "" Next End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean) Cancel = True If Intersect(zz, [tablo]) Is Nothing Then Exit Sub If zz <> "" Then [G3] = [G3] & zz End Sub
Bonjour et bonne année à tous, Super mais , à la suite de certaines relances, un chiffre n'apparait pas ( jamais le même) : un problème de boucle ?? Merci et bonne fin de journée Bernard St-Pierre de la Réunion "kerr2" a écrit dans le message de news: %
Bonjour,
Je voudrai réaliser un pavé numérique aléatoire type ceux rencontré sur les sites bancaire lorsque l'on doit rentrer son n° secret pour éviter que son code soit identifié par l'emplacement des n°. 1) Il faudrait que les cellules A1 à E5 contiennent de façon aléatoire les chiffres de 0 à 9. Les autres cases doivent rester vide. 2) Il faudrait qu'en cliquant sur 1 chiffre la valeur du chiffre vienne se placer en G3 avec la contrainte suivante si j'appuie sur le 2 puis sur le 7 la cellule G3 doit contenir 27 (puis sur le 4 => 274 etc.)
En vous remerciant pour votre aide.
Bonjour et bonne année à tous,
Super mais , à la suite de certaines relances, un chiffre n'apparait pas (
jamais le même) : un problème de boucle ??
Merci et bonne fin de journée
Bernard
St-Pierre de la Réunion
"kerr2" <kerr2entrop@free.onsupprimefr> a écrit dans le message de news:
%23rEb5ipLHHA.2456@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je voudrai réaliser un pavé numérique aléatoire type ceux rencontré sur
les sites bancaire lorsque l'on doit rentrer son n° secret pour éviter
que son code soit identifié par l'emplacement des n°.
1) Il faudrait que les cellules A1 à E5 contiennent de façon aléatoire les
chiffres de 0 à 9. Les autres cases doivent rester vide.
2) Il faudrait qu'en cliquant sur 1 chiffre la valeur du chiffre vienne se
placer en G3 avec la contrainte suivante
si j'appuie sur le 2 puis sur le 7 la cellule G3 doit contenir 27 (puis
sur le 4 => 274 etc.)
Bonjour et bonne année à tous, Super mais , à la suite de certaines relances, un chiffre n'apparait pas ( jamais le même) : un problème de boucle ?? Merci et bonne fin de journée Bernard St-Pierre de la Réunion "kerr2" a écrit dans le message de news: %
Bonjour,
Je voudrai réaliser un pavé numérique aléatoire type ceux rencontré sur les sites bancaire lorsque l'on doit rentrer son n° secret pour éviter que son code soit identifié par l'emplacement des n°. 1) Il faudrait que les cellules A1 à E5 contiennent de façon aléatoire les chiffres de 0 à 9. Les autres cases doivent rester vide. 2) Il faudrait qu'en cliquant sur 1 chiffre la valeur du chiffre vienne se placer en G3 avec la contrainte suivante si j'appuie sur le 2 puis sur le 7 la cellule G3 doit contenir 27 (puis sur le 4 => 274 etc.)
En vous remerciant pour votre aide.
AV
.....un problème de boucle ??
Absolument ! Petite erreur : C'est la borne sup qu'il faut mettre à 24 au lieu de 25
http://cjoint.com/?bdlgt5biXr
AV
.....un problème de boucle ??
Absolument !
Petite erreur : C'est la borne sup qu'il faut mettre à 24 au lieu de 25
Absolument ! Petite erreur : C'est la borne sup qu'il faut mettre à 24 au lieu de 25
http://cjoint.com/?bdlgt5biXr
AV
AV
Il manquerait un petit bouton pour corriger une erreur de saisie. Et puis summum, un seul clic pour insérer un chiffre. Est il possible de réaliser une saisie comme lorsque l'on clic sur un lien hypertexte ?
http://cjoint.com/?bdjsf4O7hU
AV
Il manquerait un petit bouton pour corriger une erreur de saisie.
Et puis summum, un seul clic pour insérer un chiffre. Est il possible de
réaliser une saisie comme lorsque l'on clic sur un lien hypertexte ?
Il manquerait un petit bouton pour corriger une erreur de saisie. Et puis summum, un seul clic pour insérer un chiffre. Est il possible de réaliser une saisie comme lorsque l'on clic sur un lien hypertexte ?
http://cjoint.com/?bdjsf4O7hU
AV
cousinhub
Bonjour, effectivement, un des chiffres n'apparait pas pour cela, remplace le 25 de : x1 = Evaluate("int(rand()*(" & 25 + 1 & "-" & 0 & ")+" & 0 & ")") par 24 (le tablo ne comporte que 25 cases et non 26) mais c'est superbe
"Bernard" a écrit dans le message de news: 459b5ca3$0$27390$
Bonjour et bonne année à tous, Super mais , à la suite de certaines relances, un chiffre n'apparait pas ( jamais le même) : un problème de boucle ?? Merci et bonne fin de journée Bernard St-Pierre de la Réunion "kerr2" a écrit dans le message de news: %
Bonjour,
Je voudrai réaliser un pavé numérique aléatoire type ceux rencontré sur les sites bancaire lorsque l'on doit rentrer son n° secret pour éviter que son code soit identifié par l'emplacement des n°. 1) Il faudrait que les cellules A1 à E5 contiennent de façon aléatoire les chiffres de 0 à 9. Les autres cases doivent rester vide. 2) Il faudrait qu'en cliquant sur 1 chiffre la valeur du chiffre vienne se placer en G3 avec la contrainte suivante si j'appuie sur le 2 puis sur le 7 la cellule G3 doit contenir 27 (puis sur le 4 => 274 etc.)
En vous remerciant pour votre aide.
Bonjour,
effectivement, un des chiffres n'apparait pas
pour cela, remplace le 25 de :
x1 = Evaluate("int(rand()*(" & 25 + 1 & "-" & 0 & ")+" & 0 & ")") par 24
(le tablo ne comporte que 25 cases et non 26) mais c'est superbe
"Bernard" <bvic@wanadoo.fr> a écrit dans le message de news:
459b5ca3$0$27390$ba4acef3@news.orange.fr...
Bonjour et bonne année à tous,
Super mais , à la suite de certaines relances, un chiffre n'apparait pas
( jamais le même) : un problème de boucle ??
Merci et bonne fin de journée
Bernard
St-Pierre de la Réunion
"kerr2" <kerr2entrop@free.onsupprimefr> a écrit dans le message de news:
%23rEb5ipLHHA.2456@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je voudrai réaliser un pavé numérique aléatoire type ceux rencontré sur
les sites bancaire lorsque l'on doit rentrer son n° secret pour éviter
que son code soit identifié par l'emplacement des n°.
1) Il faudrait que les cellules A1 à E5 contiennent de façon aléatoire
les chiffres de 0 à 9. Les autres cases doivent rester vide.
2) Il faudrait qu'en cliquant sur 1 chiffre la valeur du chiffre vienne
se placer en G3 avec la contrainte suivante
si j'appuie sur le 2 puis sur le 7 la cellule G3 doit contenir 27 (puis
sur le 4 => 274 etc.)
Bonjour, effectivement, un des chiffres n'apparait pas pour cela, remplace le 25 de : x1 = Evaluate("int(rand()*(" & 25 + 1 & "-" & 0 & ")+" & 0 & ")") par 24 (le tablo ne comporte que 25 cases et non 26) mais c'est superbe
"Bernard" a écrit dans le message de news: 459b5ca3$0$27390$
Bonjour et bonne année à tous, Super mais , à la suite de certaines relances, un chiffre n'apparait pas ( jamais le même) : un problème de boucle ?? Merci et bonne fin de journée Bernard St-Pierre de la Réunion "kerr2" a écrit dans le message de news: %
Bonjour,
Je voudrai réaliser un pavé numérique aléatoire type ceux rencontré sur les sites bancaire lorsque l'on doit rentrer son n° secret pour éviter que son code soit identifié par l'emplacement des n°. 1) Il faudrait que les cellules A1 à E5 contiennent de façon aléatoire les chiffres de 0 à 9. Les autres cases doivent rester vide. 2) Il faudrait qu'en cliquant sur 1 chiffre la valeur du chiffre vienne se placer en G3 avec la contrainte suivante si j'appuie sur le 2 puis sur le 7 la cellule G3 doit contenir 27 (puis sur le 4 => 274 etc.)
En vous remerciant pour votre aide.
kerr2
Merci Alain. C'est un travail sur mesure. Et puis aussi pour cette petite correction. Il y a même le SAV.
Bonne journée à tous.
"AV" a écrit dans le message de news:
.....un problème de boucle ??
Absolument ! Petite erreur : C'est la borne sup qu'il faut mettre à 24 au lieu de 25
http://cjoint.com/?bdlgt5biXr
AV
Merci Alain. C'est un travail sur mesure.
Et puis aussi pour cette petite correction. Il y a même le SAV.
Bonne journée à tous.
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
OLeKc8xLHHA.320@TK2MSFTNGP06.phx.gbl...
.....un problème de boucle ??
Absolument !
Petite erreur : C'est la borne sup qu'il faut mettre à 24 au lieu de 25
