indexage numerotation

Question

voila ds la colonne a dune feuille jai des chemin dacces qui apparaissent sous la forme suivante: ---- C:\CesvaData\2005-04-12_17-13-57_000_RTA.xls, ---- C:\CesvaData\2005-04-12_17-14-28_001_RTA.xls, ---- C:\CesvaData\2005-04-12_17-14-50_002_RTA.xls, ---- C:\CesvaData\2005-04-12_17-15-16_003_RTA.xls et voila mon pb jaimerais que ds la colonne B de cette feuille on note le numéro correspondant au fichier exemple si c le fichier ds A2 ---- C:\CesvaData\2005-04-12_17-13-57_000_RTA.xls il faut qu'on aille chercher seulement les 3 chiffres 000 et kon y mette ds B2 meme principe si c des autres numéros franchement aidé moi svp c tp important pr mon stage svp merci salut

Gobillot · Answer

si la cha&#238;ne est toujours du m&#234;me format:
B2 = Mid$(A2, 13, 3)

si la fin est toujours la m&#234;me:
B2 = Mid$(A2, Len(A2) - 10, 3)

si le num&#233;ro est toujours suivi de "RTA":
B2 = Mid$(A2, InStr(A2, "RTA") - 4, 3)

Daniel

Tonin39 · Answer

ouai merci mais faut que cq soit generalisable a la colonne, c a dire ke des kil y a un fichier ds la colonne il faut kon inscrive le numero


par exemple si ya le 000,012,020,021 il faut kon est ces meme numero ds la colonne B


 


aide moi stp


merci

Tonin39 · Answer

et le caractere 13 c pas le chiffre 000 par exemple, et dsl mais ca marche pas merci de m'aider

svp aider moi

jpleroisse · Answer

Format Cellule Colonne B Personnalis&#233; 000

Sub Changer()
Dim ChangeCol, s, i As Integer, cell As Range
s = 0
Set ChangeCol = Range("A1:A100").End(xlDown)
For Each cell In ChangeCol
If cell <> "" Then
s = s + 1
End If
i = s
For i = 1 To 100
Range("A1:A100")(i).Offset(0, 1) = Mid(Range("A1:A40")(i), 34, 3)
Next i
Next
End Sub

jp leroisse

Tonin39 · Answer

merci c vraiment cool

Indexage numerotation

5 réponses

Discussions similaires