création automatique de feuille aprés génération de références

laird40 · 11 Février 2009

Help!! 🙁

Je suis nul en XL et encore plus en VB.

L'idée est de générer une référence par ligne dans une feuille XL a partir des infos qui sont sur la même ligne.
J'y arrive avec la fonction "CONCATENER", là aucun pb.

Maintenant, je souhaiterais que par l'opération du St Esprit, et c'est la que je vous sollicite,
-qu' automatiquement, lorsque une cellule contient une référence, cela déclenche une macro ou autre chose et génère une nouvelle feuille dans ce classeur, ayant pour nom cette même référence.

-Qu'il n'a y ait pas possibilité de redondance (sinon 2 feuilles peuvent avoir le même nom et la VB ne va pas aimer)

- enfin, qu' automatiquement une fois encore, une copie de la ligne concernée va se copier dans la nouvelle feuille ainsi créée.

comment faire? Please help....

jp14 · 11 Février 2009

Re : création automatique de feuille aprés génération de références

Bonjour

Ci dessous la macro qui répond au problème posé.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim data1 As String
Dim cellule As Range

If Target.Count > 1 Then Exit Sub

    If Not Intersect(Target, Range("a2:a2")) Is Nothing Then
    Dim Sh As Worksheet
Dim i As Byte


i = 0
For Each Sh In Worksheets
    If Sh.Name = Sheets("Feuil1").Range("a2") Then
        i = 1
        Exit For
    End If
Next Sh
If i = 0 Then
' creer une feuille
ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sheets("Feuil1").Range("a2")

Sheets("Feuil1").Rows(1).Copy _
     Destination:=Sheets(Sheets("Feuil1").Range("a2").Value).Rows(1)
    
End If


End If
End Sub

A tester

JP

création automatique de feuille aprés génération de références

laird40

XLDnaute Nouveau

jp14

XLDnaute Barbatruc

Discussions similaires

création automatique de feuille aprés génération de références

laird40

XLDnaute Nouveau

jp14

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency