Insertion de caractères dans une cellule en VBA

[jeff1494]

Bonjour à toutes et tous;
Je reviens vers vous car je dois modifier la valeur d'une cellule contenant la chaine de caractères suivants:

[[-11],[-1-1],[1-1],[11]]​

La transformation est d'insérer une virgule et un espace après chaque 1er chiffre entre crochet, ce qui doit donner la chaine suivante :

[[-1, 1],[-1, -1],[1, -1],[1, 1]]​

J'avoue que je ne sais pas comment appréhender le problème.
Donc y-aurait-il quelqu'un pour m'expliquer comment le faire?

D'avance je remercie ceux qui voudront bien se pencher sur mon problème.
Bonne soirée à toutes et tous.

 

[sylvanu]

Bonsoir Jeff,
Essayer ça : =SUBSTITUE(SUBSTITUE(C15;"[-1";"[-1,");"[1";"[1,")
( ma chaine était en C15)

 

[sylvanu]

Un petit oubli, en VBA SUBSTITUE c'est SUBSTITUTE.

 

[jeff1494]

Bonsoir Sylvanu,
Je te remercie pour ton aide, mais en fait cette chaine de caractères n'est pas toujours la même et donc le SUBSTITUTE ne marchera pas.
Voici un autre exemple de chaine que je peux trouver :
[[-20, 10], [10, 10], [10, -10], [-20, -10]], et la manipulation doit être la même.
Existe-t-il un moyen de découper la valeur en sous-ensembles, puis d'intervenir sur les sous-ensembles qui m'intéressent?
Dans une vie antérieure ( il y a 40 ans) je développais sur des machines en RPG, et on avait cette possibilité, qui était très intéressante.

 

[mapomme]

Bonsoir @jeff1494,

Avec une fonction personnalisée dont le code est dans Module1:

Function AjouterSep(x, sep)
Dim s, i&
s = Split(x, ",")
For i = 0 To UBound(s)
   If Left(s(i), 2) = "[[" Then
      If Mid(s(i), 3, 1) = "-" Then
         s(i) = Left(s(i), 4) & sep & Mid(s(i), 5)
      Else
         s(i) = Left(s(i), 3) & sep & Mid(s(i), 4)
      End If
   Else
      If Mid(s(i), 2, 1) = "-" Then
         s(i) = Left(s(i), 3) & sep & Mid(s(i), 4)
      Else
         s(i) = Left(s(i), 2) & sep & Mid(s(i), 3)
      End If
   End If
Next i
AjouterSep = Join(s, ",")
End Function

