1) Placer le code suivant dans un module :
'Fonction qui renvoie la lettre à partir du numéro d'une colonne
Public Function lettre_colonne(colonne As Integer)
lettre_colonne = Split(Cells(1, colonne).Address, "$")(1)
End Function
2) Puis faire appel à cette fonction dans une procédure quelconque :
Recup = lettre_colonne(5) 'renvoie la lettre E
Aucun commentaire:
Enregistrer un commentaire