XL 2019 Recopier nombres avec condition dans une suite alpha-numérique.

[Thomas97]

Bonjour,

Je cherche à extraire un litrage qui est indiqué sous la forme " 45L", "2X5L" ou encore "3,4L" dans des suites alpha-numériques de longueurs différentes et n'apparaissant pas toujours à la fin du texte: "Boite 25L -JKLI67" par exemple.

Le but étant de remplir une colonne "litrage" avec uniquement le litrage des produits afin de pouvoir utiliser plus facilement cette donnée.

Je pensais donc à une formule qui lorsqu'elle trouve la lettre "L" majuscule extrait les 3 caractères précédent si il y a des chiffres.

Ce genre de formule est bien au dessus de mes capacités, et après de nombreux tutos excel j'en appel à votre bon coeur ^^. Le vrai fichier faisant 45000 lignes, le faire à la main me parait difficile.

Il y a certaines dénominations bien gratinés tel que "Lot de 7 boites hermétiques (3x1.1L + 2x0.9L + 2.1 + 3.2L)"

J'ai mis un exemple en pièce jointe,

Même sans réponse précise, je voudrai savoir si c'est techniquement réalisable ou non,

Merci d'avance,

 

[Kruger$$]

Bonjour,

Je ne sais pas si cela est possible, mais la complexité requiert au moins des connaissances avancées en VBA.

Ce n'est clairement pas à la portée du premier venu.

 

[mapomme]

Bonjour @Thomas97 et bienvenue sur XLD ,
Bonjour @Kruger$$ et bienvenue sur XLD ,

Voici une solution par macro. Je ne vois pas de solution par formule.
La fonction s'appelle VQ. On l'utilise comme une formule ordinaire dans une cellule: =VQ(A2).
Cette fonction semble fonctionner pour les cas de l'exemple fourni. Savoir si elle fonctionne pour d'autres cas est à vérifier au coup par coup.

Le code est dans module1:

Function VQ(x$) As String
Dim j&, y$, r$, c$, s$

   x = Application.Trim(Replace(x, " L", "L"))
   For j = Len(x) To 2 Step -1
      If Mid(x, j, 2) Like "#L" Then
         y = Left(x, j + 1): Exit For
      End If
   Next j
   If y = "" Then Exit Function
   y = Chr(255) & y
 
   y = Application.Trim(y)
   For j = Len(y) To 1 Step -1
      c = Mid(y, j, 1): s = Mid(y, j - 1, 1)
      If InStr(1, "0123456789 x.+L,", c, vbBinaryCompare) = 0 Then Exit For
      r = c & r
      If InStr(1, "0123456789 x.+L,", s, vbBinaryCompare) = 0 Then Exit For
   Next j
   VQ = Trim(r)
End Function

 

[Thomas97]

Bonjour @Thomas97 et bienvenue sur XLD ,
Bonjour @Kruger$$ et bienvenue sur XLD ,

Voici une solution par macro. Je ne vois pas de solution par formule.
La fonction s'appelle VQ. On l'utilise comme une formule ordinaire dans une cellule: =VQ(A2).
Cette fonction semble fonctionner pour les cas de l'exemple fourni. Savoir si elle fonctionne pour d'autres cas est à vérifier au coup par coup.

Le code est dans module1:

Function VQ(x$) As String
Dim j&, y$, r$, c$, s$

   x = Application.Trim(Replace(x, " L", "L"))
   For j = Len(x) To 2 Step -1
      If Mid(x, j, 2) Like "#L" Then
         y = Left(x, j + 1): Exit For
      End If
   Next j
   If y = "" Then Exit Function
   y = Chr(255) & y

   y = Application.Trim(y)
   For j = Len(y) To 1 Step -1
      c = Mid(y, j, 1): s = Mid(y, j - 1, 1)
      If InStr(1, "0123456789 x.+L,", c, vbBinaryCompare) = 0 Then Exit For
      r = c & r
      If InStr(1, "0123456789 x.+L,", s, vbBinaryCompare) = 0 Then Exit For
   Next j
   VQ = Trim(r)
End Function

Merci beaucoup, je test ça de suite

 

[Thomas97]

Bonjour @Thomas97 et bienvenue sur XLD ,
Bonjour @Kruger$$ et bienvenue sur XLD ,

Voici une solution par macro. Je ne vois pas de solution par formule.
La fonction s'appelle VQ. On l'utilise comme une formule ordinaire dans une cellule: =VQ(A2).
Cette fonction semble fonctionner pour les cas de l'exemple fourni. Savoir si elle fonctionne pour d'autres cas est à vérifier au coup par coup.

Le code est dans module1:

Function VQ(x$) As String
Dim j&, y$, r$, c$, s$

   x = Application.Trim(Replace(x, " L", "L"))
   For j = Len(x) To 2 Step -1
      If Mid(x, j, 2) Like "#L" Then
         y = Left(x, j + 1): Exit For
      End If
   Next j
   If y = "" Then Exit Function
   y = Chr(255) & y

   y = Application.Trim(y)
   For j = Len(y) To 1 Step -1
      c = Mid(y, j, 1): s = Mid(y, j - 1, 1)
      If InStr(1, "0123456789 x.+L,", c, vbBinaryCompare) = 0 Then Exit For
      r = c & r
      If InStr(1, "0123456789 x.+L,", s, vbBinaryCompare) = 0 Then Exit For
   Next j
   VQ = Trim(r)
End Function

Ca marche parfaitement, je vais continuer de m'intéresser aux macro, au vu de leur utilité, merci beaucoup en tout cas!

 

[mapomme]

Re @Thomas97

Ca marche parfaitement

Eh bien non, ça ne marche pô . Voir la ligne avec "Tour 4 tiroirs A4 10L + roulettes ".
La v1 retourne: 4 10L

Essayez la version v2 qui doit corriger cela.