Discussion :

[Mathsdeb]

Bonsoir à tous,

Est ce que quelqu'un peut me dire comment je peux substituer par des "X" une partie des données d'une cellule?

Exemple : NMLO222252255252GFE222

Pour avoir : NMLOXXXX2255252GFE222

Sachant que le nombre de lettre + chiffre peut varier

Je peux par exemple avoir aussi JUK25658265

Pour avoir : JUKXXXXX265

Mais le nombre de X est le même

Merci par avance pour votre aide

[Invité]

Bonjour,

Votre 1er exemple n'est pas correct si le nombre de X est de 5 comme l'indiquent les deux résultats.

Bien que vous n'ayez pas mis votre demande dans la partie Macro et VBA, la fonction suivante peut répondre à votre demande :

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
 
Function SubstituerChiffres(ByVal TexteAModifier As String, ByVal NbX As Integer) As String
 
Dim I As Integer
Dim Position1erChiffre As Integer
Dim ChaineDeSubstitution As String
 
    Application.Volatile
    SubstituerChiffres = ""
    If Len(TexteAModifier) <= NbX Then Exit Function
 
    ChaineDeSubstitution = ""
    For I = 1 To NbX
        ChaineDeSubstitution = ChaineDeSubstitution & "X"
    Next I
 
    For I = 1 To Len(TexteAModifier)
        Select Case Mid(TexteAModifier, I, 1)
               Case 0 To 9
                    Position1erChiffre = I
                    Exit For
        End Select
    Next I
 
    SubstituerChiffres = Mid(TexteAModifier, 1, Position1erChiffre - 1) & ChaineDeSubstitution & Mid(TexteAModifier, Position1erChiffre + NbX)
 
End Function

Cordialement.

[Philippe Tulliez]

Bonjour Eric,
Dans ta fonction, tu peux remplacer les lignes 12 à 15 par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ChaineDeSubstitution = String(NbX, "X")

[Invité]

Dans ta fonction, tu peux remplacer les lignes 12 à 15 par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ChaineDeSubstitution = String(NbX, "X")

Bonjour Philippe,

Merci c'est super.

Cordialement.

[Mathsdeb]

Bonsoir,

Merci beaucoup pour votre retour.

Et si je voudrai que les "X" n'apparaissent qu'à partir de la 7ième ligne par exemple, quels sont les éléments que je dois modifier dans la macro ou dans la formule pour que ça marche svp?

Merci par avance pour votre retour

[Invité]

Et si je voudrai que les "X" n'apparaissent qu'à partir de la 7ième ligne par exemple, quels sont les éléments que je dois modifier dans la macro ou dans la formule pour que ça marche svp?

Bonjour,

Une solution possible :

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
 
Function SubstituerChiffres2(ByVal CelluleTexteAModifier As Range, ByVal NbX As Integer, ByVal LigneDebut As Long) As String
 
Dim I As Integer
Dim Position1erChiffre As Integer
Dim ChaineDeSubstitution As String
 
    Application.Volatile
    SubstituerChiffres2 = ""
 
    If Len(CelluleTexteAModifier) <= NbX Or CelluleTexteAModifier.Row < LigneDebut Then Exit Function
 
    ChaineDeSubstitution = String(NbX, "X")
 
    For I = 1 To Len(CelluleTexteAModifier)
        Select Case Mid(CelluleTexteAModifier, I, 1)
               Case 0 To 9
                    Position1erChiffre = I
                    Exit For
        End Select
    Next I
 
    SubstituerChiffres2 = Mid(CelluleTexteAModifier, 1, Position1erChiffre - 1) & ChaineDeSubstitution & Mid(CelluleTexteAModifier, Position1erChiffre + NbX)
 
End Function

Cordialement.

[Mathsdeb]

Bonjour,

Une solution possible :

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
 
Function SubstituerChiffres2(ByVal CelluleTexteAModifier As Range, ByVal NbX As Integer, ByVal LigneDebut As Long) As String
 
Dim I As Integer
Dim Position1erChiffre As Integer
Dim ChaineDeSubstitution As String
 
    Application.Volatile
    SubstituerChiffres2 = ""
 
    If Len(CelluleTexteAModifier) <= NbX Or CelluleTexteAModifier.Row < LigneDebut Then Exit Function
 
    ChaineDeSubstitution = String(NbX, "X")
 
    For I = 1 To Len(CelluleTexteAModifier)
        Select Case Mid(CelluleTexteAModifier, I, 1)
               Case 0 To 9
                    Position1erChiffre = I
                    Exit For
        End Select
    Next I
 
    SubstituerChiffres2 = Mid(CelluleTexteAModifier, 1, Position1erChiffre - 1) & ChaineDeSubstitution & Mid(CelluleTexteAModifier, Position1erChiffre + NbX)
 
End Function

Cordialement.

Bonsoir Eric,

Oups excusez moi mais je me rends compte que je me suis mal exprimée et j'en suis sincèrement désolée.

En fait je voulais dire "si je voudrai que les "X" n'apparaissent qu'à partir de la 7ième position (et non 7ième ligne) par exemple, quels sont les éléments que je dois modifier dans la macro ou dans la formule pour que ça marche svp?

de sorte que par exemple pour NMLO222252255252GFE222 j'obtiens le résultat suivant :

NMLO22XXXXX55252GFE222

Je ferai en sorte pour la prochaine fois d'être plus clair et encore je suis sincèrement désolée.

Merci par avance

[Invité]

Bonjour,

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
Function SubstituerChiffres3(ByVal TexteAModifier As String, ByVal NbX As Integer, ByVal PositionPremierX As Integer) As String
 
Dim I As Integer
Dim ChaineDeSubstitution As String
 
    Application.Volatile
    SubstituerChiffres3 = ""
 
    If Len(TexteAModifier) <= NbX Or Len(TexteAModifier) < PositionPremierX + NbX - 1 Then Exit Function
 
    ChaineDeSubstitution = String(NbX, "X")
 
    SubstituerChiffres3 = Mid(TexteAModifier, 1, PositionPremierX - 1) & ChaineDeSubstitution & Mid(TexteAModifier, PositionPremierX + NbX)
 
End Function

Cordialement.

[Mathsdeb]

Bonsoir Eric,

Merci infiniment !!!!!!!!!!!