Discussion :

[Gremlins49]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mach1974]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[78chris]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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