Pierre Fauconnier

Salut.

Dans ce billet de blog, je vous parlais de DECBIN(Nombre) qui convertit un décimal en binaire. Cette fonction est limitée à la plage de valeurs [-512 ; 511]. Elle utilise 9 bits pour les valeurs positives et passe le 10ième bit à 1 pour les valeurs négatives. Elle utilise la notation complément à 2 pour déterminer la valeur négative.




- La notation complément à 2? C'est quoi ce truc, Pierre?
- ...

Salut.

DECBIN(Valeur) convertit une valeur décimale en valeur binaire... DECBIN(145) = 10010001. DECBIN permet l'expression binaire d'une valeur négative, mais se comporte pour moi assez bizarrement. En effet, il est limité à 9 bits (10 pour un nombre négatif, le bit de poids fort étant à 1 et le nombre négatif étant exprimé en notation complément à 2).

Cette limitation entraîne dans les faits que la plage utilisable est -512 à +511... DECBIN(512) renvoie 0.
...

Salut.

Dans cette discussion, la question est de savoir lister les feuilles d'un classeur sans l'ouvrir^(*). L'idée est de choisir un classeur dans une liste et d'en récupérer la liste des feuilles pour un traitement ultérieur.

Sans ouvrir le classeur, une piste est donnée en utilisant VBA et la bibliothèque ADODB. De fait, cette bibliothèque dispose d'outils pour considérer et gérer un classeur Excel "comme une base de données" en considérant que chaque feuille ...

Salut.

Dernièrement, on demandait sur le forum comment réaliser en VBA la liste des adresses mails choisies dans un tableau...




En Excel 365, il existe les fonctions JOINDRE.TEXTE et FILTRE qui permettent de se passer de VBA. J'en parle dans ce billet => =JOINDRE.TEXTE(";";VRAI;FILTRE(Tableau1[Mail];Tableau1[Sélection]="x")). Si l'on dispose d'un abonnement 365, c'est me semble-t-il la solution ...

Salut.

Dans ce billet, je développais une fonction générique permettant de transférer les données d'un formulaire feuille de calcul vers un tableau structuré:

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function AddData(Tablename As String, Map)
  Dim r As Long
  Dim i As Long
  Dim t As ListObject
 
  Set t = Range(Tablename).ListObject
  r = t.ListRows.Add.Index
  For i = LBound(Map) To UBound(Map) Step 2
    t.ListColumns(Map(i + 1)).DataBodyRange(r).Value =

...