Extraire une chaine de caractere

Bonjour Steelson,

je ne connaissais pas cette fonction (je ne l'ai pas trouver sur internet non plus), j'ai essayé de la recopier dans mon classeur mais elle ne fonctionne pas , comment pourrait elle reconnaître d'ailleurs le tableau tiers si on ne lui donne pas l'info de sa localisation ?

Cdlt

Comme (déjà) indiqué plus haut, il s'agit d'une fonction personnalisée !

MFerrand a écrit :

Ouverture de l'éditeur VBA : Onglet Développeur > Visual Basic (ou raccourci clavier Alt+F11)

Dans l'éditeur : menu Insertion > Module

Et dans le module créé, tu colles la fonction.

Function ChercheChaine(chaine)
ChercheChaine = ""
For i = 1 To Sheets("tiers").Range("A1").End(xlDown).Row
    If chaine Like "*" & Sheets("tiers").Cells(i, 1) & "*" Then ChercheChaine = Sheets("tiers").Cells(i, 1)
Next
End Function

Oui merci cela marche très bien, bravo si tu a l'origine de cette fonction, mais y a t il une méthode pour différencier 2 écritures (impots par ex) ayant des chiffres pour se différencier et correspondant a des intitules différents (taxe habitation et tva) pour le moment la méthode de Tulipe bien que plus longue le fait bien

Oui c'est tout à fait possible par macro ... donne un exemple !

Maintenant, je viens en effet de découvrir la fonction de Tulipe, j'avoue que la fonction personnalisée que je t'ai proposée n'apporte rien de mieux !

salut steelson

c'est tellement plus confortable de rouler en rolls

cordialement

Bonjour tout le monde,

Je suis nouveau sur le forum et je souhaite solliciter votre aide.

je suis débutant en langage VBA et suis bloqué depuis quelques jours.

en fait dans le fichier excel ci-joint je souhaite extraire à l'aide d'une macro la marque disponible dans la colonne "J" et l’insérer dans la colonne "H3.

cette étape est essentielle pour moi afin que je puisse compiler mes stat par collaborateur.

j'attends vos solutions avec impatiente

merci

Bonjour zizoujl

Voici ... (Tulipe a la même chose mais sans macro !)

@doz

doz a écrit :

Oui merci cela marche très bien, bravo si tu a l'origine de cette fonction, mais y a t il une méthode pour différencier 2 écritures (impots par ex) ayant des chiffres pour se différencier et correspondant a des intitules différents (taxe habitation et tva) pour le moment la méthode de Tulipe bien que plus longue le fait bien

Bien que j'apprécie la formule de Tulipe ... je n'ai pas vu comment elle différenciait certains intitulés ... peux-tu mettre un exemple ?

bonjour

bien qu'il faille creer un nouveau sujet ; afin de ne pas "polluer" un existant

voici une solution sans VBA en attendant

pret pour 1800 lignes ;si pas assz ,tu dupliques

salut steelson

un p'tit tour en Rolls

Merci beaucoup tulipe_4

ok pour la création de nouveaux sujets

Bonjour à tous,

Là je peux réactiver ma fonction ! Il y a des récurrences fixes...

Function EXTRACMARQUE(txmrq As String) As String
    Dim tx
    Application.Volatile
    If txmrq <> "" Then
        tx = Split(txmrq)
        If IsNumeric(tx(1)) Then
            If tx(0) = "M" Then tx(1) = "'" & tx(1) Else tx(1) = ""
        Else
            If tx(0) Like "MAN_*" Then tx(1) = ""
        End If
        EXTRACMARQUE = tx(1)
    End If
End Function

Utilisation : en H2 :

=EXTRACMARQUE(J2)

et on l'étend sur la colonne.

Cordialement.

My friends, you're the best

tulipe_4 a écrit :

salut steelson

un p'tit tour en Rolls

Cette formule, je l'ai gardée !