Discussion :

[xema972]

Bonjour

J'ai un nouveau probleme, dans ma cellule j'ai 10 caracteres et j'aimerai remplacer le 6 par un autre caractere. je n'arrive pas à le traduire en vba.

voici un exemple :
90V0B00002 => 90V0B10002
91V0B90002 => 91V0B10002

Tous les caracteres peuvent être modifiés mais pas le 6ème qui est fixe.

Merci pour votre aide

[SfJ5Rpw8]

En utilisant Mid ...?

Code :

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

1
2
3
4
  Dim st As String
  st = Feuil1.Range("B2")
  Mid(st, 6, 1) = "1"
  Feuil1.Range("B2") = st

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
Sub Rempl()
Dim Mot As String
 
With Sheets("Feuil5") 'Nom de feuille à adapter
    Mot = .Range("A1")
    Mid(Mot, 6, 1) = 1 'on remplace le 6ème caractère par 1
    .Range("B1") = Mot
End With
End Sub

[xema972]

Merci

[Qwazerty]

Salut
Merci a vous 2, je ne savais pas qu'il y avait une version de type instruction de Mid qui permet d'affecter une valeur a un élément d'une chaîne.
++
Qwaz