concaténation variable suivant le contenu (position du texte dans la cellule)

[JULIANSAT]

Bonjour à tous.

Je souhaite concaténer des cellules importées (repère de pièces) avec le formatage suivant (voir fichier joint) :
- Si c’est un nombre entier (sans « . » ou « , ») : concaténer le nobre à gauche de la cellule
- Si c’est un nombre avec une décimale ( type 1.1 ou 1,1) : concaténer le nombre avec 2 blancs (espaces)
- Si c’est des formats du type 1.1.1 , 1,1,1,1 : concaténer la cellule à droite

Cela est possible avec des fcts sans macro ?

Merci bcp

Julian

 

[Victor21]

Re : concaténation variable suivant le contenu (position du texte dans la cellule)

Bonjour.

Quel est votre séparateur décimal ?

 

[jp14]

Re : concaténation variable suivant le contenu (position du texte dans la cellule)

Bonjour

Ci joint une macro qui utilise les données du fichier
A tester et à modifier

Sub travdem()
Dim Cellule As Range
Dim Nomfeuille1 As String
Dim Col As String
Dim data1() As String
'parametre
Col = "A"
With Sheets("Feuil1")
For Each Cellule In .Range(Col & "2:" & Col & .Range(Col & .Rows.Count).End(xlUp).Row)
    data1 = Split(Replace(Cellule.Value, ".", ","), ",")
    Select Case UBound(data1)
        Case 0
            Cellule.Offset(0, 1) = Cellule
        Case 1
            Cellule.Offset(0, 1) = "  " & Cellule
        Case Is > 1
            Cellule.Offset(0, 1) = "  " & Cellule
            Cellule.Offset(0, 1).HorizontalAlignment = xlRight
    
    End Select
Next Cellule
End With
End Sub

JP

 

[JHA]

Re : concaténation variable suivant le contenu (position du texte dans la cellule)

Bonsoir à tous,

Par formule mais pas de nombre à droite

JHA

 

[JULIANSAT]

Re : concaténation variable suivant le contenu (position du texte dans la cellule)

Bonjour à tous.
Un grand merci
JHA, le décalage à droite est suffisant.
Bonne journée
Julian