Discussion :

[Stanyslas]

Bonjour tout le monde !

Ça fait plusieurs heures que je sèche sur un problème, pourtant j'ai l'impression d'avoir tous les outils en mains pour réussir.

Il s'agit d'ajouter le caractère "|" à la place du caractère "-" dans chaque cellule d'une colonne mais seulement :

-lorsque "-" est suivi d'un nombre à 2 chiffres.

Exemple : "toto-sur-mer - 64" -> "toto-sur-mer |64"

Contraintes :
-Il n'y a jamais écrit la même chose dans les cellules
-Les "-" peuvent être à des endroits différents.


Voici quelques pistes que j'ai exploré mais qui n'ont pas abouti :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
      If Cells(i, 1).Value Like "*- ##*" Then
        If Cells(i, 1).Value Like "-[!a-z]" Then
          Cells(i, 1).Value = Replace(Cells(i, 1).Value, "- ", "|")
        End If
      End If

J'ai aussi tenté de passer par InStr pour récupèrer la position où il faudrait insérer le "|", mais je n'ai pas réussi à lui faire accepter les "##".

Pareil avec Mid, left et right.

Je n'ai pas non plus réussi à faire un Replace seulement sous certaines conditions, mis à part de le faire à l'intérieur d'un If mais ça n'a rien donné (cf Code)

Bref, je fais appel aux experts...

Merci d'avance!

Stan

[Philippe Tulliez]

Bonjour,
Voici un exemple de fonction personnalisée qui fonctionne
Attention seulement si les 2 caractères qui suivent sont un nombre > 0
cad "toto-sur-mer -64" et pas "toto-sur-mer - 64" sauf avec une adaptation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function Change(texte As String, Optional OldText As String = "-", Optional NewText As String = "|") As String
 Dim c As Integer
 For c = 1 To Len(texte)
  If Mid(texte, c, 1) = OldText Then
  Debug.Print Val(Mid(texte, c + 1, 2))
   If Val(Mid(texte, c + 1, 2)) > 0 Then Mid(texte, c, 1) = NewText
  End If
 Next
 Change = texte
End Function

[Stanyslas]

Bonjour !

Merci beaucoup d'avoir répondu si vite.

Alors, je ne suis pas bien familier avec toutes les fonctions que tu utilises mais si j'ai bien compris :

1) Tu parcours chaque string de chaque cellule

2) Lorsque tu tombes sur le string "-" tu testes si il y a 2 chiffres qui forment un nombre positif à 1 pas d'écart de "-".

3) Si c'est le cas, tu changes "-" en "|"

J'ai plus de 3000 pages excel à traiter, mais il me semble sont toujours sous la forme ""toto-sur-mer - 64".

J'ai donc changer "c+1" dans ton code par "c+2" et ajouter dans mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Change (Cells(i, 2).Value)

mais ça ne fonctionne pas.

Par ailleurs, pour éviter le problème avec les nombres positifs, il ne serait pas plus simple d'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsNumeric(Mid(texte, c + 2, 2)) = True Then Mid(texte, c, 1) = NewText

Merci encore pour ton aide,

Stan

[Philippe Tulliez]

Bonjour,
Ton analyse est correcte
Je parcours chaque caractère de la chaîne et ensuite dès que je trouve le caractère = à l'argument OldText, je vérifie si les 2 caractères suivants sont supérieurs à 0. Si c'est le cas, je le remplace par l'argument NewText
Voilà ce que j'ai testé.
Colonne A............................Colonne B
toto-sur-mer- 50...................... toto-sur-mer| 50
tutu sur-eau-20....................... tutu sur-eau|20
toto hello- 200 -....................... toto hello| 200 -
salut- 50luna........................... salut| 50luna
Hello- 450-marine-bateau....... Hello| 450-marine-bateau

Cependant après vérification, je constate que j'ai toute de même fait une petite erreur. Je n'ai pas le temps pour l'instant de m'y pencher mais je pense que c'est une bonne piste pour toi si tu n'as pas la patience d'attendre une autre réponse plus tardive.

Cette fonction personnalisée peut-être utilisée comme une fonction d'excel ou avec une procédure SUB dans VBA
Exemple avec Excel :
Si le texte est en A2:A3000 tu places cette formule dans une colonne à côté par exemple en B2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=change(A2)

ET ensuite tu la recopies vers le bas.
Ou bien en VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub t()
Sub test()
 Dim r As Long
 For r = 2 To 3000
  ' 4 représente la colonne D
  Cells(r, 4) = Change(Cells(r, 2))
 Next
End Sub

[mercatog]

Bonjour
Une autre proposition utilisant les expressions régulières (ci joint lien intéressant de cafeine)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function Change(ByVal Str As String) As String
Dim Rg As Object
 
Set Rg = CreateObject("VBScript.RegExp")
With Rg
    .Pattern = "(.*)(\-)(.*\d?\d)"
    .Global = True
    Change = .Replace(Str, "$1|$3")
End With
Set Rg = Nothing
End Function
 
 
Sub Test()
Dim c As Range
 
Application.ScreenUpdating = False
'on traite la plage A1:A100 de la feuille Feuil1, à adapter
For Each c In Worksheets("Feuil1").Range("A1:A100")
    c.Value = Change(c.Value)
Next c
End Sub

[Stanyslas]

Merci à tous pour votre aide,

Je savais qu'il était possible de passer par les RegExp pour faire ce genre de modifications, mais n'étant pas très à l'aise avec j'avais essayé de contourner le problème. La prochaine fois je me lancerai peut-être!

Finnalement, j'ai opté pour une version un peu "modifié" de la fonction de corona :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function Merci_corona(texte As String, Optional OldText As String = "-", Optional NewText As String = "|") As String
 Dim c As Integer
 For c = 1 To Len(texte)
  If Mid(texte, c, 1) = OldText Then
  Debug.Print Val(Mid(texte, c + 1, 2))
   If IsNumeric(Mid(texte, c + 1, 2)) Then Mid(texte, c, 1) = NewText
  End If
 Next
 Change = texte
End Function

->Seuls changements en gras.

Ça a l'air de fonctionner, donc problème résolu :-)


Merci encore!

Stan