Séparer valeur numérique + texte d'une cellule

mapomme à dit:

Bonjour @Sylvain. B ,

Une version avec une fonction personnalisée utilisable aussi bien sur la feuille de calcul (voir en feuille "Feuil2") qu'au sein d'une macro VBA.

Le code de la fonction est dans module1 :

VB:

Function NumDeb(xText, Optional xFIN)
Dim i As Long, c As String * 1
   xText = Trim(xText)
   For i = 1 To Len(xText)
      c = Mid(xText, i)
      Select Case c
         Case "0" To "9", ".":
         Case Else:       Exit For
      End Select
   Next i
   If IsMissing(xFIN) Then NumDeb = Left(xText, i - 1) Else NumDeb = Mid(xText, i)
End Function

Le code pour la feuille "Feuil1" est dans le module de la feuille "Feuil1". La colonne B est mise à jour dès qu'une valeur change en colonne C ou bien qu'on revalide une cellule en colonne C.

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim der&, t, i&
   On Error GoTo FIN
   If Not Intersect(Columns("c:c"), Target) Is Nothing Then
      On Error GoTo FIN
      If Me.FilterMode Then Me.ShowAllData
      Application.EnableEvents = False
      Columns("b:b").ClearContents
      der = Cells(Rows.Count, "c").End(xlUp).Row
      t = Columns("c:c").Resize(der)
      'si vous désirez le texte final alors écrivez : = NumDeb(t(i, 1),1) dans la ligne qui suit
      For i = 1 To UBound(t): t(i, 1) = NumDeb(t(i, 1)): Next
      Columns("b:b").Resize(der).NumberFormat = "@"
      Columns("b:b").Resize(der) = t
   End If
FIN:
   Application.EnableEvents = True
End Sub

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

Je ne connais pas ta version d'Excel mais peut-être une solution avec Power Query.

JHA

Cliquez pour agrandir...

Sylvain. B à dit:

Ça fonctionne parfaitement, mais pensez-vous qu'il serait possible d'avoir les valeurs numériques en colonneA de ma feuille juste en cliquant sur un bouton ?
A partir de la cellule A9 qui ne change jamais jusqu'à la dernière ligne qui elle peut changer.

Ensuite j'applique une formule qui devra me donner le nombre de ventes de cette référence (valeur numérique), avec le code que vous m'avez très gentiment donné (merci encore) ma formule ne fonctionne pas car dans la cellule cible excel trouve une formule (=numdebC9) par exemple est non une valeur.

Cliquez pour agrandir...

mapomme à dit:

Bonjour @Sylvain. B ,

Personnellement, je veux bien tout faire mais pour le faire bien, j'aimerai du concret c'est à dire votre classeur ou bien un petit classeur exemple qui sera le reflet exact de votre classeur original pour ne pas coder dans le vide.

Alors à plus .

Cliquez pour agrandir...

AtTheOne à dit:

Bonjour le fil,
Vu que le format a l'air d'air fixe (Nbre sur la 25 premiers caractères, texte ensuite) Données, Convertir convient tout à fait, largeur fixe, curseur sur la colonne 25 , Avancé dans l'écran 3 : séparateur décimal = .
Avec une petite macro si c'est un travail répétitif :
Données importées en colonne A; restituées en colonnes A et B

Enrichi (BBcode):

Sub Séparer()
     With ActiveSheet
          .Cells(9, 1).Resize(.Cells(.Rows.Count, 1).Row).TextToColumns Destination:=.Cells(9,1), _
                                                                        DataType:=xlFixedWidth, _
                                                                        Fieldinfo:=Array(Array(0, 1), Array(25, 1)), _
                                                                        DecimalSeparator:="."
     End With
End Sub

EDIT : Prise en compte du début en A9

Voir la PJ
A bientôt

Cliquez pour agrandir...

AtTheOne à dit:

Re bonjour,
En prenant la plage utilisée de la colonne C (à partir de C9) comme source et comme cible la cellule B9
Je remplace d'abord la chaine " - " par "§", et j'utilise donnée conversion avec comme séparateur "§" :

VB:

Sub SéparerNew()

     With ActiveSheet
          Set Rg = .Cells(9, 3).Resize(.Cells(.Rows.Count, 3).End(xlUp).Row)
     End With
     Rg.Replace What:=" - ", Replacement:="§", LookAt:=xlPart
   
     Application.DisplayAlerts = False
     Rg.TextToColumns Destination:=Rg.Cells(1).Offset(0, -1), DataType:=xlDelimited, _
                                                              Other:=True, OtherChar:="§", _
                                                              FieldInfo:=Array(Array(1, 1), Array(2, 1)), DecimalSeparator:="."
     Application.DisplayAlerts = True

End Sub

Voir la pièce jointe
A bientôt

Cliquez pour agrandir...