Fonction Range - activecell

Bonjour,

Je suis bloquée sur cette macro que j'ai récupérée sur internet. Elle correspond presque à ce que je souhaite faire ....J'ai bien tenté de la modifier moi-même mais sans succès !
J'ai donc besoin de l'aide du forum pour que la macro ne fasse pas référence à la colonne A mais à la colonne active.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Creation() Dim J As Long Dim Ws As Worksheet Application.ScreenUpdating = False Set Ws = ActiveSheet For J = 25 To Ws.Range("A" & Rows.Count).End(xlUp).Row If FeuilleExiste(Ws.Range("A" & J).Value) = False Then Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Ws.Range("A" & J) End If Next J Ws.Select End Sub

---

Merci de votre aide
Gremlins49

Bonjour,

Il faudrait essayer de remplacer le A par activecell.column
Puis prendre plutôt la forme Range(Cells(ligne, colonne) )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Creation() Dim J As Long Dim col as variant Dim Ws As Worksheet Application.ScreenUpdating = False Set Ws = ActiveSheet 'For J = 25 To Ws.Range("A" & Rows.Count).End(xlUp).Row For J = 25 To Ws.Range(activecell.Rows.Count).End(xlUp).Row 'If FeuilleExiste(Ws.Range("A" & J).Value) = False Then If FeuilleExiste(Ws.Range(cells(J,activecell.column).Value) = False Then Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Ws.Range("A" & J) End If Next J Ws.Select End Sub

---

Cordialement

Bonjour

Code:

---

J = 25 To Ws.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row

---