Algorithme calcul 1 2 4 8 16 32..

Version imprimable

13/10/2021, 15h10
Sites

Algorithme calcul 1 2 4 8 16 32..

Bonjour,

Je vais essayer d'être clair...
Via une macro VBA Excel, je procède à un certain nombre de contrôles sur différentes zones dans un fichier saisi par un utilisateur.
A chaque contrôle, j'affecte un code erreur ainsi numéroté :
Contrôle 1 = Code 1
Contrôle 2 = Code 2
Contrôle 3 = Code 4
Contrôle 4 = Code 8
Contrôle 5 = Code 16
Contrôle 6 = Code 32
Contrôle 7 = Code 64...

En as d'erreur, j'additionne les codes.
Ainsi, si une zone ne passe pas les contrôles 1, 2, 4 et 5, cette zone sera affectée du code retour 27 (1+2+8+16).

Jusque là je ne peux pas faire autrement.

Voici donc mon problème :
Si l'utilisateur souhaite voir la liste des lignes pointées en erreur sur le contrôle 5 par exemple, je procède ainsi :
Si code retour in (16,17,18,19,20,21,22,23,24,25,26,27,28,29,30...) en listant tous les cas possibles.

N'existe-t-il pas une méthode plus simple ?
Méthode évolutive car la liste des contrôles sera amenée à être complétée.

Merci pour votre aide
13/10/2021, 15h33
Pierre Fauconnier

2 pièce(s) jointe(s)

Salut

Il faut tester bit à bit, en Excel ou en VBA

En excel avec BITET(VAL1; VAL2)

Pièce jointe 606568

En VBA avec AND

Pièce jointe 606569
13/10/2021, 15h46
Sites

Cela me semble bien

Bonjour Pierre,

Merci pour la célérité de votre réponse.

Cela me semble bien.
Mais comment coder cela en VBA ?
13/10/2021, 15h50
Pierre Fauconnier

Ca dépend de la configuration du classeur, du tableau...

Une copie d'écran et une explication de la conception du classeur seraient bienvenues

hello,
tu peux aussi passer par une représentation binaire du code. Comme ceci par exemple:
Code:

1 2 3 4 5 6 7 Sub CheckCtl() Dim CodeErreur As String CodeErreur = WorksheetFunction.Dec2Bin(27, 8) Debug.Print CodeErreur For x = 1 To 8 If Mid(CodeErreur, x, 1) = 1 Then Debug.Print "erreur pour Ctrl" + CStr(9 - x) Next
Résultat :

Citation:

00011011
erreur pour Ctrl5
erreur pour Ctrl4
erreur pour Ctrl2
erreur pour Ctrl1

Ami calmant, J.P

Citation:

Envoyé par Pierre Fauconnier

Ca dépend de la configuration du classeur, du tableau...

Une copie d'écran et une explication de la conception du classeur seraient bienvenues

J'ai plusieurs colonnes dont voici les principales
Col A : Nom du responsable
Col B : Date de début
Col C : Date de fin

Un bouton général pour lancer les contrôles globaux.
A la fin des contrôles, un code erreur général est affiché pour chaque ligne en colonne 14.
L'utilisateur dispose ensuite de x boutons pour afficher uniquement les lignes ne répondant pas à un contrôle particulier.

Voici par exemple le code du bouton qui retourne la valeur 4 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Application.ScreenUpdating = False
 
 
For L = Nb_Lig To PremièreL Step -1
    Rows(L).Select
    Selection.EntireRow.Hidden = False
 
    Test_Err = 0
 
 
    If Sheets("Cal").Cells(L, 14) = 4 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 5 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 6 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 7 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 12 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 13 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 14 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 15 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 20 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 21 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 22 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 23 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 28 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 29 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 30 Then Test_Err = 1
    If Sheets("Cal").Cells(L, 14) = 31 Then Test_Err = 1
 
 
    If Test_Err = 0 Then
        Rows(L).Select
        Selection.EntireRow.Hidden = True
    End If
Next L

13/10/2021, 17h19
Pierre Fauconnier

1 pièce(s) jointe(s)

Désolé, je n'ai pas compris.

En VBA, tu peux tester un code total par rapport à un code d'erreur particulier, puisque chaque bit correspond à un code.

