Initialisation de la fonction DEC2BIN

Version imprimable

21/03/2012, 08h15
RéviAT

Initialisation de la fonction DEC2BIN

Bonjour à tous,
Hier j’ai posé une question à propos de la fonction DECBIN et «aereno » m’a répondu utilement que je pouvais utilisé la fonction avec le nom en anglais (DEC2BIN) en mettant le code « Application.WorksheetFunction.Dec2Bin(iTruc, nbCar) ».
Je n’ai vue sa réponse que trop tard … Merci de tout cœur à «aereno » !
Mais DEC2BIN ne fonctionne pas dans ma macro, il y a le message « Propriété ou méthode non gérée par cet objet ».
Je suppose qu’il faut initialiser DEC2BIN …
Ma question est donc comment faire pour utiliser l’instruction « WorksheetFunction.Dec2Bin «
Merci par avance.
RéviAT

Citation:

Envoyé par RéviAT

Ma question est donc comment faire pour utiliser l’instruction « WorksheetFunction.Dec2Bin

Bonjour,

Tout simplement
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub test() Dim iTruc As Integer, nbCar As Integer iTruc = 5 nbCar = 9 MsgBox Application.WorksheetFunction.Dec2Bin(iTruc, nbCar) 'ou... Sheets("Machin").Range("XX1")=Application.WorksheetFunction.Dec2Bin(iTruc, nbCar) End Sub

21/03/2012, 10h56
RéviAT

Initialisation de la fonction DEC2BIN

Merci, mais justement cela ne fonctionne pas dans ma macro.
Le message est "Erreur d'exécution "438" "Propriété ou méthode non géré par cet objet".
Je suppose que pour ce Excel VBA reconnaisse "DEC3BIN" qui est le nom anglais, il faut mettre un instruction appropriée ... Mais laquelle ?
21/03/2012, 11h06
Philippe Tulliez

Bonjour,
Quelle version d'Office as-tu ?
Cette fonction existe depuis la version 2007. Il semble que tu aurais une version antérieure ce qui explique ton message d'erreur
Je confirme que cela fonctionne parfaitement avec une version 2007 & 2010

Code:

Debug.Print Application.WorksheetFunction.Dec2Bin(5, 9)

[EDIT]
ERRATUM - Je viens de voir que tu as une version 2003 donc la réponse est là.
Tu peux utiliser DEC2BIN ou son équivalent français DECBIN comme formule dans Excel en cochant Utilitaire d'analyse dans les macros complémentaires mais pas en VBA (avant 2007) en utilisant Application.WorksheetFunction
21/03/2012, 11h08
fring

L'instruction appropriée...je te l'ai donnée. Si ça ne fonctionne pas c'est que l'instruction est mal utilisée.

Je récépépète
Nombre = 5
Nombre de caractères = 9

Si tu veux convertir le nombre en binaire dans la cellule A1, 2 possibilités :

soit via la fonction DECBIN directement dans la cellule sans passer par VBA

Code:

=DECBIN(5;9)

soit via un bout de code

Code:

Range("A1") = Application.WorksheetFunction.Dec2Bin(5, 9)
21/03/2012, 11h14
RéviAT

Initialisation de la fonction DEC2BIN

Merci de votre aide.
Effectivement j'utilise Excel 2003.
Je vais essayer avec Excel 2010, mais il me faut un moment ...
A bientôt.
RéviAT
21/03/2012, 11h18
fring

Citation:

Envoyé par corona

Tu peux utiliser DEC2BIN ou son équivalent français DECBIN comme formule dans Excel en cochant Utilitaire d'analyse dans les macros complémentaires mais pas en VBA (avant 2007) en utilisant Application.WorksheetFunction

Bien vu :ccool: je n'avais pas fait gaffe à la version
21/03/2012, 11h20
aalex_38

Bonjour,

Pour excel 2003 (que je n'ai plus) ils indiquent ici , qu'il te faut installer le Analysis ToolPak add-in
21/03/2012, 11h25
RéviAT

Initialisation de la fonction DEC2BIN

Merci pour toutes ces informations et solutions.
J'appréhende d'essayer : "Analysis ToolPak". Je vais plutôt programmer en VBA ma propre "DEC2BIN", ou alors passer sur une autre version d'Excel.
Merci encore, c'est très utile d'avoir affaire à plus compétent que soi.
A bientôt si nécessaire.
RéviAT
21/03/2012, 11h32
Philippe Tulliez

Bonjour,
Je confirme que l'utilitaire d'analyse (Analysis ToolPak) n'est pas à conseiller si tu l'utilises en production.
Un des problèmes que j'ai rencontré, Il n'y a pas de traduction automatique des formules
Et son frère, L'Utilitaire d'analyse pour VBA n'a pas comme je l'ai indiqué cette fonction avec WorksheetFunction

Citation:

Envoyé par RéviAT

Je vais plutôt programmer en VBA ma propre "DEC2BIN"

Tu peux tester ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
 
    MsgBox DECtoBIN(5, 9)
 
End Sub
 
 
Private Function DECtoBIN(ByVal nbDec As Variant, Optional nbCar As Variant) As String
 
    nbDec = Int(CDec(nbDec))
 
    Do While nbDec <> 0
        DECtoBIN = Format$(nbDec - 2 * Int(nbDec / 2)) & DECtoBIN
        nbDec = Int(nbDec / 2)
    Loop
 
    If Len(DECtoBIN) > nbCar Then
        DECtoBIN = "Erreur - le nombre de caractères spécifié est trop petit"
    Else
        DECtoBIN = String(nbCar - Len(DECtoBIN), "0") & DECtoBIN
    End If
 
End Function

21/03/2012, 12h09
RéviAT

Initialisation de la fonction DEC2BIN

Ok, je serais prudent.
Par ailleurs je vais trouver une fonction toute faire qui transforme un nombre décimal en binaire et qui soit assez optimisée.
Cordialement.
RéviAT