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

  • Initiateur de la discussion Initiateur de la discussion FCMLE44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

FCMLE44

XLDnaute Impliqué
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

VB:
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
233
Réponses
8
Affichages
466
Réponses
3
Affichages
193
Réponses
10
Affichages
281
Réponses
7
Affichages
280
Réponses
3
Affichages
665
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Retour