Améliorer une macro

Hulk · 30 Novembre 2009

Hello,

Je reviens vers vous demander de l'aide.

J'ai une macro qui traîne un peu la patte, je me demande si on ne peut pas l'améliorer !?

Au fait c'est assez dur d'expliquer comme ça, le mieux est de regarder le fichier joint, il y a des exemples et des explications j'espère assez claires.

J'espère qu'il y a connaisseurs du monde binaire parmis vous !

Dans l'attente d'une piste, un grand merci d'avance.

Cdt, Hulk.

Pierrot93 · 30 Novembre 2009

Re : Améliorer une macro

Bonjour Hulk

essaye peut être ainsi :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$AJ$3" Then Exit Sub
    Application.EnableEvents = False
    If [AJ3] = 14 Then
        [P1] = 4
        ElseIf [AJ3] = 13 Then [P1] = 8
        ElseIf [AJ3] = 12 Then [P1] = 16
        ElseIf [AJ3] = 11 Then [P1] = 32
        ElseIf [AJ3] = 10 Then [P1] = 64
        ElseIf [AJ3] = 9 Then [P1] = 128
        ElseIf [AJ3] = 8 Then [P1] = 1
        ElseIf [AJ3] = 7 Then [P1] = 2
        ElseIf [AJ3] = 6 Then [P1] = 4
        ElseIf [AJ3] = 5 Then [P1] = 8
        ElseIf [AJ3] = 4 Then [P1] = 16
        ElseIf [AJ3] = 3 Then [P1] = 32
        ElseIf [AJ3] = 2 Then [P1] = 64
        ElseIf [AJ3] = 1 Then [P1] = 128
        ElseIf [AJ3] = 0 Then [P1] = 256
    End If
    Application.EnableEvents = True
End Sub

bonne journée
@+

Roland_M · 30 Novembre 2009

Re : Améliorer une macro

bonjour à tous

en complement de Pierrot93

Private Sub Worksheet_Change(ByVal Target As Range)
If [AJ3] >= 0 And [AJ3] <= 14 Then [P1] = Choose([AJ3] + 1, 256, 128, 64, 32, 16, 8, 4, 2, 1, 128, 64, 32, 16, 8, 4)
End Sub

Hulk · 30 Novembre 2009

Re : Améliorer une macro

Re,

Trois mots.... Im-Pec-Cable !

J'optais pour la solution à Roland, mais finalement celle de Pierrot est plus longue, mais plus efficace, car pas de "tremblement" de l'écran après calcul.

J'espère que tu ne m'en voudras pas Roland, teste tu verras la différence s tu veux...

En tous les cas, un grand merci à vous Messieurs !

Petite question subsidiaire : J'imagine que vous connaissez le binaire pour répondre aussi rapidement ?

Cdt, Hulk.

Roland_M · 30 Novembre 2009

Re : Améliorer une macro

re:

j'entendais par complément à Pierrot, comme ceci:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$AJ$3" Then Exit Sub
Application.EnableEvents = False
If [AJ3] >= 0 And [AJ3] <= 14 Then [P1] = Choose([AJ3] + 1, 256, 128, 64, 32, 16, 8, 4, 2, 1, 128, 64, 32, 16, 8, 4)
Application.EnableEvents = True
End Sub

Améliorer une macro

Hulk

XLDnaute Barbatruc

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Hulk

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Discussions similaires

Améliorer une macro

Hulk

XLDnaute Barbatruc

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Hulk

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency