XL 2016 "And" sur valeur numérique entière

[Olic78124]

Salut à toutes et à tous,

Je ne sais pas comment exprimer/formuler le sujet de la discussion, j'ai fait ce que j'ai pu

Je reprends encore et toujours le même fichier contenant des macros développées dans un garage et je tombe sur une palanquée de tests du genre :

If (Cells(liv, 17).Value And 2) = 2 Or (Cells(liv, 17).Value And 4) = 4 Or (Cells(liv, 17).Value And 8) = 8 Or (Cells(liv, 17).Value And 16) = 16 Then "CODE" End If

Ma question, car j'ai beau faire tourner le truc dans tous les sens, je ne vois pas ce que And a comme effet sur une cellule contenant des valeurs toujours entières (pas de décimales donc) !?

J'ai extrait chaque "Cells(liv, 17).Value And X" pour récupérer les résultats dans des variables qui dans l'exemple ci-dessus contiennent des fois 0, des fois 2, des fois 4, des fois 8, des fois 16... et je ne comprends pas à quoi ça sert :-(

Une petite explication simple serait la bienvenue.

D'avance merci.
Olivier

 

[eriiic]

Oui. Faire + 4 par exemple revient à faire AND OR &B100, donc à positionner le bit 2 à 1

Edit : oupsss, lire OR et non AND bien sûr. On force un bit et on conserve les autres

 

[sousou]

Bon dieu mais c est bien sûr!
Merci .
C était un autre temps, ou les codes ne dépassaient pas quelques kilos

 

[patricktoulon]

re
Bonjour a tous
a les jeunes années que de souvenirs
MO5 et TO9+ de thomson et ses disquettes et plus tard l'amstrad 6128 et son basic 1!!!!!

 

[eriiic]

Bonjour,

Ah lalaaa, c'était mieux avant...
J'ai corrigé une grosse erreur d'étourderie au post #16 : lire OR et non AND
eric

 

[patricktoulon]

bonjour a tous
on s'en sert encore très souvent j’appelle ça des addition logique
exemple dans cette boucle seul les chiffres pairs vont sortir les autres vaudront zer0

Sub test()
    For i = 1 To 8
        Debug.Print i And (i Mod 2 = 0)
    Next
End Sub

 

[Staple1600]

Bonjour le fil, Olic78134, sousou, eriiiic, patricktoulon

Ce qui était bien avant, ce qu'on découvrait l'univers informatique
(sans internet, donc fallait en vouloir pour dénicher de l'info)
Et qui se souvient de ce fleuron!
J'en ai grillé un récemment
(juste en le branchant et en appuyant sur ON)

 

[patricktoulon]

tu sais quoi? je crois que j'en ai vu un il y a pas si longtemps chez un client je savais meme ce que c'etait et rouge en plus
je croyais que c'etait un jouet du gamin

 

[Staple1600]

Re

Non, c'était pas un jouet!
Et dire que j'ai encore les K-7 où j'ai enregistré des listing en Basic

http://www.ordinosaures.fr/Alice_32_-_4_pages_techniques.pdf

 

[eriiic]

Ah, le temps où les CMS n'existaient pas encore et où on pouvait encore sortir le fer à souder sans risquer de tout flinguer

 

[patricktoulon]

re
bonjour @eriiiic
non ca va c'est juste le fer a souder qui a changé aujourd’hui c'est la goutelette

 

[eriiic]

Pfff, sans même parler de souder, même l'oscillo j'ai renoncé sur ces trucs là. Même plus possible de poser une sonde sans faire de court-circuit, il faut un microscope.

 

[patricktoulon]

ben c'est un peu le system de l'obsolescence qui prévalu aujourd'hui

avant on achetait un teloche elle durrais 15/20 ans sans sourciller et beaucoup plus pour celle qui avaient des transistors a tubes
mais elle valaient 1 mois voir 2 salaires

aujourd'hui en tre 200 et et 500€ tu a un truc correcte mais ca durera pas aussi longtemps

vu le prix d'une carte mère de puissance correcte aujourd'hui ça vaut même pas le coup de sortir la mallette de soudure
le plus grand defaut de ce principe ben c'est tout simplement la polution que ce soit pour la construire ou son recyclage qui est parfois plus poluant que l’objet lui même

un autre defaut encore plus important c'est l’écart social que provoque sa construction dans certaine régions du monde

somme nous coupables apprécier s'affaler dans le sofa et utiliser une télécommande fabriqué par un petit chinois qui voit le jour 1 a 2 heures par semaine le reste du temps entrain de fabriqué le produit étant le seul a pouvoir le faire du a ces petites menottes

bon d'accords j'arrête