Re : Une fonction qui renvoie une colonne déterminée d'un tableau
Fonction un chouïa améliorée et bien écrite cette fois-ci :
Function ChxCol(tableau As Range, col As Byte) As String
'Renvoie l'adresse d'une colonne choisie dans un tableau
'- tableau : ume plage de cellules nommée ou pas
'- col : si col <> 0 ---> colonne de la plage "tableau" que l'on veut sélectionner
' si col = 0 ---> toute la plage "tableau" est sélectionnée
'Magic_Doctor
Dim nblgn As Integer, nbcol As Integer, col1 As Byte, col2 As Byte, lgn1 As Range, lgn2 As Range
Dim ad1 As String, ad2 As String
col1 = col: col2 = col
nblgn = tableau.Rows.Count
nbcol = tableau.Columns.Count
If col = 0 Then col1 = 1: col2 = nbcol
Set lgn1 = tableau.Cells(1, col1)
Set lgn2 = tableau.Cells(nblgn, col2)
ad1 = lgn1.Address()
ad2 = lgn2.Address()
ChxCol = ad1 & ":" & ad2
End Function