éviter les doublons(dates)

julie999

XLDnaute Occasionnel
bonjour
j'ai une macro qui me recopient les données dans ce tableau
quelle solution y a t il pour éviter les doublons par rapport a la date

en faite avant de copier les données interroger si il y a déjà des données a la date du 15 déc si oui écraser les anciennes données pour accepter les nouvelles sinon se rendre a la première cellule vide de la colonne A pour copier les données

voici le code que j'utilise pour le moment
Sub Macro1()
'
' Macro1 Macro
' Reporting
'

'

Sheets("Réception").Select
Range("AG9:CR11").Select
Selection.Copy
Sheets("Reporting complet").Select
""trouver le code pour se rendre a la premiere celulle vide de la colonne A"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Réception").Select
Range("CT8:CW10").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Reporting palettes par jour").Select
""trouver le code pour se rendre a la premiere celulle vide de la colonne A"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A12").Select
Sheets("MENU").Select
End Sub

Julie
 

Pièces jointes

  • Classeur1test.xlsx
    24.5 KB · Affichages: 34
  • Classeur1test.xlsx
    24.5 KB · Affichages: 39
  • Classeur1test.xlsx
    24.5 KB · Affichages: 38

Discussions similaires

Réponses
2
Affichages
183
Réponses
5
Affichages
212

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 845
Messages
2 092 770
Membres
105 529
dernier inscrit
StarExcel