Modification de programme vbq de calcul en base 2 à la base 7
Fermé
laurytk
Messages postés
3
Date d'inscription
vendredi 27 novembre 2015
Statut
Membre
Dernière intervention
29 novembre 2015
-
Modifié par laurytk le 27/11/2015 à 16:45
laurytk Messages postés 3 Date d'inscription vendredi 27 novembre 2015 Statut Membre Dernière intervention 29 novembre 2015 - 29 nov. 2015 à 22:09
laurytk Messages postés 3 Date d'inscription vendredi 27 novembre 2015 Statut Membre Dernière intervention 29 novembre 2015 - 29 nov. 2015 à 22:09
A voir également:
- Modification de programme vbq de calcul en base 2 à la base 7
- Formules excel de base - Guide
- Passer de windows 7 à windows 10 - Guide
- Base de registre - Guide
- Suivi de modification word - Guide
- Logiciel modification pdf - Guide
2 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
28 nov. 2015 à 22:00
28 nov. 2015 à 22:00
Bonjour,
Essaies ce code :
Essaies ce code :
Sub test() MsgBox Base10versAutreBase(49, 7) End Sub Function Base10versAutreBase(Nombre As Long, Base As Byte) As String If Base > 9 Then Base10versAutreBase = "La base doit être inférieure à 10" Exit Function End If If Int(Nombre / Base) = 0 Then Base10versAutreBase = CStr(Nombre Mod Base) Else Base10versAutreBase = _ Base10versAutreBase(Int(Nombre / Base), Base) & _ CStr(Nombre Mod Base) End If End Function
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
29 nov. 2015 à 21:57
29 nov. 2015 à 21:57
Bonjour,
J'arrive en retard mais comme j'avais fait un travail de fonction, similaire à Patrice33740 (que je salue), utilisé par un formulaire, j'ai réuni les différentes macro avec ta macro initiale et voici le classeur :
https://www.cjoint.com/c/EKDu3Ia21wl
J'arrive en retard mais comme j'avais fait un travail de fonction, similaire à Patrice33740 (que je salue), utilisé par un formulaire, j'ai réuni les différentes macro avec ta macro initiale et voici le classeur :
https://www.cjoint.com/c/EKDu3Ia21wl
Modifié par Patrice33740 le 28/11/2015 à 22:34
28 nov. 2015 à 22:42
Mais avec cette fonction nouvelle je n'arrive pas faire entre la valeurs à calculer
Modifié par Patrice33740 le 28/11/2015 à 22:53
29 nov. 2015 à 22:09