XL 2010 Création onglet et recopie automatique données

[FCMLE44]

Dans le fichier DSN ESSAI en pièce jointe, j'ai une feuille nommée DSN sur lequel je recopie régulièrement des données

En lançant la macro ci-dessous

Sub Balaye()
    Dim NoDupes As New Collection
    Application.ScreenUpdating = False
    A = Range([C2], [A65536].End(xlUp)).Value
    On Error Resume Next
    ' Boucle pour récupérer la collection d'items uniques
    For j = 1 To UBound(A, 1)
        NoDupes.Add A(j, 1), CStr(A(j, 1))
    Next j
    ' Réactivation du gestionnaire d'erreurs
    On Error GoTo 0
    Range("A1").CurrentRegion.Select
    With Selection.CurrentRegion
        Intersect(.Cells, .Offset(1)).Select
    End With
    B = Selection.Value
    NbCol = Selection.Columns.Count
    [A1].Select
    ReDim Tableau(1 To UBound(B), 1 To NbCol)
    For k = 1 To UBound(B, 1)
        For Z = 1 To NbCol
            Tableau(k, Z) = B(k, Z)
        Next Z
    Next k
    H = 1
    For i = 1 To NoDupes.Count
        Sheets.Add after:=Sheets(i)
        ActiveSheet.Name = NoDupes(i)
        For x = 1 To UBound(A, 1)
            If Tableau(x, 1) = NoDupes(i) Then
                For w = 1 To NbCol
                    Cells(H + 1, w).Value = Tableau(x, w)
                Next w
                H = H + 1
            Else
            End If
        Next x
        H = 1
    Next i
    Sheets("DSN").Activate
    NbSheet = ActiveWorkbook.Sheets.Count
    Range([A1], [IV1].End(xlToLeft)).Select
    Set MaPlage = Selection
    [A1].Select
    For NS = 2 To NbSheet
        Set Destination = ActiveWorkbook.Sheets(NS).Range("A1")
        MaPlage.Copy Destination
    Next NS
End Sub

Il me crée bien les onglets et les données

Mais lorsque je mets de nouvelles données dans la feuille DSN et que je relance cette macro il bloque car les onglets sont déja créés

Avez vous une idée comment je pourrais faire ?

Merci beaucoup

Cordialement

 

[pierrejean]

Bonjour FCMLE

A tester:

 

[FCMLE44]

Merci

Cela ne mets pas à jour les onglets quand je rajoute des données dans la feuille DSN

 

[pierrejean]

Re
OK je vois ceci demain

 

[FCMLE44]

Merci.

Cordialement

 

[pierrejean]

Re

Vois si cela convient
NB:la macro Balaye1 est dans le module1

 

[FCMLE44]

Bonjour et merci

Lorsque les onglets se crée, les données en colonne A2 CODE SIRET feuille DSN je les retrouve en b2 sur l'onglet créé

Cordialement

 

[pierrejean]

Re
Toutes mes excuses
Vois si c'est mieux

 

[FCMLE44]

Merci

Si je remets à jour des données dans la feuille DSN et si je relance la macro elle ne met pas à jour l'onglet concerné

 

[FCMLE44]

Lorsque je rajoute des données dans la feuille DSN et que je relance la macro elle ne met pas à jour l'onglet concerné

 

[pierrejean]

Re
Peux-tu donner un exemple ???

 

[FCMLE44]

Bonjour

Désolé j'étais en congés.
Voici l'exemple dans le fichier

Merci beaucoup

 

[pierrejean]

Re
Je ne vois toujours pas le problème
Tu lances bien la macro balaye1 ??

 

[FCMLE44]

Désolé
Ca fonctionne. J'ai dû faire une mauvaise manipulation.
Merci

Je vais d'autres posts à présent pour compléter mon projet. Peut être à plus tard

Cordialement