Nota : x est la chaine à traiter, sep est le séparateur à utiliser (virgule pour votre demande ou virgule suivi d'un espace ou autre chose))

 

[jeff1494]

Bonsoir Mapomme;
Merci pour votre solution, que je vais tester de ce pas.
Bonne soirée.

 

[sousou]

Bonjour à tous
La mienne 😉
Dim rangt()
Function modif(cel)

Set c = cel
nbc = Len(c)
For n = 1 To nbc
v = Mid(c, n, 1)
If v = "[" Then flag = 1
If IsNumeric(v) = True And flag = 1 Then
compte = compte + 1
ReDim Preserve rangt(compte)
rangt(compte) = n
flag = 0
End If



Next
For n = 1 To UBound(rangt)
g = Left(c, rangt(n) + n - 1) & ","
d = Right(c, Len(c) - Len(g) + 1)
c = g & d
Next
modif = c
End Function

 

[jeff1494]

Pour mapomme;
Votre fonction fonctionne très bien si je n'ai qu'un seul chiffre soit par exemple [[-11],[-1-1],[1-1],[11]] le résultat est correct [[-1, 1],[-1, -1],[1, -1],[1, 1]]

Par contre pour cette combinaison [[-20, 10], [10, 10], [10, -10], [-20, -10]] , le résultat est [[-2, 010],[1, 010],[1, 0-10],[-2, 0-10]]. Le problème vient du fait d'avoir un nombre à deux chiffres par exemple -20.
Malheureusement je n'ai aucun moyen de prédire ce que j'aurai dans la cellule. La forme sera toujours la même, mais je peux avoir que des chiffres ou bien que des nombres à deux chiffres, voire même un panachage nombre et chiffres.

Mais dans tous les cas je vous remercie pour votre aide.

 

[jeff1494]

Merci sousou, pour votre contribution que je vais tester.

 

[jeff1494]

Pour sousou;
En testant votre fonction, je me retrouve avec un message d'erreur à la ligne Set c = cel Erreur 13 incompatibilité de type.
N'étant pas assez fort pour résoudre le problème, je me retourne vers vous

 

[sousou]

? 😕
Regarde ce fichier avec le même code

 

[jeff1494]

Bonjour sousou;
En fait j'ai le même problème. Voici comment j'appelle la fonction dans mon code VBA :

Dim retourfonction
Dim cel As String
cel = Range("B" & Ligref).Value
retourfonction = modif(cel)

En effet quand je regarde ton fichier, cela fonctionne très bien. Je pense donc que cela vient de mon fait. Je ne suis pas habitué à travailler avec des fonctions, et peut-être que je ne m'y prend pas bien.
Voici donc tout le code de la procédure qui appelle ta fonction.

Private Sub valdef(Valeurcellule As String)
Dim Nbcarac As Integer
Dim nc As Integer
Dim cel As String
Dim retourfonction As String

                    Worksheets("Resref").Select
                    Range("B" & Ligref).Select
                    ' Test si traitement polygones
                    If Cellprecedente Like "*polygon*" Then
                        'MsgBox "Polygon trouvé"
                        valeur_polygones = ""
                        Call polygon
                        Worksheets(2).Select
                        Range("B" & Ligref).Value = valeur_polygones
                        nc = Len(Range("B" & Ligref).Value)
                        Range("B" & Ligref).Value = Left(Range("B" & Ligref).Value, nc - 1)
     ' Appel fonction
                        cel = Range("B" & Ligref).Value
                        retourfonction = modif(cel)
                        Range("B" & Ligref).Value = retourfonction
                        Range("B" & Ligref).Value = Replace(Range("B" & Ligref), ",[", ", [")
                        GoTo Suite1
                    End If
                   
                    ' Mise en forme de la valeur
                    Range("B" & Ligref).Value = Trim(Valeurcellule)                                            ' Supprime les espaces en début de cellule
                    Range("B" & Ligref).Value = Replace(Range("B" & Ligref), "default_value", "")              ' Remplace le texte label par rien, donc les supprime
                    Range("B" & Ligref).Value = Replace(Range("B" & Ligref), """", "")                         ' Remplace les " par rien, donc les supprime
                    Range("B" & Ligref).Value = Replace(Range("B" & Ligref), ": ", "")                         ' Remplace le : par rien, donc les supprime
                        If Range("B" & Ligref).Value Like "*false*" Then
                            Range("B" & Ligref).Value = "'" & Replace(Range("B" & Ligref), ",", "")
                            GoTo Suite
                        End If
                        If Range("B" & Ligref).Value Like "*true*" Then
                            Range("B" & Ligref).Value = "'" & Replace(Range("B" & Ligref), ",", "")
                            GoTo Suite
                        End If
                    Range("B" & Ligref).Value = Replace(Range("B" & Ligref), ",", "")                          ' Remplace la , par rien donc supprime la ,
Suite:
                    If IsNumeric(Range("B" & Ligref)) Then
                        Nbcarac = Len(Range("B" & Ligref).Value)
                        If Nbcarac > 10 Then
                            Range("B" & Ligref).NumberFormat = "0"                                      ' On formate la colonne avec chiffres après virgule seulement si ils existent
                        Else
                            Range("B" & Ligref).NumberFormat = "General"
                        End If
                    End If
                    Range("B" & Ligref).HorizontalAlignment = xlCenter                                                ' On centre les données dans la colonne
Suite1:
                    Worksheets(1).Select

End Sub

En fait l'appel est fait dans le premier IF (If Cellprecedente Like "*polygon*" Then).

Si tu as besoin de plus d'informations n'hésites pas à me le dire.
Encore merci pour ton aide, et bonne journée.

 

[sousou]

Peux-tu envoyer ton fichier (sans données perso)
sinon essaie en remplacant
cel = Range("B" & Ligref).Value
par set cell= Range("B" & Ligref)

 

[mapomme]

@jeff1494, @sousou 🙂

Vous feriez mieux de définir exactement ce que vous voulez et fournir les cas complets et précis de ce que vous désirez avec un fichier comprenant des exemples de chaines de départ et les chaines souhaitées !

 

[jeff1494]

Bonjour;
Je vais poster rapidement un fichier avec des données et des explications concernant ce que je veux faire.
Merci de vous être intéressé à mon problème.
Bonne journée.