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

néné06

XLDnaute Accro

• 22 Décembre 2010

• #2

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

 

Vote positif 0 Vote négatif

G

gege21

XLDnaute Occasionnel

• 22 Décembre 2010

• #3

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

 

Pièces jointes

• Classeur11.zip

  15.4 KB · Affichages: 78
• Classeur11.zip

  15.4 KB · Affichages: 79

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 22 Décembre 2010

• #4

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+

 

Vote positif 0 Vote négatif

G

gege21

XLDnaute Occasionnel

• 22 Décembre 2010

• #5

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

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

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 22 Décembre 2010

• #6

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 ?

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 22 Décembre 2010

• #7

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

Peut etre deux lignes identiques ?

 

Vote positif 0 Vote négatif

G

gege21

XLDnaute Occasionnel

• 22 Décembre 2010

• #8

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

oui deux lignes identiques

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 22 Décembre 2010

• #9

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?

 

Vote positif 0 Vote négatif

G

gege21

XLDnaute Occasionnel

• 22 Décembre 2010

• #10

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

 

Pièces jointes

• Classeur11.zip

  15.3 KB · Affichages: 55
• Classeur11.zip

  15.3 KB · Affichages: 57
• Classeur11.zip

  15.3 KB · Affichages: 52

Dernière édition: 22 Décembre 2010

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 22 Décembre 2010

• #11

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+

 

Vote positif 0 Vote négatif

G

gege21

XLDnaute Occasionnel

• 22 Décembre 2010

• #12

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

je teste sa et a plus tard peut être
merci

 

Vote positif 0 Vote négatif

G

gege21

XLDnaute Occasionnel

• 22 Décembre 2010

• #13

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

Code:

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

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 22 Décembre 2010

• #14

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+

 

Vote positif 0 Vote négatif

G

gege21

XLDnaute Occasionnel

• 22 Décembre 2010

• #15

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😕

 

Vote positif 0 Vote négatif