Création d'une nouvelle fonction Excel (VBA)

Bonjour,

Je débute en VB souhaite créer une nouvelle fonction Excel (qui utilise des fonctions Excel existantes)

Voilà ce que je souhaite faire :
J'ai une fonction Excel (qui marche bien)
Cette fonction permet de traiter une chaine de caractères et retourne la chaine de caratères qui se trouve entre le 1er et le 2eme "/"
Par exemple , pour la chaine "/aaaa/bbbb/cccc" , la fonction retourne "aaaa".

Voilà la fonction :

Code:

---

=STXT(A1;(CHERCHE("/";A1))+1;(CHERCHE("/";A1;(CHERCHE("/";A1))+1))-(CHERCHE("/";A1))-1)

---

La fonction que je souhaite créer prend en argument un nom de cellule et retourne la chaine de caratères qui se trouve entre le 1er et le 2eme "/".

Je pense que le code doit s'approcher de ça :

Code:

---

1 2	ActiveCell.FormulaR1C1 = _ "=MID(RC[-2],(SEARCH(""/"",RC[-2]))+1,(SEARCH(""/"",RC[-2],(SEARCH(""/"",RC[-2]))+1))-(SEARCH(""/"",RC[-2]))-1)"

---

Je ne sais pas quel type d'argument saisir pour la fonction ?
Ca peut marcher ça ? :

Code:

---

Public Function Rang_1(cellule as string) as string

---

?
Aussi , comment utiliser l'argument "cellule" dans mon code ?

Merci de m'aiguiller ... je tourne en rond ...

bonjour,

Peux tu tester ceci

Code:

---

1 2 3 4 5 6

Function ExtraireSlash(R As Range) Dim CarDep As Long, CarFin As Long CarDep = InStr(1, R.Value, "/") + 1 CarFin = InStr(CarDep, R.Value, "/") - CarDep ExtraireSlash = Mid(R.Value, CarDep, CarFin) End Function

---

Tu appelles dans ta feuille en B1 par exemple =ExtraireSlash(A1)

Tiens nous au courant

bonjour


voici un exemple

Code:

---

Function mafnc(cellule as range) as string

---

en voici un autre qui te mermet des passer en argument soit une chaine de caractere, soit une cellule

Code:

---

1 2 3 4 5 6

Function mafnc(cellule as variant) as string select case typename(cellule) case "Range" case "String" end select end function

---

tu peux l'utiliser comme suit :

Code:

---

=mafnc(A1)

---

ou encore

Code:

---

=mafnc("Argument 1 ")

---

ou encore

Code:

---

=mafnc(concatener(A1;"-";A2;"-->";A3))

---

bonne journee


Edit : Bonjour fred

En VBA c'est

Code:

---

1 2 3 4

st = "/aaaa/bbbb/cccc" tabs = Split(st, "/") MsgBox tabs(1)

---

Salut delphiDelphi,

toujours aussi direct et efficace. :yaisse2:

As-tu résolu ton problème de transfert de tableau de la manière "courte" comme tu aimes ?;)

Merci :)
C'est vraiment parfait (surtout avec le "Split")

Merci à tout le monde !
Cela m'a permis de mieux comprendre l'appel de fonction , les types d'arguments , ...