[HS] Se libérer de la souris

Bonsour® LSteph avec ferveur ;o))) vous nous disiez :

...on ne l'entends plus!
amha il va y arriver s'il persévère!

s'il perd ses verres, il reste toujours le goulot, c'est pas ça qui va l'arreter
;o)))

@+
;o)))

amha il va y arriver s'il persévère!

s'il perd ses verres, il reste toujours le goulot, c'est pas ça qui va l'arreter
;o)))

:-D))

Trirème

salut geedee,
est ce un message subbbbbliminal, même avec ScreenUpdating = False "Atteindre" continu a nous envahir ;-)
isabelle

Bonsour® Tatanka avec ferveur ;o))) vous nous disiez :

Qui sera le plus rapide pour accomplir cette tâche sans jamais
utiliser la souris ? Lire attentivement la tâche à accomplir,

de l'ordre de 3 à 4 secondes cela ira ????
ou alors j'ai pas compris ;o)))
Marteau qu'il disait JiéL ;o)))

Sub tatanka()
SendKeys "%EtA1{ENTER}-5{ENTER}"
SendKeys
"%EtA1{enter}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}%EaS%C%n{ENTER}"

SendKeys "%EtB1{ENTER}¡*a1{ENTER}"
SendKeys
"%EtB1{ENTER}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}%Ea^B{ENTER}"
SendKeys "%EtA1{ENTER}%Et%C%Z{ENTER}"
SendKeys "%Ep%EtC1{ENTER}%Eo{ENTER}"
SendKeys "%EtA1{ENTER}%Et%C%z{ENTER}"
SendKeys
"%td{TAB}{TAB}-2{TAB}2%FM%C{DOWN}{DOWN}{DOWN}{ENTER}{TAB}{TAB}{ENTER}{TAB}{TAB}{TAB}{ENTER}"

End Sub




--
--
@+
;o)))

argch, perdre sa goulée, c'est effrayant ...
notre Mgr DonCamillio ne se lessera pas abatre même pour cettre attrocité.
isabele

20/11/2007 03:50
J@@ en réponse à Jacquouille
HS Primeur du 19/11 22:56


;-)

Bonsoir Isabelle,
...on ne l'entends plus!
C'est sûrement à cause de ce que j'ai lu sur un autre fil...
amha il va y arriver s'il persévère!

je l'espère bien Steph, même si j'ignore de quoi il en retourne,
t'as la date et l'autheur du fil ?
isabelle

;-)) ..avec vba...c'est pas un peu de la triche!

Sub tatanka()
application.screenupdatingúlse
'...

"Instantané"!
:o)

--
lSteph

Bonsour® Tatanka avec ferveur ;o))) vous nous disiez :

Qui sera le plus rapide pour accomplir cette tâche sans jamais
utiliser la souris ? Lire attentivement la tâche à accomplir,

de l'ordre de 3 à 4 secondes cela ira ????
ou alors j'ai pas compris ;o)))
Marteau qu'il disait JiéL ;o)))

Sub tatanka()
SendKeys "%EtA1{ENTER}-5{ENTER}"
SendKeys
"%EtA1{enter}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}%EaS%C%n{ENTER}"

SendKeys "%EtB1{ENTER}¡*a1{ENTER}"
SendKeys
"%EtB1{ENTER}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}%Ea^B{ENTER}"
SendKeys "%EtA1{ENTER}%Et%C%Z{ENTER}"
SendKeys "%Ep%EtC1{ENTER}%Eo{ENTER}"
SendKeys "%EtA1{ENTER}%Et%C%z{ENTER}"
SendKeys
"%td{TAB}{TAB}-2{TAB}2%FM%C{DOWN}{DOWN}{DOWN}{ENTER}{TAB}{TAB}{ENTER}{TAB}{TAB}{TAB}{ENTER}"

End Sub




--
--
@+
;o)))

Je peux dire plus !
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:O0NsCFVLIHA.4476@TK2MSFTNGP06.phx.gbl...

;o)) autre essai:
1'25

qui dit mieux?

--
lSteph
(le Ctrl+. fait gagner du temps)

Bonsoir, Bonsoir,

Qui sera le plus rapide pour accomplir cette tâche sans jamais utiliser
la souris ?

1) En A1:A11, entrez les nombres -5, -4, -3, -2, -1, 0, 1, 2, 3, 4 et 5.
2) En B1:B11 entrez les formules permettant d'obtenir les carrés des
nombres précédents.
3) En C1:D11 :
a) Copier les valeurs de A1:B11,
b) Faire une mise en forme conditionnelle permettant d'avoir un motif
rouge dans les
cellules dont les valeurs sont comprises entre -2 et 2 ( bornes
incluses ).
4) Centrer horizontalement et verticalement les cellules de A1:D11.
5) Sélectionner A1.

Lire attentivement la tâche à accomplir, téléchargez le fichier joint,
cliquez sur le bouton GO et lancez-vous à l'assaut le plus rapidement
possible.
Quand vous avez terminé, cliquez sur le bouton STOP. Vous verrez alors
apparaître le temps pris pour accomplir ladite tâche.

http://cjoint.com/?lwuDEn0Utd

Serge
Membre du MDLDLS

Bonjour Modeste,
Chez moi, "Erreur d'exécution 70" "permission refusée"
Snif !

/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Modeste" <nomail@nomail.net> a écrit dans le message de
news:%238s6s2VLIHA.4272@TK2MSFTNGP06.phx.gbl...

Bonsour® Tatanka avec ferveur ;o))) vous nous disiez :

Qui sera le plus rapide pour accomplir cette tâche sans jamais
utiliser la souris ? Lire attentivement la tâche à accomplir,

