Remplacer des lettres par un chiffres

[phil59110]

un grand Bonjour a tous le forum!!!!!
voila j'ai un petit souci avec un tableau avec des lettres et des chiffres
je vous ai joint un petit fichier pour l'exemple
si voulez bien y jeter un petit coup d'oeil

je vous en remerci beaucoup!!!!

 

[Efgé]

Re : Remplacer des lettres par un chiffres

Bonjour phil59110,
Une proposition (basée sur votre exemple et à adapter):

Sub test()
Dim c As Range
For Each c In Sheets("Feuil1").Range("L16:Q34")
    If Not IsNumeric(c.Value) Then c.Value = 10
Next c
End Sub

Cordialement

 

[Paritec]

Re : Remplacer des lettres par un chiffres

Bonjour Phil, Efgé
bonjour Efgé
bon bah je remballe ma réponse pas assez rapide pour Efgé !!!
a+
papou 🙂

 

[phil59110]

Re : Remplacer des lettres par un chiffres

Bonjour phil59110,
Une proposition (basée sur votre exemple et à adapter):

Sub test()
Dim c As Range
For Each c In Sheets("Feuil1").Range("L16:Q34")
    If Not IsNumeric(c.Value) Then c.Value = 10
Next c
End Sub

Cordialement

Bonjour Efgé !!
merci beaucoup pour ta proposition je test ça et je dit quoi!!!

 

[CBernardT]

Re : Remplacer des lettres par un chiffres

Bonjour à tous,


Un essai avec une macro évènemenntielle placée dans le module de feuille.

Dès qu'une lettre apparaît dans le cartouche L15:Q34, elle est remplacée par 10.

 

[Efgé]

Re : Remplacer des lettres par un chiffres

Re phil59110,
Bonjour Paritec. Désolé pour la rapidité de réponse 😱, mais je "l'avait sous le coude"😉.
Ta proposition était peut être différente? Ce serait interressant.
Cordialement

 

[phil59110]

Re : Remplacer des lettres par un chiffres

ça fonctionne impécable Efgé!!!!
par contre en suivant le méme principe est ce qu'il serais possible de remplacer aussi
les "0" par 10

merci beaucoup!!!!

 

[phil59110]

Re : Remplacer des lettres par un chiffres

Bonjour à tous,


Un essai avec une macro évènemenntielle placée dans le module de feuille.

Dès qu'une lettre apparaît dans le cartouche L15:Q34, elle est remplacée par 10.

bonjour CBernardT
oui cette macro fonctionne impecable aussi décidemment avec vous on a que
l'embarra du choix!!!!

 

[Efgé]

Re : Remplacer des lettres par un chiffres

par contre en suivant le méme principe est ce qu'il serais possible de remplacer aussi
les "0" par 10 QUOTE]
Une proposition :

Sub test()
Dim c As Range
For Each c In Sheets("Feuil1").Range("L16:Q34")
    If c.Value <> "" Then
        If Not IsNumeric(c.Value) Or c.Value = 0 Then c.Value = 10
    End If
Next c
End Sub

Cordialement

 

[CBernardT]

Re : Remplacer des lettres par un chiffres

Re,

Petite modif de la macro identique à celle d'Efgé pour inclure le 0 dans les valeurs à transformer :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("L15:Q34")) Is Nothing Then
Dim Plage As Range, Cel As Range
Set Plage = Range("L15:Q34")
For Each Cel In Plage
If TypeName(Cel.Value) = "String" Or Cel.Value = 0 Then
Cel = 10
End If
Next Cel
End If
End Sub

 

[phil59110]

Re : Remplacer des lettres par un chiffres

ça fonctionne impecable super!!!

milles merci Efgé et CBernardT
bon week end a vous et a tout le forum!!!!!

 

[Paritec]

Re : Remplacer des lettres par un chiffres

Bonsoir CBernardT, Efgé Phil,
Petite réponse pour Efgé,
pour ma réponse c'était exactement à la virgule la même que la tienne Efgé dans la première version sans les zéro que phil a rajouté après sauf que moi j'avais mis cel et toi c
bonne soirée à tous
papou 🙂

 

[Staple1600]

Re : Remplacer des lettres par un chiffres

Bonsoir à tous

Deux petites variantes commises un soir de désœuvrement 😉

Sub test_OK1()
Dim c As Range
For Each c In Sheets("Feuil1").Range("A1:C5")
If Len(c) > 0 Then
c = 10 + ((Not IsNumeric(c)) * (c = 0))
End If
Next c
End Sub

Sub test_OK2()
Dim c As Range
For Each c In Sheets("Feuil1").Range("A1:C5")
c = Switch(c = "", vbNullString, c = 0, 10, Not IsNumeric(c), 10)
Next c
End Sub