Discussion :

[Light479]

Bonjour à toutes et à tous
Après de nombreuses recherches infructueuses je suis dans l'incapacité d'effectuer une simple macro.

J'ai en colonne A un nombre important de descriptif de KB windows

2018-12 Mise à jour cumulative pour Windows 10 Version 1803 pour les systèmes x64 (KB4483234)

Je cherche à extraire/copier la partie entre parenthèse (KBXXXXXX) pour l'injecter dans la cellule adjacente en colonne B

Pour exemple voici une formule précédemment utilisé qui me servait à obtenir le même résultat :

Code :

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

STXT(A7;CHERCHE("(";A7)+1;9)

Vous remarquerez que la formule est "fixe", c'est à dire que si ma valeur recherchée (KBXXXXXX) change d'emplacement, mon résultat sera faussé. Je cherche donc à appliquer une macro qui rechercherait la chaine de caractère "(KB" jusqu'au caractère ")" pour coller le tout dans la cellule adjacente le tout dans une boucle.

Merci d'avoir pris le temps de me lire.
Light,

[Menhir]

Code :

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

=STXT(A7;TROUVE("(";A7)+1;TROUVE(")";A7)-TROUVE("(";A7)-1)

[BENNASR]

essayer avec

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
Sub extractionMots()
    Dim Tableau() As String
    Dim i As Integer
    Dim j As Long
    Dim t As Integer
    With Sheets("feuil1")
    Derlig = .Range("A" & Rows.Count).End(xlUp).Row
    For j = 1 To Derlig
    .Cells(j, 2) = .Cells(j, 1)
    .Cells(j, 2).Replace What:="(KB", Replacement:=""
    Tableau = Split(.Cells(j, 2), ")")
    For i = 0 To UBound(Tableau)
        Debug.Print Tableau(i)
    Next i
    .Cells(j, 2) = Tableau(0)
    Next j
    End With
End Sub

[BENNASR]

avec replace seulement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub extractionMots()
    Dim Tableau() As String
    Dim i As Integer
    Dim j As Long
    With Sheets("feuil1")
    Derlig = .Range("A" & Rows.Count).End(xlUp).Row
    For j = 1 To Derlig
    .Cells(j, 2) = .Cells(j, 1)
    .Cells(j, 2).Replace What:="(KB", Replacement:=""
    .Cells(j, 2).Replace What:=")", Replacement:=""
    Next j
    End With
End Sub

[patricktoulon]

re
sinon si comme moi tu te perds dans les parenthese et ; dans la redaction des formules
en vba ca donne ca

Code :

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

1
2
3
Function entreparentheses(ByVal cel As Range)
If InStr(cel.Text, "(") > 0 Then entreparentheses = Split(Split(cel.Text, "(")(1), ")")(0) Else entreparentheses = "NoFound!"
End Function

et dans la cellule tu met la formule

=entreparentheses(A1)

utilisable en vba de cette maniere aussi

Code :

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

1
2
3
Sub test()
    MsgBox entreparentheses(Sheets(1).Range("A1"))
End Sub

[unparia]

Bonjour
Si tu ceux éviter la lourdeur et le coût induit de deux éclatements, tu peux utiliser deux fois la fonction Instrrev (détermination de la dernière position d'un caractère spécifié) pour déterminer :
en variable pos1 : la position de la dernière parenthèse ouvrante
en variable pos2 : la position de la dernière parenthèse fermante
puis utiliser la fonction Mid pour déterminer ce qui est présent entre pos1 et pos2

Je n'aime d'ailleurs en ce qui me concerne pas cette seule méthode, ni celle du seul double split, en ce sens que ni l'une ni l'autre ne garantissent à 100 % que ce qui te sera retourné est FORCEMENT ce que tu cherches. Ce ne sera jamais rien d'autre que ce qui se trouve entre le dernier "(" et le dernier ")".
Une telle garantie n'existera jamais. On pourra au mieux diminuer considérablement les risques si tu pouvais donner des précisions plus complètes sur le format qu'occupent systématiquement ces données.
Commencent-elles TOUJOURS par "KB" ?
Les derniers caractères sont-ils toujours le même nombre de chiffres ? (observons déjà dans ton message la différence entre cette "forme" KBXXXXXX et celle-là KB4483234)
etc ... (pour résumer : tout ce qui permettrait au moins de vérifier au mieux que ce qui est retourné est de même format que ce qui est attendu).