1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Sub ColonneEnLettre97()
Dim Adresse As String, separateur, LetCol As String, NoLigne As Long
separateur = "$"
Adresse = Cells(15, 57).Address
LetCol = Spliit(Adresse, separateur)(1)
MsgBox LetCol
End Sub
Function Spliit(Adresse, separateur)
Dim Tableau(), Phrase, i As Byte, j As Byte
Phrase = Adresse
i = 1
j = 0
Do While i < Len(Phrase)
If Mid(Phrase, i, 1) = separateur Then
ReDim Preserve Tableau(j)
Tableau(j) = Left(Phrase, InStr(Phrase, separateur) - 1)
Phrase = Right(Phrase, Len(Phrase) - InStr(Phrase, separateur))
j = j + 1
i = 0
End If
i = i + 1
Loop
ReDim Preserve Tableau(j)
Tableau(j) = Phrase
Spliit = Tableau
End Function |
Partager