Discussion :

[brought]

Bonjour,

Alors j'ai deux problèmes dans mon classeur, je voudrais si c'est possible dans un premier temps, remplacer mon nombre : 01200 par un autre nombre 00200.
Mon programme marche très bien sauf qu'il ne prend pas en compte les zéros quand il remplace mon nombre.
Comment je peux faire ?

Mon deuxième problème, c'est que j'aimerais bien modifier mon programme pour que celui-ci me prévienne quand je remplace en nombre qui n'existe pas, ou quand il a remplacé le nombre qu'il me mette un message : du genre " Remplacement réussit" ou " Ce nombre n'existe pas"

Je vous remercie par avance !

PS : je joins mon fichier

Test.xls

[Kimy_Ire]

Bonjour brought,

Essaye ceci :

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
23
24
25
26
Option Explicit
 
Sub remplacement()
Dim oRng As Range
Dim i As Integer
Dim oBool As Boolean
 
With Worksheets("Feuil1")
    Set oRng = .Range("A1")
    oBool = False
    For i = 1 To .Columns(1).Find("*", , , , , xlPrevious).Row
        If oRng.Offset(i, 0) = 1200 Then
            oRng.Offset(i, 0) = 200
            oBool = True
        End If
    Next i
    .Columns(1).NumberFormat = "00000"
 
    If oBool Then
        MsgBox "Remplacement réussit"
    Else
        MsgBox "Ce nombre n'existe pas"
    End If
End With
 
End Sub

Au lieu de passer par des nombres sous format texte, il est peut-être préférable de ne faire qu'un affichage avec les "0".

Tu me diras !

Cordialement,
Kimy

[brought]

Merci Kimy pour le code,


J'ai vraiment besoin de prendre les zéros en compte,excuse-moi pour la question mais je n'arrive à remplacer par exemple 200 par 0200 dans la macro. Cela ne le prend pas en compte.
Je te remet le fichier avec le code :

Test (1).xls

Merci d'avance

[Kimy_Ire]

Peut-être comme cela :

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
23
24
25
26
27
28
29
30
31
32
 
Option Explicit
 
Sub Macro1()
Dim oRng As Range
Dim i As Integer
Dim oBool As Boolean
Dim oStr_in As String
Dim oStr_out As String
 
oStr_in = "Ma valeur à remplacer"
oStr_out = "Ma valeur de substitution"
 
With Worksheets("Feuil1")
    Set oRng = .Range("A1")
    oBool = False
    For i = 1 To .Columns(1).Find("*", , , , , xlPrevious).Row
        If oRng.Offset(i, 0) = oStr_in Then
            oRng.Offset(i, 0).NumberFormat = "@"
            oRng.Offset(i, 0) = oStr_out
            oBool = True
        End If
    Next i
 
    If oBool Then
        MsgBox "Remplacement réussit"
    Else
        MsgBox "Ce nombre n'existe pas"
    End If
End With
 
End Sub

Cordialement,
Kimy

[brought]

Merci Kimy ça marche comme il faut !

[brought]

Re,

Désolé je viens de voir que quand je saisie par exemple une phrase pour la remplacer par un mot ou un nombre , cela ne fonctionne pas.
Comment je peut faire pour ça?

Merci encore

Brought