Microsoft 365 rajout lettre alphanumerique dans colonne excel

Peter DOE

XLDnaute Nouveau
Bonjour,
Pouvez-vous m'indiquer SVP comment puis-je rajouter la lettre "A" dans la colonne "Trnsction Ref" afin d'obtenir ATLFI3616461.

D'avance merci pour votre précieuse aide et bien à vous !
 

Pièces jointes

  • EXTRACTIONS YUNAS YLUS.xlsx
    182.8 KB · Affichages: 4
Solution
On peut aussi exécuter cette macro qui fonctionne quels que soient les textes en colonne I :
VB:
Sub A()
Dim tablo, i&, x$
With Range("I19", Range("I" & Rows.Count).End(xlUp))
    If .Row < 19 Or .Count = 1 Then Exit Sub
    tablo = .Value
    For i = 2 To UBound(tablo)
        x = UCase(tablo(i, 1))
        If x <> "" Then If Left(x, 1) <> "A" Then tablo(i, 1) = "A" & x
    Next
    .Value = tablo 'restitution
End With
End Sub

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Peter DOE,
Si ce n'est que pour l'affichage, sélectionnez la colonne I et faites Format de cellule Personnalisée et "A"@
Par contre le contenu de la cellule qui affiche ATLFI3616461 sera évidemment toujours TLFI3616461.
( PJ feuille 1 )
Si vous voulez changer la valeur des cellules, sélectionnez la colonne I et faites remplacer A par AT en supposant qu'il n'y a qu'un seul T dans les libellés. ( et modifiez I19 :) )
( PJ feuille 2 )
 

Pièces jointes

  • EXTRACTIONS YUNAS YLUS.xlsx
    336.2 KB · Affichages: 5

job75

XLDnaute Barbatruc
On peut aussi exécuter cette macro qui fonctionne quels que soient les textes en colonne I :
VB:
Sub A()
Dim tablo, i&, x$
With Range("I19", Range("I" & Rows.Count).End(xlUp))
    If .Row < 19 Or .Count = 1 Then Exit Sub
    tablo = .Value
    For i = 2 To UBound(tablo)
        x = UCase(tablo(i, 1))
        If x <> "" Then If Left(x, 1) <> "A" Then tablo(i, 1) = "A" & x
    Next
    .Value = tablo 'restitution
End With
End Sub
 

jurassic pork

XLDnaute Occasionnel
En VBA en une seule instruction :
VB:
Sub Remplacement()
    Worksheets(1).Columns("I").Replace _
    What:="TLF", Replacement:="ATLF", _
    SearchOrder:=xlByColumns, MatchCase:=True
End Sub
C'est un peu dangereux car il ne faut pas l'exécuter plusieurs fois
Ami calmant, J.P
 
Dernière édition:

Discussions similaires

  • Résolu(e)
Microsoft 365 Formule
Réponses
9
Affichages
306

Statistiques des forums

Discussions
314 770
Messages
2 112 745
Membres
111 652
dernier inscrit
Joel Bakuka