Discussion :

[Dubbleu]

Bonjour à tous

Je veux trier des information dans une colonne. pour chaque case, je souhaite garder les infos jusque un certain mot . En gros dès que ce mot apparait dans la cellule, ca garde tout ce qu'il y a avant mais ca supprime tout ce qu'il y a après le mot clé (en l'occurrence c'est le mot DET)

Pour le moment j'ai essayé avec l'extraction de caractère (mid et right) mais comme ce n'est jamais le meme format... ca ne va pas

Merci d'avance

[Docmarti]

Avec MID tu dois également utiliser UCASE et INSTR.
Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub tt()
result = ExtraireAvant_DET(Cells(1, 1).Value, " DET")
End Sub
 
Function ExtraireAvant_DET(a, motChercher)
 
b = InStr(UCase(a), UCase(motChercher))
 
If b > 0 Then
 ExtraireAvant_DET = Mid(a, 1, b - 1)
End If
 
End Function

[Invité]

Bonjour,


Une solution possible avec cette fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Function SupprimerTexteApresDET(ByVal TexteAVerifier As Range)
 
Dim CtrI As Integer
 
  SupprimerTexteApresDET = ""
  For CtrI = 1 To Len(TexteAVerifier)
    Select Case Mid(TexteAVerifier, CtrI, 3)
 
        Case "DET"
            SupprimerTexteApresDET = SupprimerTexteApresDET & Mid(TexteAVerifier, CtrI, 1)
            Exit For
 
        Case Else
            SupprimerTexteApresDET = SupprimerTexteApresDET & Mid(TexteAVerifier, CtrI, 1)
 
    End Select
 
  Next CtrI
 
  SupprimerTexteApresDET = SupprimerTexteApresDET & "ET"
 
End Function

Cordialement.

[Dubbleu]

Merci !