Bonjour,
J'utilise la Macro ci-bas afin d'effacer de doublons, celle-ci
fonctionne très bien, mais est il possible de la modifier de facon
à pouvoir identifier l'enregistrement(s) effacés(doubles)
comment mettre un code dans une colonne à coté ?
Sub effacerdoublons()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("TEMP").Delete
Sheets.Add.Name = "TEMP"
With Sheets("mafeuille")
.[i:I].AdvancedFilter Action:=xlFilterInPlace, Unique:=True
.[A:ad].SpecialCells(xlCellTypeVisible).Copy (Sheets("TEMP").[A1])
.ShowAllData
.[A:ad] = (Range("TEMP!A:ad"))
End With
Sheets("TEMP").Delete
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
...patrick
pourquoi ne pas les visualiser avant par un format conditionnel si les data sont ds la colonne A en A2: =nb.si($A$2:$A$100;A2) > 1 mettre une couleur de fond et recopier ce formet sur les cellules de la colonne A ,tu auras alors les doublons en couleur pour les repérer facilement
Patrick
"Dante Huapaya" a écrit dans le message de news:
Bonjour, J'utilise la Macro ci-bas afin d'effacer de doublons, celle-ci fonctionne très bien, mais est il possible de la modifier de facon à pouvoir identifier l'enregistrement(s) effacés(doubles) comment mettre un code dans une colonne à coté ? Sub effacerdoublons() On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("TEMP").Delete Sheets.Add.Name = "TEMP" With Sheets("mafeuille") .[i:I].AdvancedFilter Action:=xlFilterInPlace, Unique:=True .[A:ad].SpecialCells(xlCellTypeVisible).Copy (Sheets("TEMP").[A1]) .ShowAllData .[A:ad] = (Range("TEMP!A:ad")) End With Sheets("TEMP").Delete End Sub
Merci de votre attention
Dante Huapaya
pourquoi ne pas les visualiser avant par un format conditionnel
si les data sont ds la colonne A
en A2: =nb.si($A$2:$A$100;A2) > 1 mettre une couleur de fond
et recopier ce formet sur les cellules de la colonne A ,tu auras alors les
doublons en couleur pour les repérer facilement
Patrick
"Dante Huapaya" <DanteHuapaya@discussions.microsoft.com> a écrit dans le
message de news:219CAB47-CB28-4B81-B4E4-C24B9941D879@microsoft.com...
Bonjour,
J'utilise la Macro ci-bas afin d'effacer de doublons, celle-ci
fonctionne très bien, mais est il possible de la modifier de facon
à pouvoir identifier l'enregistrement(s) effacés(doubles)
comment mettre un code dans une colonne à coté ?
Sub effacerdoublons()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("TEMP").Delete
Sheets.Add.Name = "TEMP"
With Sheets("mafeuille")
.[i:I].AdvancedFilter Action:=xlFilterInPlace, Unique:=True
.[A:ad].SpecialCells(xlCellTypeVisible).Copy (Sheets("TEMP").[A1])
.ShowAllData
.[A:ad] = (Range("TEMP!A:ad"))
End With
Sheets("TEMP").Delete
End Sub
pourquoi ne pas les visualiser avant par un format conditionnel si les data sont ds la colonne A en A2: =nb.si($A$2:$A$100;A2) > 1 mettre une couleur de fond et recopier ce formet sur les cellules de la colonne A ,tu auras alors les doublons en couleur pour les repérer facilement
Patrick
"Dante Huapaya" a écrit dans le message de news:
Bonjour, J'utilise la Macro ci-bas afin d'effacer de doublons, celle-ci fonctionne très bien, mais est il possible de la modifier de facon à pouvoir identifier l'enregistrement(s) effacés(doubles) comment mettre un code dans une colonne à coté ? Sub effacerdoublons() On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("TEMP").Delete Sheets.Add.Name = "TEMP" With Sheets("mafeuille") .[i:I].AdvancedFilter Action:=xlFilterInPlace, Unique:=True .[A:ad].SpecialCells(xlCellTypeVisible).Copy (Sheets("TEMP").[A1]) .ShowAllData .[A:ad] = (Range("TEMP!A:ad")) End With Sheets("TEMP").Delete End Sub
Merci de votre attention
Dante Huapaya
Dante Huapaya
No, car éventuellement je besoin d'un code afin de me repérer et faire une impression conditionnelle.
pourquoi ne pas les visualiser avant par un format conditionnel si les data sont ds la colonne A en A2: =nb.si($A$2:$A$100;A2) > 1 mettre une couleur de fond et recopier ce formet sur les cellules de la colonne A ,tu auras alors les doublons en couleur pour les repérer facilement
Patrick
"Dante Huapaya" a écrit dans le message de news:
Bonjour, J'utilise la Macro ci-bas afin d'effacer de doublons, celle-ci fonctionne très bien, mais est il possible de la modifier de facon à pouvoir identifier l'enregistrement(s) effacés(doubles) comment mettre un code dans une colonne à coté ? Sub effacerdoublons() On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("TEMP").Delete Sheets.Add.Name = "TEMP" With Sheets("mafeuille") .[i:I].AdvancedFilter Action:=xlFilterInPlace, Unique:=True .[A:ad].SpecialCells(xlCellTypeVisible).Copy (Sheets("TEMP").[A1]) .ShowAllData .[A:ad] = (Range("TEMP!A:ad")) End With Sheets("TEMP").Delete End Sub
Merci de votre attention
Dante Huapaya
No, car éventuellement je besoin d'un code afin de me repérer et
faire une impression conditionnelle.
pourquoi ne pas les visualiser avant par un format conditionnel
si les data sont ds la colonne A
en A2: =nb.si($A$2:$A$100;A2) > 1 mettre une couleur de fond
et recopier ce formet sur les cellules de la colonne A ,tu auras alors les
doublons en couleur pour les repérer facilement
Patrick
"Dante Huapaya" <DanteHuapaya@discussions.microsoft.com> a écrit dans le
message de news:219CAB47-CB28-4B81-B4E4-C24B9941D879@microsoft.com...
Bonjour,
J'utilise la Macro ci-bas afin d'effacer de doublons, celle-ci
fonctionne très bien, mais est il possible de la modifier de facon
à pouvoir identifier l'enregistrement(s) effacés(doubles)
comment mettre un code dans une colonne à coté ?
Sub effacerdoublons()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("TEMP").Delete
Sheets.Add.Name = "TEMP"
With Sheets("mafeuille")
.[i:I].AdvancedFilter Action:=xlFilterInPlace, Unique:=True
.[A:ad].SpecialCells(xlCellTypeVisible).Copy (Sheets("TEMP").[A1])
.ShowAllData
.[A:ad] = (Range("TEMP!A:ad"))
End With
Sheets("TEMP").Delete
End Sub
No, car éventuellement je besoin d'un code afin de me repérer et faire une impression conditionnelle.
pourquoi ne pas les visualiser avant par un format conditionnel si les data sont ds la colonne A en A2: =nb.si($A$2:$A$100;A2) > 1 mettre une couleur de fond et recopier ce formet sur les cellules de la colonne A ,tu auras alors les doublons en couleur pour les repérer facilement
Patrick
"Dante Huapaya" a écrit dans le message de news:
Bonjour, J'utilise la Macro ci-bas afin d'effacer de doublons, celle-ci fonctionne très bien, mais est il possible de la modifier de facon à pouvoir identifier l'enregistrement(s) effacés(doubles) comment mettre un code dans une colonne à coté ? Sub effacerdoublons() On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("TEMP").Delete Sheets.Add.Name = "TEMP" With Sheets("mafeuille") .[i:I].AdvancedFilter Action:=xlFilterInPlace, Unique:=True .[A:ad].SpecialCells(xlCellTypeVisible).Copy (Sheets("TEMP").[A1]) .ShowAllData .[A:ad] = (Range("TEMP!A:ad")) End With Sheets("TEMP").Delete End Sub