Pour tester un contrôle particulier, tu prends sa valeur (1, 2, 4, 8, ...) et tu la compares au total avec un AND... Si la valeur renvoie le contrôle particulier, c'est que son bit est à 1 dans le total, donc que le contrôle est validé.

Pièce jointe 606584

Citation:

Envoyé par jurassic pork

[...]
tu peux aussi passer par une représentation binaire du code. Comme ceci par exemple:[...]

Oui, mais on ne peut pas avoir plus de 9 codes d'erreur, si on utilise DECBIN, qui utilise 9 bits pour les nombres positifs et 10 pour les négatifs, j'en parle dans ce billet ;)
13/10/2021, 18h04
Pierre Fauconnier

1 pièce(s) jointe(s)

Tu peux aussi tester que x contrôles posent problème, toujours en jouant sur les bits

Pièce jointe 606591

Citation:

Envoyé par Sites

[...]
Col A : Nom du responsable
Col B : Date de début
Col C : Date de fin[...]

Ce qui serait intéressant, c'est d'avoir les colonnes qui contiennent les contrôles. il n'est pas intéressant d'avoir ton code. On va te le réécrire en fonction de la configuration de tes données, d'où la demande d'une copie d'écran, éventuellement dépersonnalisée...
13/10/2021, 18h17
jurassic pork
Citation:

Envoyé par Pierre Fauconnier

Oui, mais on ne peut pas avoir plus de 9 codes d'erreur, si on utilise DECBIN, qui utilise 9 bits pour les nombres positifs et 10 pour les négatifs, j'en parle dans ce billet ;)

il y a une fonction qui permet de faire sauter cette limitation c'est la fonction Base ;)
Exemple :
Code:

1 2 3 4 5 Dim CodeErreur As String CodeErreur = WorksheetFunction.Base(27, 2, 8) Debug.Print CodeErreur CodeErreur = WorksheetFunction.Base(27 + 65536, 2, 20) Debug.Print CodeErreur
Résultat :

Citation:

00011011
00010000000000011011

Ami calmant, J.P
13/10/2021, 18h22
Pierre Fauconnier

Et en plus, je l'ai déjà utilisée... Honte sur moi...

Cela dit, dans le cas présent, je préfère le traitement avec AND, mais je retiens l'idée qui, du coup, rend ma traduction DEC-BIN par formule caduque, puisque BASE est là.

Je vais corriger mon billet en ce sens, et je te remercie pour cette info (comme quoi, la bidouille, ça aide ;) ) :plusser:
13/10/2021, 19h26
Pierre Fauconnier

1 pièce(s) jointe(s)

HS, mais bon...

BASE n'accepte pas les nombres négatifs... Du coup, on peut utiliser ceci:

Pièce jointe 606612
15/10/2021, 16h09
Sites
Merci à tous.
Finalement, j'ai utilisé le code suivant
Code:

1 2 3 4 If Mid(WorksheetFunction.Base(Sheets("Cal").Cells(Ligne, 14), 2, 8), 8, 1) = "1" Then Traitement_Erreur End if
en faisant varier la valeur du positionnement du bit à tester.
Et cela fonctionne parfaitement bien.

Encore merci

Bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Enum Bites
    B1 = 1
    B2 = 2
    B3 = 4
    B4 = 8
    B5 = 16
    B6 = 32
    B7 = 64
    B8 = 128
End Enum
Sub test()
BX = WorksheetFunction.Dec2Bin(B1 + B5 + B8)
Debug.Print BX = WorksheetFunction.Dec2Bin(B1 + B5 + B8), WorksheetFunction.Bin2Dec(BX) = B1 + B5 + B8
Debug.Print (WorksheetFunction.Bin2Dec(BX) And B1 + B8) = B1 + B8
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub test2()
Contrôle1 = Abs(Condition1 = True)
Contrôle2 = Abs(Condition2 = False)
Contrôle3 = Abs(Condition3 = True)
Contrôle4 = Abs(Condition4 = True)
Contrôle5 = Abs(Condition5 = True)
Contrôle6 = Abs(Condition6 = True)
Contrôle7 = Abs(Condition7 = True)
BX = Contrôle7 & Contrôle6 & Contrôle5 & Contrôle5 & Contrôle3 & Contrôle2 & Contrôle1
Debug.Print (WorksheetFunction.Bin2Dec(BX) And B2) = B2
 End Sub