Remplacement de nombres

Version imprimable

07/01/2015, 10h29
brought

1 pièce(s) jointe(s)

Remplacement de nombres

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

Pièce jointe 165541

Bonjour brought,

Essaye ceci :D :

Code:

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 ! :ccool:

Cordialement,
Kimy

07/01/2015, 11h16
brought

1 pièce(s) jointe(s)

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 :

Pièce jointe 165553

Merci d'avance ;)

Peut-être comme cela :

Code:

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

:ccool:
Cordialement,
Kimy

07/01/2015, 14h38
brought

Merci Kimy ça marche comme il faut !
07/01/2015, 15h16
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
07/01/2015, 17h21
Kimy_Ire

Avec plus d'explications, il me semble que j'aurais plus de facilité à répondre à la question. :aie:
Ta phrase se situe-t-elle dans la colonne A ?

Dans l'attente de ton retour...
Kimy
08/01/2015, 08h45
brought

Bonjour,

Ma phrase peut se trouver soit dans la colonne A ou une autre, je voudrais pouvoir remplacer aussi bien un nombre par une lettre ou un nombre par une phrase ,une lettre par une nombre..

J'espère être plus précis ..

Merci d'avance ;)

Bonjour brought,

Mon code vérifie uniquement la colonne A.
Voici un code pour remplacer des éléments dans l'ensemble de la feuille :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Macro1()
Dim oRng As Range
Dim oStr_in As String
Dim oStr_out As String
 
oStr_in = "Ma valeur à remplacer"
oStr_out = "Ma valeur de substitution"
 
With Worksheets("Feuil1")
    If Not .Cells.Find(oStr_in, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
        Set oRng = .Cells.Find(oStr_in, LookIn:=xlValues, LookAt:=xlWhole)
        oRng = oStr_out
        oRng.NumberFormat = "@"
        MsgBox "Remplacement réussit"
    Else
        MsgBox "Ce nombre n'existe pas"
    End If
End With
 
End Sub

N'hésite pas à revenir vers moi ! :ccool:

Cordialement,
Kimy

08/01/2015, 11h12
brought

Merci pour toutes tes réponses, mon problème est résolu :mrgreen: