XL 2013 modification de la troisième lettre dans une cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lagodille

XLDnaute Occasionnel
Bonjour à tous et bonne année,

j'aimerai savoir comment changer dans une cellule uniquement la troisième lettre d'un ensemble de chiffres et de lettres comme par exemple dans une cellule 22D001 que je veux via visual basic transformer en 22F001

Merci pour votre aide
 
Bonjour à tous et bonne année,

j'aimerai savoir comment changer dans une cellule uniquement la troisième lettre d'un ensemble de chiffres et de lettres comme par exemple dans une cellule 22D001 que je veux via visual basic transformer en 22F001

Merci pour votre aide
Hello,

Pas besoin de VBA, la fonction SUBSTITUE remplace une lettre par une autre.

VB:
=SUBSTITUE(A1;"D";"F")

Ou alors s'il faut remplacer toutes les troisièmes lettres par "F" :
VB:
=SUBSTITUE(A1;DROITE(GAUCHE(A1;3);1);"F")
 
Dernière édition:
Hello,

Pas besoin de VBA, la fonction SUBSTITUE remplace une lettre par une autre.

VB:
=SUBSTITUE(A1;"D";"F")

Ou alors s'il faut remplacer toutes les troisièmes lettres par "F" :
VB:
=SUBSTITUE(A1;DROITE(GAUCHE(A1;3);1);"F")
bonjour à toutes et à tous,

merci etoto pour ta réponse mais je tenais à utiliser vba car je copie une feuille dans une autre feuille et du coup écrase ta formule dans cette dernière. Du coup je suis obligé de la planquer dans la feuille copiée 🙁
cordialement
 
Bonjour
exemple je change "d" pour "x"
VB:
Sub test()
    Dim texte$
    texte = Feuil1.[A1].Value
    Mid$(texte, 3, 1) = "x"
    [A1] = texte
End Sub
demo.gif
 
Bonjour lagodille, Etoto, chris, patricktoulon,

SUBSTITUE ne va pas car seule la 3ème lettre doit être remplacée.

Comme patricktoulon mais en choisissant le caractère :
VB:
Sub Remplacer()
Dim x$, y$
x = CStr(Trim(ActiveCell))
If Len(x) < 3 Then Exit Sub
y = Left(Trim(InputBox("3ème caractère :", "Remplacer")), 1)
If y = "" Then Exit Sub
Mid(x, 3, 1) = y
ActiveCell = x
End Sub
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
173
Retour