Modification de chiffres en masse sur tableau
karim_maroc
-
karim_b -
karim_b -
Bonjour,
j'ai un tableau excel où il y a dans chaque colonne matricule + nom + prenom,
je voudrais ajouter une extension à mes matricules,exemple:ancien matricule 1212 nouveau matricule 001212s
ma question est la suivante : est ce qu'il y a une manip. pour faire ajouter cette " extension = 00****s" sans me taper 1600 lignes :s, et si je me trouve face à un matricule à 1,2 ou 3 caractères comment faire pour ajouter des "0 = zéro" pour combler les espaces vides. exemple ancien matricule 9 nouveau matricule 000009s ou 19 et passer à 00019s ou 119 et passer à 000119s.
Merci beaucoup pour votre réactivité :)
Karim
j'ai un tableau excel où il y a dans chaque colonne matricule + nom + prenom,
je voudrais ajouter une extension à mes matricules,exemple:ancien matricule 1212 nouveau matricule 001212s
ma question est la suivante : est ce qu'il y a une manip. pour faire ajouter cette " extension = 00****s" sans me taper 1600 lignes :s, et si je me trouve face à un matricule à 1,2 ou 3 caractères comment faire pour ajouter des "0 = zéro" pour combler les espaces vides. exemple ancien matricule 9 nouveau matricule 000009s ou 19 et passer à 00019s ou 119 et passer à 000119s.
Merci beaucoup pour votre réactivité :)
Karim
A voir également:
- Modification de chiffres en masse sur tableau
- Tableau word - Guide
- Renommer des fichiers en masse - Guide
- Suivi de modification word - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
4 réponses
Bonjour,
en B1 entrer cette formule:
=SI(NBCAR(A1)=1;"00000"&A1&"s";SI(NBCAR(A1)=2;"0000"&A1&"s";SI(NBCAR(A1)=3;"000"&A1&"s";SI(NBCAR(A1)=4;"00"&A1&"s"))))
A+
en B1 entrer cette formule:
=SI(NBCAR(A1)=1;"00000"&A1&"s";SI(NBCAR(A1)=2;"0000"&A1&"s";SI(NBCAR(A1)=3;"000"&A1&"s";SI(NBCAR(A1)=4;"00"&A1&"s"))))
A+
voila la macro:
nota: j'ai supposé que la ligne comporter l'étiquette "matricule"
par formule: tout simplement
=TEXTE(A2;"000000")&"s"
mais il faut trouver une colonne libre et ensuite faire couper-coller sur la colonne A avec tes 1600 lignes
Option Base 1
Sub matricule_s()
Dim derlig As Integer, cptr As Integer
Dim tablo
derlig = Range("A65536").End(xlUp).Row
ReDim tablo(derlig - 1)
For cptr = 2 To derlig
tablo(cptr - 1) = Format(Cells(cptr, 1), "000000s")
Next
Application.ScreenUpdating = False
Range("A2").Resize(UBound(tablo), 1) = tablo
End Sub
nota: j'ai supposé que la ligne comporter l'étiquette "matricule"
par formule: tout simplement
=TEXTE(A2;"000000")&"s"
mais il faut trouver une colonne libre et ensuite faire couper-coller sur la colonne A avec tes 1600 lignes
