pb pour creer une reference article

A

andré

Guest

• 10 Août 2004

• #2

Salut,

Si tu as toujours 4 mots avec 3 espaces, c'est pas bien difficile.
Au cas contraire, il faudrait que je réflechisse cinq minutes (lol).

Pourrais-tu préciser ?

Ândré.

 

Vote positif 0 Vote négatif

A

asz

Guest

• 10 Août 2004

• #3

merci de réagir si vite. Bien sûr pour compliquer la tâche, les libellés ne sont pas uniformes. C'est pour ça que pour pouvoir apres m'y retrouver dans les ref, je voudrai prendre les 3 premiers caracteres de chaque mot (ou valeur). Il y a des libellés ou figurent plus de 5 mots (8 maxi).
Par avance merci
asz

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 10 Août 2004

• #4

Bonjour Asz

Colle ce code dans un module de VBA, cette une fonction

Public Function ClefComposee(vCell As Range) As String
Dim I As Byte
Dim vclef As String
Dim var As String
var = ""
vclef = vCell
For I = 1 To Len(vclef) - Len(WorksheetFunction.Substitute(vclef, " ", "")) + 1
var = var & Mid(vclef, 1, 3)
vclef = Mid(vclef, InStr(1, vclef, " ") + 1, Len(vclef))
Next I
ClefComposee = var
End Function

Pour utiliser cette fonction dans la feuille active, en imaginant que le texte à codifié ce trouve en A1 = ClefComposee(A1).

Pour info, les function VBA se trouve dans la catégorie "personnalisées" dans la boîte de dialogue d'insertion des formules.

@+Jean-Marie

 

Vote positif 0 Vote négatif

A

asz

Guest

• 11 Août 2004

• #5

Merci ça fonctionne tres bien, mais comment fait on pour enlever les espaces et les virgules dans le résultat de la fonction.
Je sais que je suis embetant pour etre poli.
Merci par avance
asz

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 11 Août 2004

• #6

Bonjour asz, andré

Remplace la ligne vclef = vCell par vclef =trim(WorksheetFunction.Substitute(vclef, ",", ""))

@+Jean-Marie

 

Vote positif 0 Vote négatif

A

asz

Guest

• 11 Août 2004

• #7

lorsque j'insere la ligne de fonction en remplacement de vclef = vCell , il me met un blanc dans la cellule. Donc j'utilise toujours le premier script envoyé par Jean marie. Le pb c'est que parfois il me double le caractere du 2 eme mot ou 3eme. c'est pas pareil pour chaque reference créée. Certaines sont ok et d'auters erronnées.
Sincères salutations
asz

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 11 Août 2004

• #8

Re...

Excuse j'ai fait une boulette en recopiant le code, je te le redonne en entier

Public Function ClefComposee(vCell As Range) As String
Dim I As Byte
Dim vclef As String
Dim var As String
var = ""
vclef =trim(WorksheetFunction.Substitute(vCell, ",", ""))
For I = 1 To Len(vclef) - Len(WorksheetFunction.Substitute(vclef, " ", "")) + 1
var = var & Mid(vclef, 1, 3)
vclef = Mid(vclef, InStr(1, vclef, " ") + 1, Len(vclef))
Next I
ClefComposee = var
End Function

@+Jean-Marie

 

Vote positif 0 Vote négatif

J

Jon

Guest

• 11 Août 2004

• #9

coucou,

je préfère ma solution

Sub demo()
Dim Donnees

For i = 1 To Range("A1", [A65536].End(xlUp)).Rows.Count
Donnees = Split(Cells(i, 1).Value, " ")
j = 1
For j = 0 To UBound(Donnees)
Cells(i, 2).Value = Cells(i, 2).Value & Mid(Donnees(j), 1, 3)
Next j
Next i

End Sub


bien entendu peut facilement être transformée en fonction personnalisée.


bonne journée

 

Vote positif 0 Vote négatif