Attribution de code

[utilsfr]

Bonjour a tous

Voici un problème à résoudre que j'ai commencé mais que je n'arrive pas à terminé

Cordialement
ROBERT René

 

[andré]

Salut et bon appétit,

En VBA je ne sais t'aider, mais à voir ton tableau, il me semble que cela soit possible par formules.

Alors si tu n'as pas d'autres solutions, je veux bien chercher, mais il te faudra un peu de patience.

Ândré.

 

[michel]

bonjour André et Robert René

j'espere que la macro ci joint pourra t'aider


Sub ExtraireAlphaNumerique()
Dim i As Byte, j As Byte, NumColonne As Byte
Dim Cible As Range
Dim Mot As String
Dim Nombre As Integer

For Each Cible In Range("A2:A" & Range("A65536").End(xlUp).Row)
j = 1

For i = 1 To Len(Cible)
If Not IsNumeric(Mid(Cible, i, 1)) Then
Mot = Mid(Cible, i, 1)
Nombre = Mid(Cible, j, i - j)

NumColonne = Application.WorksheetFunction.Match(Mot, Worksheets(1).Range("C1:AB1"), 0) + 2
Cells(Cible.Row, NumColonne) = Nombre

j = i + 1
End If

Next i
Next Cible

End Sub



bon dimanche
MichelXld

 

[utilsfr]

Un grand merci à Michel pour avoir trouver la solution

Bravo

Cordialement
ROBERT René

 

[Monique]

Bonjour,

Par formule et avec quelques jours de retard...

 

[utilsfr]

Bonjour

Merci Monique, la reine des formules

Cordialement
ROBERT René