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