XL 2010 Fonction personnalisée

kingfadhel · 24 Novembre 2020

Bonsoir,
ce que je souhaite c'est d'avoir une fonction personnalisée qui:

- cherche les mots de B1 à D1 dans la colonne A
- une fois trouvée on substitue la valeur numérique qui la précède
- la dernière colonne somme les colonnes B à D
exemple :
en B4 on devrait avoir 2, en B7 ==> 3
en D2 ==> 3 (1+2)

Merci d'avance

eriiic · 24 Novembre 2020

Bonjour,

à condition qu'il y ait toujours un espace devant le mot :

VB:

Function nbV(ByVal ch As String, typ As String) As Double
    Dim tmp, i As Long
    ch = Replace(ch, " " & typ, "_" & typ)
    tmp = Split(ch, " ")
    For i = 0 To UBound(tmp)
        If InStr(tmp(i), "_" & typ) > 0 Then nbV = Val(tmp(i)): Exit For
    Next i
End Function

En B2 : =nbV($A2;B$1)
à tirer à droite et vers le bas.
eric

eriiic · 24 Novembre 2020

Bonjour,

à condition qu'il y ait toujours un espace devant le mot :

VB:

Function nbV(ByVal ch As String, typ As String) As Double
    Dim tmp, i As Long
    ch = Replace(ch, " " & typ, "_" & typ)
    tmp = Split(ch, " ")
    For i = 0 To UBound(tmp)
        If InStr(tmp(i), "_" & typ) > 0 Then nbV = Val(tmp(i)): Exit For
    Next i
End Function

En B2 : =nbV($A2;B$1)
à tirer à droite et vers le bas.
eric

kingfadhel · 24 Novembre 2020

eriiiic à dit:
Bonjour,

à condition qu'il y ait toujours un espace devant le mot :

VB:

Function nbV(ByVal ch As String, typ As String) As Double Dim tmp, i As Long ch = Replace(ch, " " & typ, "_" & typ) tmp = Split(ch, " ") For i = 0 To UBound(tmp) If InStr(tmp(i), "_" & typ) > 0 Then nbV = Val(tmp(i)): Exit For Next i End Function

En B2 : =nbV($A2;B$1)
à tirer à droite et vers le bas.
eric

@eriiiic excellent, rapide et efficace.

kingfadhel · 24 Novembre 2020

@eriiiic , SVP, pouvez vous commenter le code???

eriiic · 24 Novembre 2020

Tu sais que tu peux faire F1 sur les fonctions que tu ne connais pas ? Il n'y a pas beaucoup de lignes et l'aide est bien faite...

VB:

Function nbV(ByVal ch As String, typ As String) As Double
    Dim tmp, i As Long
    ch = Replace(ch, " " & typ, "_" & typ) ' remplacer les espaces devant les mots par des "_"
    tmp = Split(ch, " ") ' découper sur les espaces
    For i = 0 To UBound(tmp) ' pour chaque morceau
        ' si "_mot" est trouvé on transforme en numérique le début de chaine et on quitte la boucle
        If InStr(tmp(i), "_" & typ) > 0 Then nbV = Val(tmp(i)): Exit For
    Next i
End Function

eric

kingfadhel · 24 Novembre 2020

@eriiiic, merci.
J'ai procédé à l'exécution pas à pas (f8) et j'ai bien compris le fonctionnement.
Merci encore une fois.

XL 2010 Fonction personnalisée

kingfadhel

XLDnaute Impliqué

Pièces jointes

eriiic

eriiic

XLDnaute Barbatruc

kingfadhel

XLDnaute Impliqué

kingfadhel

XLDnaute Impliqué

eriiic

XLDnaute Barbatruc

kingfadhel

XLDnaute Impliqué

Discussions similaires