supprimer que les lettres

[Olyxier]

Bonjour

j'ai un super code que l'on ma donnée ici en 2008.

comme je suis toujours aussi mauvais qu'à l'époque j'ai encore besoin d'aide.

ce code supprime les lettres ainsi que les points et autres guillemet

Dim C As Range
Dim i As Byte
Dim nombre As String

For Each C In Range("CY15:CY34")
If Not IsEmpty(C) Then
For i = 1 To Len(C)
If IsNumeric(Mid(C, i, 1)) Then
nombre = nombre & Mid(C, i, 1)
End If
Next i
If nombre <> "" Then C = CDbl(nombre)
nombre = "0"
End If
Next C

maintenant la modification que je voudrais est que dans cette ligne le code laisse les guillemets ainsi que les chiffres et les D.

exemple 5as 0ar Dat 4as 4as Das (09) 2as 1as 8rt...

ce qui doit rester: 50D44D(09)218

cela est il possible, merci a vous pour votre aide et bonne soirée😱

 

[tototiti2008]

Re : supprimer que les lettres

Bonjour Olyxier,

à tester :

Dim C As Range
Dim i As Byte
Dim texte As String

For Each C In Range("CY15:CY34")
If Not IsEmpty(C) Then
texte = ""
For i = 1 To Len(C)
If IsNumeric(Mid(C, i, 1)) or Mid(C, i, 1)="(" or Mid(C, i, 1)=")" or Mid(C, i, 1)="D" Then
texte = texte & Mid(C, i, 1)
End If
Next i
If texte <> "" Then C = texte 
End If
Next C

 

[Caillou]

Re : supprimer que les lettres

Bonjour,

Essayes ceci :

  Dim C As Range
  Dim i As Byte
  Dim nombre As String
  Dim l As String
  
  For Each C In Selection 'Range("CY15:CY34")
    If Not IsEmpty(C) Then
      For i = 1 To Len(C)
        l = Mid(C, i, 1)
        If IsNumeric(l) Or l = "D" Or l = "(" Or l = ")" Then
          nombre = nombre & Mid(C, i, 1)
        End If
      Next i
      If nombre <> "" Then C = nombre
      nombre = ""
    End If
  Next C

Caillou

 

[job75]

Re : supprimer que les lettres

Bonjour le fil,

C'est comme tototiti, que je salue 🙂 et un peu pour le fun :

Dim C As Range, i As Byte, x$, txt$
For Each C In Range("CY15:CY34")
  If Not IsEmpty(C) Then
    For i = 1 To Len(C)
      x = Mid(C, i, 1)
      If IsNumeric(x) Or InStr("D()", x) Then txt = txt & x
    Next i
    C = txt
    txt = ""
  End If
Next C

Edit : salut aussi Caillou

A+

 

[Olyxier]

Re : supprimer que les lettres

merci beaucoup cela marche très bien, je me pose encore une question peu t'on inclure un espace entre chaque nombre.
ex: 50D44D(09)218 puis 5 0 D 4 4 D (09) 2 1 8
merci encore et bonne continuation

 

[tototiti2008]

Re : supprimer que les lettres

Bonjour job 😉, Bonjour Caillou,

Je sens que job a envie de lancer le concours du "Code le plus court" 😀
et je crois qu'il a gagné...

 

[JNP]

Re : supprimer que les lettres

Bonsoir le fil 🙂,
Pour le fun et pour faire plaisir à Jean-Marie 😛

Dim m, mm, tmp$
Dim C As Range
For Each C In Range("CY15:CY34")
With CreateObject("vbscript.regexp")
    .Global = True: .IgnoreCase = True: .Pattern = "[\d()D]*"
    Set mm = .Execute(C.Text)
    For Each m In mm
        tmp = tmp & m.Value
    Next m
End With
C = tmp
tmp = ""
Next

Bonne soirée 😎

 

[Caillou]

Re : supprimer que les lettres

Tu remplaces la ligne

nombre = nombre & Mid(C, i, 1)

par

nombre = nombre & Mid(C, i, 1) & " "

Bon WE
Caillou

 

[JNP]

Re : supprimer que les lettres

