Fichier "ESSAI NOMENCLATURE"

jp14 · 13 Décembre 2009

Bonsoir

Ci joint le fichier avec une tentative de macro.
Principe
La fonction split met les mots présents dans le texte dans un tableau.
Recherche dans la base si l'un des mots est présent (le mot doit avoir un nombre de caractères supérieur à 3 pour éviter "le", "est",.....).
Si la procédure en trouve plusieurs alors
affichage des différentes références dans une listbox.
Un click permet de sélectionner la bonne référence.

Pour lancer les procédures il faut un double click dans :
la colonne B pour la référence,
la colonne C pour la première date,
la colonne D pour la deuxième date.

A tester

JP

jp14 · 14 Décembre 2009

Re : Fichier "ESSAI NOMENCLATURE"

Bonjour

Ci dessous le code pour tenir compte d'une date écrite avec des points au lieu de "/".

Code:

Function col3(target As Range)
Dim tablo() As String
tablo = Split(target.Offset(0, -2).Value)
For i = 0 To UBound(tablo)
    If IsDate(tablo(i)) Or IsDate(Replace(tablo(i), ".", "/")) Then
        col3 = Replace(tablo(i), ".", "/")
        Exit Function
    End If
Next i

End Function
Function col4(target As Range)
Dim tablo() As String
date1 = ""
tablo = Split(target.Offset(0, -3).Value)
For i = 0 To UBound(tablo)
    If (IsDate(tablo(i)) Or IsDate(Replace(tablo(i), ".", "/"))) And date1 <> "" Then
        col4 = Replace(tablo(i), ".", "/")
        Exit Function
    End If
    If (IsDate(tablo(i)) Or IsDate(Replace(tablo(i), ".", "/"))) And date1 = "" Then date1 = tablo(i)
Next i
End Function

A tester

JP

Fichier "ESSAI NOMENCLATURE"

jp14

XLDnaute Barbatruc

Pièces jointes

jp14

XLDnaute Barbatruc

Discussions similaires

Fichier "ESSAI NOMENCLATURE"

jp14

XLDnaute Barbatruc

Pièces jointes

jp14

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency