Discussion :

[Phoceens]

Bonjour à tous,
j'aurais une petite demande :
j'ai une cellule qui contient un nombre à 8 chiffres.
j'ai besoin de changer le premier caractères en 6 et le 4 ème caractère en 2.

Qulqu'un aurait il une solution ?

Merci d'avance

[drakkar_agfa]

Bonjour,

Essais avec cette fonction

Code :

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

1
2
3
4
5
6
7
Function Changer(Ancien As String) As String
    Dim Nouveau As String
 
    Nouveau = "6" & Mid(Ancien, 2, 2) & "2" & Right(Ancien, 4)
 
    Changer = Nouveau
End Function

[aalex_38]

Regarde la commande MID dans l'aide VBA

Edit: sorry Drakkar, je n'ai pas rafraichi.

[drakkar_agfa]

Si c'est résolu, Clique le bouton "Résolu" !