Discussion :

[arnaudperfect]

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 :

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

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

[BenjGe]

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

Code :

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

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

[arnaudperfect]

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

Code :

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

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 :

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

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

[arnaudperfect]

Impeccable, cela fonctionne très bien ! Un grand merci, je ne pensais pas qu'on pouvait faire cela avec Excel !

[BenjGe]

de rien