XL 2016 Recherche valeur dans cellule et revoi les caractères suivants

[kholzob]

Bonjour,

J'aurais besoin d'un coup de main pour le problème suivant.

J'ai un tableau dans lequel plusieurs information sont contenue dans la même cellule (voir exemple) et voudrais en extraire les infos.

En gris mon export.
En vert le résultat souhaité.

Marche à suivre:
- Dans cellule B3, cherche le chiffre suivant le code "#U1" et revoyer le caractère (ou les deux caractères) suivant
- Idem pour #U2 #U3 #U4
- Idem pour B4 B5 etc.

Je n'ai pas de solution, si formule, ni VBA..

Merci d'avance de votre aide.
Khol

 

[vgendron]

hello
plutot qu'une image, peux tu poster ton fichier exemple

 

[kholzob]

Voici

 

[vgendron]

un essai avec ce code

Sub LargeurColonne()
Fin = Range("B" & Rows.Count).End(xlUp).Row 'on recupère la dernière ligne de la colonne B
For i = 3 To Fin 'pour chaque ligne du tableau
    s = Split(Range("B" & i), vbLf) 'on met dans un tableau les couples "output/Valeur"
    For k = LBound(s) To UBound(s) 'pour chaque couple
        'output = Split(s(k), " ")(0)
        valeur = Split(s(k), " ")(1) 'la valeur
        Cells(i, k + 3) = valeur 'et on la place dans le tableau
    Next k
Next i
End Sub

 

[vgendron]

ca suppose que dans ta colonne B, tu as TOUJOURS U1, U2 U3 et U4 dans cet ordre

 

[kholzob]

Merci pour cette proposition.
J'aurai effectivement #U1 - #U4 dans cette ordre, malheureusment des données supplémentaire qui ne m'intèresse peuvent apparaître à la suite (texte libre)

 

[vgendron]

à la suite de quoi? du chiffre ? ou à la suite de la dernière ligne U4. ?
peux tu remettre un fichier exemple avec tous les cas de figure qui peuvent apparaitre?

 

[kholzob]

Oui à la suite de U4.

Je peux adapter le code :

For k = LBound(s) To UBound(s) 'pour chaque couple

en

For k = 0 To 3 'pour chaque couple

pour me limiter au 4 premières lignes.
Mais comme toujours cela dépendra de la rigeur des utilisateurs en entrant les données de la colonne B. (si une ligne est sautée le code ne l'accepte pas et si plusieurs espace sont introduit entre Ux et la réponse un espace vide est indiqué).

J'ai une solution avec formule, plus flexible, mais qui surcharge mon fichier.

=(MID($B3;FIND(C$2;$B3)+3;2))

Merci beaucoup pour ton aide, je vais voir comment je peux encore adapter le code pour éliminer les erreur des utilisateurs).

 

[Staple1600]

Bonsoir le fil, le forum

Cela fonctionne sur l'exemple.
(en attendant mieux )

Sub a()
Dim t, i&, j&
j = Cells(Rows.Count, 2).End(xlUp).Row
For i = j To 3 Step -1
t = Split(Cells(i, 2), vbLf)
Cells(i, 3).Resize(, UBound(t) + 1) = t
Erase t
Next
Range("C3:F" & j).Replace What:="#U? ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
End Sub

 

[JHA]

Bonjour à tous,

A essayer,

JHA