Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Microsoft 365rajout lettre alphanumerique dans colonne excel
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 !
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
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 )
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
- 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