Bonjour,
qu'entends tu par effacer mais pas supprimer ?
- la ligne en question doit être vide ?
- la ligne en question n'apparaît pas, comme avec un filtre ?
- une simple mise en couleur suffirait elle ?
La macro est elle nécessaire ?
Michel
"Tibert" a écrit dans le message de news:
Bonjour à tous ;
Pourrais ton me proposer une macro pour effacer les lignes en doublons
sur une plage de (A5 :E50) avec comme critère la colonne (B) à partir
de (B5)
Je tiens à effacer les lignes mais pas les supprimer.
Merci à vous et bonne journée.
Bonjour,
qu'entends tu par effacer mais pas supprimer ?
- la ligne en question doit être vide ?
- la ligne en question n'apparaît pas, comme avec un filtre ?
- une simple mise en couleur suffirait elle ?
La macro est elle nécessaire ?
Michel
"Tibert" <syle...@gmail.com> a écrit dans le message de news:
2878ff46-ec33-4da0-9d9b-a07d0493c...@y16g2000yqh.googlegroups.com...
Bonjour à tous ;
Pourrais ton me proposer une macro pour effacer les lignes en doublons
sur une plage de (A5 :E50) avec comme critère la colonne (B) à partir
de (B5)
Je tiens à effacer les lignes mais pas les supprimer.
Merci à vous et bonne journée.
Bonjour,
qu'entends tu par effacer mais pas supprimer ?
- la ligne en question doit être vide ?
- la ligne en question n'apparaît pas, comme avec un filtre ?
- une simple mise en couleur suffirait elle ?
La macro est elle nécessaire ?
Michel
"Tibert" a écrit dans le message de news:
Bonjour à tous ;
Pourrais ton me proposer une macro pour effacer les lignes en doublons
sur une plage de (A5 :E50) avec comme critère la colonne (B) à partir
de (B5)
Je tiens à effacer les lignes mais pas les supprimer.
Merci à vous et bonne journée.
Bonjour à tous ;
Pourrais ton me proposer une macro pour effacer les lignes en doublons
sur une plage de (A5 :E50) avec comme critère la colonne (B) à partir
de (B5)
Je tiens à effacer les lignes mais pas les supprimer.
Merci à vous et bonne journée.
Bonjour à tous ;
Pourrais ton me proposer une macro pour effacer les lignes en doublons
sur une plage de (A5 :E50) avec comme critère la colonne (B) à partir
de (B5)
Je tiens à effacer les lignes mais pas les supprimer.
Merci à vous et bonne journée.
Bonjour à tous ;
Pourrais ton me proposer une macro pour effacer les lignes en doublons
sur une plage de (A5 :E50) avec comme critère la colonne (B) à partir
de (B5)
Je tiens à effacer les lignes mais pas les supprimer.
Merci à vous et bonne journée.
Bonjour,
Une façon de faire en se basant sur la présence ou non des doublons e n colonne B
'----------------------------------------
Sub test()
Dim R As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
With Worksheets("Feuil1") 'Nom feuille à adapter
With Range("A4:E50")
With .Columns(2)
.AdvancedFilter Action:=xlFilterInPlace, Unique :=True
End With
For Each R In .Rows
If R.EntireRow.Hidden = True Then R.Cells.Clear Contents
Next
End With
On Error Resume Next
.ShowAllData
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'----------------------------------------
MichD
--------------------------------------------
"Tibert" a écrit dans le message de groupe de discussion :
Bonjour à tous ;
Pourrais ton me proposer une macro pour effacer les lignes en doublons
sur une plage de (A5 :E50) avec comme critère la colonne (B) à partir
de (B5)
Je tiens à effacer les lignes mais pas les supprimer.
Merci à vous et bonne journée.
Bonjour,
Une façon de faire en se basant sur la présence ou non des doublons e n colonne B
'----------------------------------------
Sub test()
Dim R As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
With Worksheets("Feuil1") 'Nom feuille à adapter
With Range("A4:E50")
With .Columns(2)
.AdvancedFilter Action:=xlFilterInPlace, Unique :=True
End With
For Each R In .Rows
If R.EntireRow.Hidden = True Then R.Cells.Clear Contents
Next
End With
On Error Resume Next
.ShowAllData
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'----------------------------------------
MichD
--------------------------------------------
"Tibert" a écrit dans le message de groupe de discussion :
2878ff46-ec33-4da0-9d9b-a07d0493c...@y16g2000yqh.googlegroups.com...
Bonjour à tous ;
Pourrais ton me proposer une macro pour effacer les lignes en doublons
sur une plage de (A5 :E50) avec comme critère la colonne (B) à partir
de (B5)
Je tiens à effacer les lignes mais pas les supprimer.
Merci à vous et bonne journée.
Bonjour,
Une façon de faire en se basant sur la présence ou non des doublons e n colonne B
'----------------------------------------
Sub test()
Dim R As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
With Worksheets("Feuil1") 'Nom feuille à adapter
With Range("A4:E50")
With .Columns(2)
.AdvancedFilter Action:=xlFilterInPlace, Unique :=True
End With
For Each R In .Rows
If R.EntireRow.Hidden = True Then R.Cells.Clear Contents
Next
End With
On Error Resume Next
.ShowAllData
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'----------------------------------------
MichD
--------------------------------------------
"Tibert" a écrit dans le message de groupe de discussion :
Bonjour à tous ;
Pourrais ton me proposer une macro pour effacer les lignes en doublons
sur une plage de (A5 :E50) avec comme critère la colonne (B) à partir
de (B5)
Je tiens à effacer les lignes mais pas les supprimer.
Merci à vous et bonne journée.
Bonjour,
Une façon de faire en se basant sur la présence ou non des doublons en colonne B
'----------------------------------------
Sub test()
Dim R As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
With Worksheets("Feuil1") 'Nom feuille à adapter
With Range("A4:E50")
With .Columns(2)
.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End With
For Each R In .Rows
If R.EntireRow.Hidden = True Then R.Cells.ClearContents
Next
End With
On Error Resume Next
.ShowAllData
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'----------------------------------------
MichD
--------------------------------------------
"Tibert" a écrit dans le message de groupe de discussion :
Bonjour à tous ;
Pourrais ton me proposer une macro pour effacer les lignes en doublons
sur une plage de (A5 :E50) avec comme critère la colonne (B) à partir
de (B5)
Je tiens à effacer les lignes mais pas les supprimer.
Merci à vous et bonne journée.
Bonjour,
Une façon de faire en se basant sur la présence ou non des doublons en colonne B
'----------------------------------------
Sub test()
Dim R As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
With Worksheets("Feuil1") 'Nom feuille à adapter
With Range("A4:E50")
With .Columns(2)
.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End With
For Each R In .Rows
If R.EntireRow.Hidden = True Then R.Cells.ClearContents
Next
End With
On Error Resume Next
.ShowAllData
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'----------------------------------------
MichD
--------------------------------------------
"Tibert" a écrit dans le message de groupe de discussion :
2878ff46-ec33-4da0-9d9b-a07d0493c...@y16g2000yqh.googlegroups.com...
Bonjour à tous ;
Pourrais ton me proposer une macro pour effacer les lignes en doublons
sur une plage de (A5 :E50) avec comme critère la colonne (B) à partir
de (B5)
Je tiens à effacer les lignes mais pas les supprimer.
Merci à vous et bonne journée.
Bonjour,
Une façon de faire en se basant sur la présence ou non des doublons en colonne B
'----------------------------------------
Sub test()
Dim R As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
With Worksheets("Feuil1") 'Nom feuille à adapter
With Range("A4:E50")
With .Columns(2)
.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End With
For Each R In .Rows
If R.EntireRow.Hidden = True Then R.Cells.ClearContents
Next
End With
On Error Resume Next
.ShowAllData
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'----------------------------------------
MichD
--------------------------------------------
"Tibert" a écrit dans le message de groupe de discussion :
Bonjour à tous ;
Pourrais ton me proposer une macro pour effacer les lignes en doublons
sur une plage de (A5 :E50) avec comme critère la colonne (B) à partir
de (B5)
Je tiens à effacer les lignes mais pas les supprimer.
Merci à vous et bonne journée.
N.B. À La première version de la macro, il manque un point
devant l'expression Range("A4:E50") dans With .Range("A4:E50")
| Peut on avoir la même macro sans passer par un nom de feuille,
| utiliser feuille active
'----------------------------------------
Sub test()
Dim R As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
With .Range("A4:E50")
With .Columns(2)
.AdvancedFilter Action:=xlFilterInPlace, Unique :=True
End With
For Each R In .Rows
If R.EntireRow.Hidden = True Then R.Cells.Clear Contents
Next
End With
On Error Resume Next
.ShowAllData
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'----------------------------------------
MichD
--------------------------------------------
"Tibert" a écrit dans le message de groupe de discussion :
Bonjour "MichD"
Peut on avoir la même macro sans passer par un nom de feuille,
utiliser feuille active
merci
On 12 août, 12:05, "MichD" wrote:
> Bonjour,
> Une façon de faire en se basant sur la présence ou non des doublons en colonne B
> '----------------------------------------
> Sub test()
> Dim R As Range
> Application.EnableEvents = False
> Application.ScreenUpdating = False
> With Worksheets("Feuil1") 'Nom feuille à adapter
> With Range("A4:E50")
> With .Columns(2)
> .AdvancedFilter Action:=xlFilterInPlace, Uniq ue:=True
> End With
> For Each R In .Rows
> If R.EntireRow.Hidden = True Then R.Cells.Cle arContents
> Next
> End With
> On Error Resume Next
> .ShowAllData
> End With
> Application.EnableEvents = True
> Application.ScreenUpdating = True
> End Sub
> '----------------------------------------
> MichD
> --------------------------------------------
> "Tibert" a écrit dans le message de groupe de discussion :
>
> Bonjour à tous ;
> Pourrais ton me proposer une macro pour effacer les lignes en doublons
> sur une plage de (A5 :E50) avec comme critère la colonne (B) à part ir
> de (B5)
> Je tiens à effacer les lignes mais pas les supprimer.
> Merci à vous et bonne journée.
N.B. À La première version de la macro, il manque un point
devant l'expression Range("A4:E50") dans With .Range("A4:E50")
| Peut on avoir la même macro sans passer par un nom de feuille,
| utiliser feuille active
'----------------------------------------
Sub test()
Dim R As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
With .Range("A4:E50")
With .Columns(2)
.AdvancedFilter Action:=xlFilterInPlace, Unique :=True
End With
For Each R In .Rows
If R.EntireRow.Hidden = True Then R.Cells.Clear Contents
Next
End With
On Error Resume Next
.ShowAllData
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'----------------------------------------
MichD
--------------------------------------------
"Tibert" a écrit dans le message de groupe de discussion :
521d10fd-96c0-437b-96cc-59fe7f889...@z7g2000vbp.googlegroups.com...
Bonjour "MichD"
Peut on avoir la même macro sans passer par un nom de feuille,
utiliser feuille active
merci
On 12 août, 12:05, "MichD" <michde...@hotmail.com> wrote:
> Bonjour,
> Une façon de faire en se basant sur la présence ou non des doublons en colonne B
> '----------------------------------------
> Sub test()
> Dim R As Range
> Application.EnableEvents = False
> Application.ScreenUpdating = False
> With Worksheets("Feuil1") 'Nom feuille à adapter
> With Range("A4:E50")
> With .Columns(2)
> .AdvancedFilter Action:=xlFilterInPlace, Uniq ue:=True
> End With
> For Each R In .Rows
> If R.EntireRow.Hidden = True Then R.Cells.Cle arContents
> Next
> End With
> On Error Resume Next
> .ShowAllData
> End With
> Application.EnableEvents = True
> Application.ScreenUpdating = True
> End Sub
> '----------------------------------------
> MichD
> --------------------------------------------
> "Tibert" a écrit dans le message de groupe de discussion :
> 2878ff46-ec33-4da0-9d9b-a07d0493c...@y16g2000yqh.googlegroups.com...
> Bonjour à tous ;
> Pourrais ton me proposer une macro pour effacer les lignes en doublons
> sur une plage de (A5 :E50) avec comme critère la colonne (B) à part ir
> de (B5)
> Je tiens à effacer les lignes mais pas les supprimer.
> Merci à vous et bonne journée.
N.B. À La première version de la macro, il manque un point
devant l'expression Range("A4:E50") dans With .Range("A4:E50")
| Peut on avoir la même macro sans passer par un nom de feuille,
| utiliser feuille active
'----------------------------------------
Sub test()
Dim R As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
With .Range("A4:E50")
With .Columns(2)
.AdvancedFilter Action:=xlFilterInPlace, Unique :=True
End With
For Each R In .Rows
If R.EntireRow.Hidden = True Then R.Cells.Clear Contents
Next
End With
On Error Resume Next
.ShowAllData
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'----------------------------------------
MichD
--------------------------------------------
"Tibert" a écrit dans le message de groupe de discussion :
Bonjour "MichD"
Peut on avoir la même macro sans passer par un nom de feuille,
utiliser feuille active
merci
On 12 août, 12:05, "MichD" wrote:
> Bonjour,
> Une façon de faire en se basant sur la présence ou non des doublons en colonne B
> '----------------------------------------
> Sub test()
> Dim R As Range
> Application.EnableEvents = False
> Application.ScreenUpdating = False
> With Worksheets("Feuil1") 'Nom feuille à adapter
> With Range("A4:E50")
> With .Columns(2)
> .AdvancedFilter Action:=xlFilterInPlace, Uniq ue:=True
> End With
> For Each R In .Rows
> If R.EntireRow.Hidden = True Then R.Cells.Cle arContents
> Next
> End With
> On Error Resume Next
> .ShowAllData
> End With
> Application.EnableEvents = True
> Application.ScreenUpdating = True
> End Sub
> '----------------------------------------
> MichD
> --------------------------------------------
> "Tibert" a écrit dans le message de groupe de discussion :
>
> Bonjour à tous ;
> Pourrais ton me proposer une macro pour effacer les lignes en doublons
> sur une plage de (A5 :E50) avec comme critère la colonne (B) à part ir
> de (B5)
> Je tiens à effacer les lignes mais pas les supprimer.
> Merci à vous et bonne journée.