Transformer une lettre de colonne en numéro de colonne

Sub TestFeuillesSecteurs()

Dim derlign As Long
derlign = ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange. Count).Row
Dim x As Collection
Set x = New Collection
Dim y As Collection
Set y = New Collection
Dim wb As Workbook
Set wb = ThisWorkbook

COL_FEUI = InputBox("Colonne de référence pour l’insertion des feuilles : A,B, etc...")

Application.ScreenUpdating = False

For N = 2 To derlign
' pour creer le tableau des feuilles
Range(COL_FEUI & N).Select
On Error Resume Next
x.Add Range(COL_FEUI & N), CStr(Range(COL_FEUI & N))
On Error GoTo 0
Next N

ligne = 2
Application.ScreenUpdating = True

For N = 1 To x.Count

Sheets("Liste").Select
Sheets("Liste").Copy After:=Sheets(N)
ActiveSheet.Name = x(N)
' ICI BESOIN DE CHANGER LA LETTRE DE COLONNE EN CHIFFRE
Selection.AutoFilter Field:=2, Criteria1:="<>" & x(N), Operator:=xlAnd
'
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter
Next N



End Sub

Cliquez pour agrandir...

jeanpierre à dit:

Re,

Là, je ne comprends pas pourquoi changer la colonne B en 2, puisque de toutes façons VBA ne reconnait une colonne que par son numéro...

Ou alors, il y a un truc qui m'échappe.

Cliquez pour agrandir...

ninbihan à dit:

Bonjour JP, bonjour Drone,
Essaie cela:
Selection.AutoFilter Field:=range(COL_FEUI &"1").column
, Criteria1:="<>" & x(N), Operator:=xlAnd

J'ai pas testé

Bonne journée

Edit: le .row est erronné
merci tatiak !!

Cliquez pour agrandir...