Copier des données d'une feuille sur une autre feuille

[gege21]

bonjours a tous

je voudrai copie les données d'une feuille (données_base)
sur sur la feuille (données) a la suite des ancienne donnée et de supprimer les lignes en
doublons si il yen a. tout sa en vba

voici le lien pour les données

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[néné06]

Re : Copier des données d'une feuille sur une autre feuille

Bonsoir Gégé 21

Regardes ce petit programme qui t'expliqueras comme copier deux feuilles l'une à la suite de l'autre.
Pour les doublons nous verrons après.

Cordialement

 

[gege21]

Re : Copier des données d'une feuille sur une autre feuille

bonjour néné06

pour mon cas sa ressemble plus a sa (copie des données feuille 2 a la suite de la feuille 1)
Regarde la pièce jointe Classeur11.zip

maintenant il supprimer les ligne en doublon
et le tout doit être en ordre chronologique

 

[néné06]

Re : Copier des données d'une feuille sur une autre feuille

Avec la pièce jointe, tu as donc la feuil2 placée après la feuil1:
Tri du total feuil1 par dates et heures.
Pas de doublons repérés.

Dis moi quel colonne risque d'avoir des doublons?

A+

 

[gege21]

Re : Copier des données d'une feuille sur une autre feuille

se sont les ligne qui risque d'être en doublons

 

[néné06]

Re : Copier des données d'une feuille sur une autre feuille

Tu veux dire la même Date et Heure, soit la colonne 3 ?

 

[néné06]

Re : Copier des données d'une feuille sur une autre feuille

Peut etre deux lignes identiques ?

 

[gege21]

Re : Copier des données d'une feuille sur une autre feuille

oui deux lignes identiques

 

[néné06]

Re : Copier des données d'une feuille sur une autre feuille

J'ai remarqué que dans la feuil2, il y a une colonne de plus que dans la feuil1, donc aucune ligne ne sera identique?

 

[gege21]

Re : Copier des données d'une feuille sur une autre feuille

non non c'est moi qui me suis trompe d'une colonne dans l'exemple
je confire qu'il y a le meme nombres de colonne sur les deux feuilles

 

[néné06]

Re : Copier des données d'une feuille sur une autre feuille

Essayes un peu ce code.
Il est possible de l'améliorer,mais je suis fatigué de ma journée de travail.

A+

 

[gege21]

Re : Copier des données d'une feuille sur une autre feuille

je teste sa et a plus tard peut être
merci

 

[gege21]

Re : Copier des données d'une feuille sur une autre feuille

le code marche très bien
mais ont voie tout clignote se qui n'est pas esthétique
il vaudrai que tout se face en "invisible"
si quelqu'un pouvais m'aide

Sub Bouton2_Cliquer()
    Sheets("Feuil2").Select
    Dim X As Range
        Set X = Range(Cells(1, 1), Cells(65535, 1)).Find("", , xlValues, xlWhole, , , False) 'recherche premiere ligne vide
        deb = 0
            If Not X Is Nothing Then
                deb = (X.Row) 'deb= num ligne vide
            End If
    Range("A1").Select
    Range(Cells(1, 1), Cells(deb - 1, 50)).Select ' nombre de colonne
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil1").Select
    Set X = Range(Cells(1, 1), Cells(65535, 1)).Find("", , xlValues, xlWhole, , , False)
    i = X.Row
    Range("A1").Select
    ActiveCell.Offset(i - 1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Cells.Select
    Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A1").Select
    i = 0
        Do Until ActiveCell.Offset(i, 0).Value = ""
            i = i + 1
            p = 0
            For j = 1 To 26 'nombres de colonne traite
                If ActiveCell.Offset(i, j).Value = ActiveCell.Offset(i - 1, j).Value Then
                    p = p + 1
                End If
                If p = 26 Then
                    Rows(i).Delete
                    i = i - 1
                End If
            Next j
        Loop
End Sub

 

[néné06]

Re : Copier des données d'une feuille sur une autre feuille

en plaçant au début

Application.ScreenUpdating = False

à la fin
Application.ScreenUpdating = True

A+

 

[gege21]

Re : Copier des données d'une feuille sur une autre feuille

merci néné06

mais
Application.ScreenUpdating = False
Application.ScreenUpdating = True
et juste un masque
et cela marche moyen je c qu'il y a moyen en changent quelque ligne sur c code
mais je c pas les quelles😕