Discussion :

[olodin]

Bonjour à tous ,
j'ai un petit probleme, en fait j'ai 2 feuilles excel (n°1,n°2), j'importe grace à une macro une plage de cellules de la n°1 vers la n°2, mai en fait je n'arrive pas à les importer sans ecraser les cellules deja enregistrer par la macro (autoexe) et encore moins à n'inporter que cette qui ne sont pas deja dans ma feuille n°2.(pour moi c'est à ce casser les dents )
si vous avez une solution faite le moi savoir.
merci

[flear]

pour ta 2 eme question c juste une histoire de doublon tu les copie et apres tu verifie si il y a des doubles et tu les supprimes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Suppression_des_doublons()
 
 
 
 
Dim Plage As Range, Cel As Range
   Dim Col As New Collection, ASupprimer As Range
 
   With ActiveSheet
        Set Plage = .Range("B2", .Range("B2").End(xlDown))
   End With
 
    For Each Cel In Plage
        On Error Resume Next
        Col.Add Cel, "_" & Cel
        If Err.Number <> 0 Then
           If ASupprimer Is Nothing Then Set ASupprimer = Cel Else _
               Set ASupprimer = Union(ASupprimer, Cel)
        End If
    Next Cel
 
    If Not ASupprimer Is Nothing Then ASupprimer.EntireRow.Delete
 
End Sub

enfin je pense que ca peut t aide mais pour ta 1 er question il faut juste dire a ta macro de copier a la fin de ton fichier?(enfin si j ai bien compris...)