Discussion :

[Dan.exe]

Bonjour à tous

J'utilise LIKE pour vérifier si dans une cellule figure un mot précis, je voudrais extraire dans une autre cellule les 7 caractères après ce mot. Pour l'instant j'ai :

Code :

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

1
2
3
4
5
If Range("A1").Value Like "*MOT*" Then
 
Range("A2") = 'les 7 caractères après MOT
 
End If

Merci !

[Philippe Tulliez]

Bonjour,
Bien que je ne comprenne pas très bien pourquoi il y a deux adresses différentes (A1 et A2).
Voici un exemple

Code :

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

1
2
3
4
Dim MotCherche As String: MotCherche = "mot"
If Range("A1").Value Like "*" & MotCherche & "*" Then
  MsgBox Mid(Range("A2"), InStr(Range("A1"), MotCherche) + Len(MotCherche), 7)
End If

[Invité]

Bonjour,

Une autre solution que celle de Philippe sans Like

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
 
Function SeptCaracteresApresMot(ByVal CelluleSource As Range, ByVal MotRecherche As String) As Variant
 
Dim CtrI As Integer
 
    If CelluleSource <> "" Then
       SeptCaracteresApresMot = ""
       For CtrI = 1 To Len(CelluleSource)
           Select Case Mid(CelluleSource, CtrI, Len(MotRecherche))
                  Case MotRecherche
                       If Len(CelluleSource) >= CtrI + Len(MotRecherche) + 7 Then
                          SeptCaracteresApresMot = Mid(CelluleSource, CtrI + Len(MotRecherche), 7)
                          Exit For
                       End If
           End Select
      Next CtrI
    End If
 
End Function

Cordialement.

[Dan.exe]

merci je vais tester tout cela

il y a deux cellules différentes car la première est à analyser (rechercher un MOT) et la seconde sert à reporter le résultat après le MOT

[Dan.exe]

apparemment mon problème est résolu !

merci Philippe pour ta piste

j'ai modifié le code comme je le voulais, le voici pour comprendre ce que je voulais faire

A1 = cellule dans la quelle une recherche de MOT doit être faites

B2 = cellule où l'on reportera les 7 caractères après le MOT

Code :

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

1
2
3
4
5
 
Dim MotCherche As String: MotCherche = "MOT"
If Range("A1").Value Like "*" & MotCherche & "*" Then
Range("B2") = Mid(Range("A1"), InStr(Range("A1"), MotCherche) + Len(MotCherche), 7)
End If

[patricktoulon]

Bonjour

il y a aussi la fonction split

Code :

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

1
2
3
4
Dim MotCherche As String: MotCherche = "MOT"
If Range("A1").Value Like "*" & MotCherche & "*" Then
 Range("B2") = Left(Split(Range("A1"), MotCherche)(1), 7)
 End If

Au plaisir

Re
après on peut même modifié la méthode d'écriture

Code :

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

1
2
Dim MotCherche As String: MotCherche = "MOT"
Range("B2") = IIf(Range("A1") Like "*" & MotCherche & "*", Left(Split(Range("A1"), MotCherche)(1), 7), "")

Au plaisir