thomlau
XLDnaute Occasionnel
Bonsoir le Forum.
Dans le projet sur lequel je travaille actuelement, par macro "xxx" feuilles sont créées selon un critère.
Je voudrais, si celà est possible, que pour chaque feuille créée, ce code soit adapté ou collé
Merci pour votre aide
Dans le projet sur lequel je travaille actuelement, par macro "xxx" feuilles sont créées selon un critère.
Je voudrais, si celà est possible, que pour chaque feuille créée, ce code soit adapté ou collé
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim navig
If Not Application.Intersect(Target, Range("C30")) Is Nothing Then
Sheets("Feuil1").Range("AA1").Value = Range("C30").Value
navig = Sheets("Feuil1").Range("AA1").Value
Worksheets(navig).Select
End If
End Sub