Rechercher dans une case et afficher les 3 lettre avant

Bonjours.

j'aimerais pouvoir rechercher un mot ou une lettre dans une case et afficher les 3 lettre qui précéde ma recherche.

par exemple A contient les descriptions des tablette, PC et autre; j'aimerais pouvoir afficher que les tablette 7" par exemple.

j'ai donc penser a ajouter une colonne contenant la taille de l'ecran. pour ce faire je doit rechercher dans A le caractere " et afficher ce qui le précéde dans B.

voila merci pour votre aide.

Bonjour,

Tu aurais un fichier excel à nous transmettre en exemple ?

Bonjours

merci pour votre très rapide réactivité

voici un exemple pour le fichier. tout en sachant que j'ai plus de 2000 ligne

11exemple.xlsx (10.24 Ko)

Bonjour,

Une première proposition.

8hilarious-v1.xlsm (24.10 Ko)
Option Explicit
Public Sub TailleEcran()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long, j As Integer
Dim tmp
Dim str1 As String, str2 As String

    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    str1 = "*" & Chr(34) & "*"
    str2 = "*" & Chr(39) & "*"
    With ws
        lastRow = .Range("E" & Rows.Count).End(xlUp).Row
        For i = 2 To lastRow
            tmp = Split(.Cells(i, 5), " ")
            For j = LBound(tmp) To UBound(tmp)
                If tmp(j) Like str1 Or tmp(j) Like str2 Then
                    .Cells(i, 7) = tmp(j)
                    Debug.Print tmp(j)
                End If
            Next
        Next
    End With

    Set ws = Nothing

End Sub
Rechercher des sujets similaires à "rechercher case afficher lettre"