Re 🙂,
je n'avais pas vu la demande de blanc 😱

Dim m, mm, tmp$
Dim C As Range
For Each C In Range("CY15:CY34")
With CreateObject("vbscript.regexp")
    .Global = True: .IgnoreCase = True: .Pattern = "[\d()D]*"
    Set mm = .Execute(C.Text)
    For Each m In mm
        If m <> "" Then
        tmp = tmp & m.Value & " "
        End If
    Next m
End With
C = Replace(Replace(tmp, "( ", "("), " )", ")")
tmp = ""
Next

Bonne soirée 😎

 

[job75]

Re : supprimer que les lettres

Salut Jean-Noël 🙂

Il me semble qu'Olyxier veut des espaces partout sauf pour un nombre entre parenthèses...

Alors à la fin il faut faire un traitement sur tout le texte pour enlever ces espaces. Un peu lourd 😱

A+

 

[JNP]

Re : supprimer que les lettres

Re 🙂,

Salut Jean-Noël 🙂

Il me semble qu'Olyxier veut des espaces partout sauf pour un nombre entre parenthèses...

Alors à la fin il faut faire un traitement sur tout le texte pour enlever ces espaces. Un peu lourd 😱

A+

Tu n'as pas testé mon code 🙄...
Il fait exactement ça 😛.
A + 😎

 

[tototiti2008]

Re : supprimer que les lettres

Bonjour JNP,
Re,

je reprends le code de job parce que je ne comprends rien à regExp...

Dim C As Range, i As Byte, x$, txt$, OuvrPar As Boolean
For Each C In Range("CY15:CY34")
  If Not IsEmpty(C) Then
OuvrPar = False
    For i = 1 To Len(C)
      x = Mid(C, i, 1)
      If IsNumeric(x) Or InStr("D()", x) Then txt = txt & x & " "
    If x = ")" Then OuvrPar = False
    If x = "(" Or OuvrPar Then
    txt = Left(txt, Len(txt) - 1)
    OuvrPar = True
    End If
    Next i
    C = txt
    txt = ""
  End If
Next C

 

[JNP]

Re : supprimer que les lettres

Re 🙂,

je reprends le code de job parce que je ne comprends rien à regExp...

C'est Jean-Marie qui m'a poussé 😀...
Mais c'est vrai qu'il y a une notion de masque très puissante, et assez simple à utiliser 😉.
C'est le Pattern qui fait tout : "[\d()D]*"
[] est tout ce qu'on accepte comme caractère
\d est équivalent à 0-9, donc tout ce qui est numérique
* sert à dire qu'on accepte autant de fois ce qui est entre crochets
L'avantage, c'est qu'il est aisément modifiable.
Par contre, à partir du moment où on mets des blancs partout, pourquoi ne pas utiliser

Replace(Replace(txt, "( ", "("), " )", ")")

A + 😎

 

[tototiti2008]

Re : supprimer que les lettres

Re,

Par contre, à partir du moment où on mets des blancs partout, pourquoi ne pas utiliser
Code:
Replace(Replace(txt, "( ", "("), " )", ")")

dis moi si je me trompe, s'il y a 5 chiffres ou D entre les parenthèses ça n'enlèvera pas les espace entre chiffres ou D, seulement ceux collés aux parenthèses ?

Pour RegExp je te remercie d'essayer de me convertir mais la littérature sur le sujet m'a semblé si indigeste, et comme je n'en ai jamais eu un besoin vital...

 

[JNP]

Re : supprimer que les lettres

Encore moi 😛...
D'ailleurs, si la structure est bien celle donnée au départ, et en tenant compte du titre "supprimer que les lettres, l'ajout d'un espace dans le Pattern donne aussi le bon résultat

Dim m, mm, tmp$
Dim C As Range
For Each C In Range("CY15:CY34")
With CreateObject("vbscript.regexp")
    .Global = True: .IgnoreCase = True: .Pattern = "[\d()D ]*"
    Set mm = .Execute(C.Text)
    For Each m In mm
        If m <> "" Then
        tmp = tmp & m.Value
        End If
    Next m
End With
C = tmp
tmp = ""
Next

Bonne soirée 😎