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
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