Améliorer une macro

[Hulk]

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]

Re : Améliorer une macro

Bonjour Hulk

essaye peut être ainsi :

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]

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]

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]

Re : Améliorer une macro

re:

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

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