Ajouter un traitement VBA dans un tableau Excel

Version imprimable

Bonjour,

J'ai développé une fonction en VBS que j'aimerai utilisé dans Excel. Pour cela, il me faut la convertir en VBA. Ensuite, j'aimerai utilisé cette fonction, comme les fonctions déjà présente dans Excel.

comment puis-je faire ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Function GenerateGroup(Source,Delimiter)
 
	Dim GroupeCorrect
	Dim Groupe
	Dim mTab
 
	Source = Trim(Source)
	mTab = Split(Source, Delimiter)
	Groupe = mTab(1)
 
	If Len(Groupe) > 54 Then 
		mTab = Split(Groupe, "\")
		For i=0 to (UBound(mTab))
			If Len(Groupe) > 4 Then 
				GroupeCorrect = GroupeCorrect & "-" & Left(mTab(i), 4)
			Else
				GroupeCorrect = GroupeCorrect & "-" & mTab(i)
			End If
		Next
		GenerateGroup = "XX-XXX-XXXXX"&UCase(replace(GroupeCorrect," ","_"))&"-RW"
	Else
		GenerateGroup = "XX-XXX-XXXXX-"&UCase(replace(replace(mTab(1),"\","-")," ","_"))&"-RW"
	End If
 
End Function
 
GenerateGroup("H:\XXX\XXXXX\XXXXXXXX\XXXXXX\XXXX\XXXXXX\XXXXXXXX\XXXXXX\XXXX\XXXXX\XXXXXXX\XXXXX\XXXXX")

Merci d'avance,
Arnaud

je passerai par une fonction VBA, qui peuvent être invoquée directement dans une feuille de calcul comme des fonctions excel:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function Traitement (PathFolder as string) as string
Dim Groupe
Dim mTab
DIM GroupeCorrect
 
PathFolder = "H:\Groupe\xxxxx\xx\xxxx\xxxxxx\xxxxxxxx\xxxxx\xxxxxxxx\xxxx\xxx"
PathFolder = Trim(PathFolder)
mTab = Split(PathFolder, "H:\Groupe\")
Groupe = mTab(1)
 
If Len(Groupe) > 54 Then 
	mTab = Split(Groupe, "\")
	For i=0 to (UBound(mTab))
		If Len(Groupe) > 4 Then 
			GroupeCorrect = GroupeCorrect & "-" & Left(mTab(i), 4)
		Else
			GroupeCorrect = GroupeCorrect & "-" & mTab(i)
		End If
	Next
	GroupeFinal = "XX-XXX-XXXX"&UCase(replace(GroupeCorrect," ","_"))&"-RW"
Else
	GroupeFinal = "XX-XXX-XXXX-"&UCase(replace(replace(mTab(1),"\","-")," ","_"))&"-RW"
End If
 
Traitement=GroupeFinal
end function

Citation:

Envoyé par Benjîle

je passerai par une fonction VBA, qui peuvent être invoquée directement dans une feuille de calcul comme des fonctions excel:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function Traitement (PathFolder as string) as string
Dim Groupe
Dim mTab
DIM GroupeCorrect
 
PathFolder = "H:\Groupe\xxxxx\xx\xxxx\xxxxxx\xxxxxxxx\xxxxx\xxxxxxxx\xxxx\xxx"
PathFolder = Trim(PathFolder)
mTab = Split(PathFolder, "H:\Groupe\")
Groupe = mTab(1)
 
If Len(Groupe) > 54 Then 
	mTab = Split(Groupe, "\")
	For i=0 to (UBound(mTab))
		If Len(Groupe) > 4 Then 
			GroupeCorrect = GroupeCorrect & "-" & Left(mTab(i), 4)
		Else
			GroupeCorrect = GroupeCorrect & "-" & mTab(i)
		End If
	Next
	GroupeFinal = "XX-XXX-XXXX"&UCase(replace(GroupeCorrect," ","_"))&"-RW"
Else
	GroupeFinal = "XX-XXX-XXXX-"&UCase(replace(replace(mTab(1),"\","-")," ","_"))&"-RW"
End If
 
Traitement=GroupeFinal
end function

C'est justement ce que je pensais. C'est une macro ?

J'ai optimisé mon script via tes indications et autres modifications :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub GenerateGroup(Source As String, Delimiter As String)
 
    Dim GroupeCorrect
    Dim Groupe
    Dim mTab
 
    Source = Trim(Source)
    mTab = Split(Source, Delimiter)
    Groupe = mTab(1)
 
    If Len(Groupe) > 54 Then
        mTab = Split(Groupe, "\")
        For i = 0 To (UBound(mTab))
            If Len(Groupe) > 4 Then
                GroupeCorrect = GroupeCorrect & "-" & Left(mTab(i), 4)
            Else
                GroupeCorrect = GroupeCorrect & "-" & mTab(i)
            End If
        Next
        GenerateGroup = "FR-OCT-GROUP" & UCase(Replace(GroupeCorrect, " ", "_")) & "-RW"
    Else
        GenerateGroup = "FR-OCT-GROUP-" & UCase(Replace(Replace(mTab(1), "\", "-"), " ", "_")) & "-RW"
    End If
 
End Sub

23/10/2014, 15h25
arnaudperfect

Impeccable, cela fonctionne très bien ! Un grand merci, je ne pensais pas qu'on pouvait faire cela avec Excel !
23/10/2014, 16h06
BenjGe

de rien