de l'ordre de 3 à 4 secondes cela ira ????
ou alors j'ai pas compris ;o)))
Marteau qu'il disait JiéL ;o)))

Sub tatanka()
SendKeys "%EtA1{ENTER}-5{ENTER}"
SendKeys
"%EtA1{enter}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}%EaS%C%n{ENTER}"

SendKeys "%EtB1{ENTER}¡*a1{ENTER}"
SendKeys
"%EtB1{ENTER}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}+{DOWN}%Ea^B{ENTER}"
SendKeys "%EtA1{ENTER}%Et%C%Z{ENTER}"
SendKeys "%Ep%EtC1{ENTER}%Eo{ENTER}"
SendKeys "%EtA1{ENTER}%Et%C%z{ENTER}"
SendKeys
"%td{TAB}{TAB}-2{TAB}2%FM%C{DOWN}{DOWN}{DOWN}{ENTER}{TAB}{TAB}{ENTER}{TAB}{TAB}{TAB}{ENTER}"

End Sub




--
--
@+
;o)))

Bonsour® LSteph avec ferveur ;o))) vous nous disiez :

;-)) ..avec vba...c'est pas un peu de la triche!

même pas vrai ...!!!
je reprends donc :
entre crochets sont des noms de touches
tous les autres caracteres sont à frapper

{Alt}E t A1{ENTER}-5{ENTER}
{Alt}E t A1 {enter}
+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas} {Alt} E a S {Alt} C
{Alt} n{ENTER}
{Alt} E t B1 {ENTER}¡*A1{ENTER}
{Alt} E t B1 {ENTER} +
{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas} {Alt} E a ^ B
{ENTER}
{Alt}E t A1{ENTER} {Alt}E t {Alt}C {Alt}Z{ENTER}
{Alt}E p{Alt}E t C1{ENTER} {Alt}E o{ENTER}
{Alt}E t A1{ENTER} {Alt}E t {Alt}C {Alt}z{ENTER}
{Alt}t d{TAB}{TAB}-2 {TAB}2 {Alt}F M
{Alt}C{DOWN}{DOWN}{DOWN}{ENTER}{TAB}{TAB}{ENTER}{TAB}{TAB}{TAB}{ENTER}

34 secondes !!!
la preuve dans ta BAL ;o)))


en macro cela aura donné ça :
Sub Macro1()
Range("A1").Formula = "-5"
Range("A1:A11").DataSeries _
Rowcol:=xlColumns, _
Type:=xlLinear, _
Date:=xlDay, _
Step:=1, _
Trend:úlse
Range("B1").Formula = "¡*A1"
Range("B1:B11").FillDown
Range("A1:B11").Copy
Range("C1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Range("A1").CurrentRegion
.FormatConditions.Delete
.FormatConditions.Add _
Type:=xlCellValue, _
Operator:=xlBetween, _
Formula1:="-2", _
Formula2:="2"
.FormatConditions(1).Interior.ColorIndex = 3
End With
Range("A1").Select
End Sub

@+
;o)))

Bonsour® Philippe.R avec ferveur ;o))) vous nous disiez :

Bonjour Modeste,
Chez moi, "Erreur d'exécution 70" "permission refusée"

c'est pas grave ;o)))
ce n'est que la "pénible" traduction en séquence de touches via Sendkeys des
différents raccourcis , navigations ou actions clavier apparaissant dans les
differents menu et boites de dialogues...
voir mes réponses à Lsteph.

@+
;o)))

T'as loupé le primordial
application.screenupdating=false

:o)) et toc!!

(et Ctrl+.) le point du pav num cela ne t'aiderait pas!?

On 23 nov, 11:44, "Modeste" <nom...@nomail.net> wrote:

Bonsour(R) LSteph avec ferveur ;o))) vous nous disiez :

;-)) ..avec vba...c'est pas un peu de la triche!

même pas vrai ...!!!
je reprends donc :
entre crochets sont des noms de touches
tous les autres caracteres sont à frapper

{Alt}E t A1{ENTER}-5{ENTER}
{Alt}E t A1 {enter}
+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas} {Alt} E a S { Alt} C
{Alt} n{ENTER}
{Alt} E t B1 {ENTER}=A1*A1{ENTER}
{Alt} E t B1 {ENTER} +
{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas}+{bas} {Alt} E a ^ B
{ENTER}
{Alt}E t A1{ENTER} {Alt}E t {Alt}C {Alt}Z{ENTER}
{Alt}E p{Alt}E t C1{ENTER} {Alt}E o{ENTER}
{Alt}E t A1{ENTER} {Alt}E t {Alt}C {Alt}z{ENTER}
{Alt}t d{TAB}{TAB}-2 {TAB}2 {Alt}F M
{Alt}C{DOWN}{DOWN}{DOWN}{ENTER}{TAB}{TAB}{ENTER}{TAB}{TAB}{TAB}{ENTER}

34 secondes !!!
la preuve dans ta BAL ;o)))

en macro cela aura donné ça :
Sub Macro1()
Range("A1").Formula = "-5"
Range("A1:A11").DataSeries _
Rowcol:=xlColumns, _
Type:=xlLinear, _
Date:=xlDay, _
Step:=1, _
Trend:=False
Range("B1").Formula = "=A1*A1"
Range("B1:B11").FillDown
Range("A1:B11").Copy
Range("C1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Range("A1").CurrentRegion
.FormatConditions.Delete
.FormatConditions.Add _
Type:=xlCellValue, _
Operator:=xlBetween, _
Formula1:="-2", _
Formula2:="2"
.FormatConditions(1).Interior.ColorIndex = 3
End With
Range("A1").Select
End Sub

@+
;o)))