Insérer Codes VBA dans Excel Mac 2004

Bonjour,

J'ai reçu un fichier avec des lignes de codes VBA.

Je ne trouve pas comment les insérer et les activer dans Excel MAC 2004.

Le code est ci-dessous,

Merci

Bernard

Option Compare Database

Option Explicit

'Declare Sub Sleep Lib "kernel32" Alias "Slep" (ByVal dwMilliseconds As Long)

Function CommunicationStructurée(A As String) As String

'déclaration des variables fractionnaires

Dim a1 As Double, a2 As Double

Dim reste As Double

'déclaration de la variable entière

Dim dernierDIGIT As Integer

'transformation de l’argument passé à la fonction en nombre

a1 = Val(A)

'division par 97

reste = (a1 / 97)

'on en extrait la partie entière

a2 = Int(reste)

'on obtient le dernier digit en multipliant la valeur obtenue par 97, le résultat est soustrait du nombre original (ça donne toujours une valeur entre 0 et 96)

dernierDIGIT = a1 - (a2 * 97)

'cas particulier, si cette valeur=0, le dernier digit vaut 97

If dernierDIGIT = 0 Then dernierDIGIT = 97

'reconstitution de la chaîne telle que communication structurée

CommunicationStructurée = "+++" & Left(A, 3) & "/" & Mid(A, 4, 4) & "/" & Mid(A, 8, 3) & Right("00" & CStr(dernierDIGIT), 2) & "+++"

End Function

Function test_CommunicationStructurée()

'reste=0 =>97

MsgBox CommunicationStructurée("1720303148")

End Function

Bonsoir,

Les fonctions se placent dans un module en VBA comme sous excel windows.

Concernant ton pb, le mieux serait de savoir ce que tu veux faire ou mieux ton fichier.

Amicalement

Dan

Salut le forum

Et les balises code pour le forum merci de les utiliser

Option Compare Database 
Option Explicit 
'Declare Sub Sleep Lib "kernel32" Alias "Slep" (ByVal dwMilliseconds As Long) 

Function CommunicationStructurée(A As String) As String 
'déclaration des variables fractionnaires 
Dim a1 As Double, a2 As Double 
Dim reste As Double 
'déclaration de la variable entière 
Dim dernierDIGIT As Integer 
'transformation de l’argument passé à la fonction en nombre 
a1 = Val(A) 
'division par 97 
reste = (a1 / 97) 
'on en extrait la partie entière 
a2 = Int(reste) 
'on obtient le dernier digit en multipliant la valeur obtenue par 97, le résultat est soustrait du nombre original (ça donne toujours une valeur entre 0 et 96) 
dernierDIGIT = a1 - (a2 * 97) 
'cas particulier, si cette valeur=0, le dernier digit vaut 97 
If dernierDIGIT = 0 Then dernierDIGIT = 97 
'reconstitution de la chaîne telle que communication structurée 
CommunicationStructurée = "+++" & Left(A, 3) & "/" & Mid(A, 4, 4) & "/" & Mid(A, 8, 3) & Right("00" & CStr(dernierDIGIT), 2) & "+++" 

End Function

Les modérateurs ne font plus la mise en page des balises code ?<

Bonjour,

Le but est de générer une communication structurée.

Merci