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.
D'ailleurs tu as changé quelque peu si je ne m'abuse: avec ferveur ;o))) vous nous disiez :
de l'ordre de 3 à 4 secondes cela ira ????
34 secondes !!! pô poreil!
ti Steph On 23 nov, 11:44, "Modeste" 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{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)))
D'ailleurs tu as changé quelque peu si je ne m'abuse:
avec ferveur ;o))) vous nous disiez :
de l'ordre de 3 à 4 secondes cela ira ????
34 secondes !!!
pô poreil!
ti Steph
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
D'ailleurs tu as changé quelque peu si je ne m'abuse: avec ferveur ;o))) vous nous disiez :
de l'ordre de 3 à 4 secondes cela ira ????
34 secondes !!! pô poreil!
ti Steph On 23 nov, 11:44, "Modeste" 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{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)))
Modeste
Bonsour® lSteph avec ferveur ;o))) vous nous disiez :
D'ailleurs tu as changé quelque peu si je ne m'abuse:
34 secondes !!! pô poreil!
la dame qui énonce , ne parle pas vite !!! ;o)))
@+ ;o)))
Bonsour® lSteph avec ferveur ;o))) vous nous disiez :
D'ailleurs tu as changé quelque peu si je ne m'abuse: