Discussion :

[RéviAT]

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

[fring]

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

Bonjour,

Tout simplement

Code :

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

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

[RéviAT]

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 ?

[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 :

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

 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

[fring]

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 je n'avais pas fait gaffe à la version

[aalex_38]

Bonjour,

Pour excel 2003 (que je n'ai plus) ils indiquent ici , qu'il te faut installer le Analysis ToolPak add-in

[RéviAT]

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

[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 :

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

=DECBIN(5;9)

soit via un bout de code

Code :

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

Range("A1") = Application.WorksheetFunction.Dec2Bin(5, 9)

[RéviAT]

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