Discussion :

[alinehg]

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 :

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

=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 :

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

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 :

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

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 ...

[fred65200]

bonjour,

Peux tu tester ceci

Code :

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

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

[wilfried_42]

bonjour


voici un exemple

Code :

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

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 :

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

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 :

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

=mafnc(A1)

ou encore

Code :

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

=mafnc("Argument 1 ")

ou encore

Code :

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

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

bonne journee


Edit : Bonjour fred

[Montor]

En VBA c'est

Code :

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

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

[Godzestla]

Salut delphiDelphi,

toujours aussi direct et efficace.

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

[alinehg]

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 , ...