Bonjour à tous ;
Voilà j’ai trouvé un code pour extraire sans doublon, mais j’aurais voulu
savoir que dois-je changer dans ce code pour que dans la colonne indiquer il
me prenne à partir de la deuxième ligne, c'est-à-dire ex ci-dessous à partir
de (A2)
________________________________________
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
Dim Rg As Range
Set Rg = Intersect(Target, Columns(1))
If Not Rg Is Nothing Then
With Rg.EntireColumn
.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("R1"), Unique:=True
End With
End If
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
Daniel
Bonjour. Set Rg = Intersect(Target, Range("A2:A65536")) Cordialement. Daniel "Tibert" a écrit dans le message de news:
Bonjour à tous ; Voilà j'ai trouvé un code pour extraire sans doublon, mais j'aurais voulu savoir que dois-je changer dans ce code pour que dans la colonne indiquer il me prenne à partir de la deuxième ligne, c'est-à-dire ex ci-dessous à partir de (A2) ________________________________________ Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim Rg As Range Set Rg = Intersect(Target, Columns(1)) If Not Rg Is Nothing Then With Rg.EntireColumn .AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Range("R1"), Unique:=True End With End If End Sub
Bonjour.
Set Rg = Intersect(Target, Range("A2:A65536"))
Cordialement.
Daniel
"Tibert" <syleg35@hotmail.fr> a écrit dans le message de news:
17B1F38C-8BEE-4FB3-BFEE-68CBF22816F2@microsoft.com...
Bonjour à tous ;
Voilà j'ai trouvé un code pour extraire sans doublon, mais j'aurais voulu
savoir que dois-je changer dans ce code pour que dans la colonne indiquer
il
me prenne à partir de la deuxième ligne, c'est-à-dire ex ci-dessous à
partir
de (A2)
________________________________________
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
Dim Rg As Range
Set Rg = Intersect(Target, Columns(1))
If Not Rg Is Nothing Then
With Rg.EntireColumn
.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("R1"), Unique:=True
End With
End If
End Sub
Bonjour. Set Rg = Intersect(Target, Range("A2:A65536")) Cordialement. Daniel "Tibert" a écrit dans le message de news:
Bonjour à tous ; Voilà j'ai trouvé un code pour extraire sans doublon, mais j'aurais voulu savoir que dois-je changer dans ce code pour que dans la colonne indiquer il me prenne à partir de la deuxième ligne, c'est-à-dire ex ci-dessous à partir de (A2) ________________________________________ Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim Rg As Range Set Rg = Intersect(Target, Columns(1)) If Not Rg Is Nothing Then With Rg.EntireColumn .AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Range("R1"), Unique:=True End With End If End Sub
Tibert
Bonjour Daniel; Merci pour ta réponse, mais je ne comprend pas sa prend toujours la première ligne, ci-joint fichier Salutations http://cjoint.com/?dolyvgCdwC
Bonjour. Set Rg = Intersect(Target, Range("A2:A65536")) Cordialement. Daniel "Tibert" a écrit dans le message de news:
Bonjour à tous ; Voilà j'ai trouvé un code pour extraire sans doublon, mais j'aurais voulu savoir que dois-je changer dans ce code pour que dans la colonne indiquer il me prenne à partir de la deuxième ligne, c'est-à-dire ex ci-dessous à partir de (A2) ________________________________________ Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim Rg As Range Set Rg = Intersect(Target, Columns(1)) If Not Rg Is Nothing Then With Rg.EntireColumn .AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Range("R1"), Unique:=True End With End If End Sub
Bonjour Daniel;
Merci pour ta réponse, mais je ne comprend pas sa prend toujours la première
ligne, ci-joint fichier
Salutations
http://cjoint.com/?dolyvgCdwC
Bonjour.
Set Rg = Intersect(Target, Range("A2:A65536"))
Cordialement.
Daniel
"Tibert" <syleg35@hotmail.fr> a écrit dans le message de news:
17B1F38C-8BEE-4FB3-BFEE-68CBF22816F2@microsoft.com...
Bonjour à tous ;
Voilà j'ai trouvé un code pour extraire sans doublon, mais j'aurais voulu
savoir que dois-je changer dans ce code pour que dans la colonne indiquer
il
me prenne à partir de la deuxième ligne, c'est-à-dire ex ci-dessous à
partir
de (A2)
________________________________________
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
Dim Rg As Range
Set Rg = Intersect(Target, Columns(1))
If Not Rg Is Nothing Then
With Rg.EntireColumn
.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("R1"), Unique:=True
End With
End If
End Sub
Bonjour Daniel; Merci pour ta réponse, mais je ne comprend pas sa prend toujours la première ligne, ci-joint fichier Salutations http://cjoint.com/?dolyvgCdwC
Bonjour. Set Rg = Intersect(Target, Range("A2:A65536")) Cordialement. Daniel "Tibert" a écrit dans le message de news:
Bonjour à tous ; Voilà j'ai trouvé un code pour extraire sans doublon, mais j'aurais voulu savoir que dois-je changer dans ce code pour que dans la colonne indiquer il me prenne à partir de la deuxième ligne, c'est-à-dire ex ci-dessous à partir de (A2) ________________________________________ Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim Rg As Range Set Rg = Intersect(Target, Columns(1)) If Not Rg Is Nothing Then With Rg.EntireColumn .AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Range("R1"), Unique:=True End With End If End Sub
Daniel
Bonsoir. Non, c'est bon, il faut seulement effacer la plage G5:G65536 en tête de macro :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim Rg As Range Range("G5:G65536").Clear Set Rg = Intersect(Target, Range("A2:A65536")) If Not Rg Is Nothing Then With Rg.EntireColumn .AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Range("G5"), Unique:=True End With End If
End Sub
Daniel "Tibert" a écrit dans le message de news:
Bonjour Daniel; Merci pour ta réponse, mais je ne comprend pas sa prend toujours la première ligne, ci-joint fichier Salutations http://cjoint.com/?dolyvgCdwC
Bonjour. Set Rg = Intersect(Target, Range("A2:A65536")) Cordialement. Daniel "Tibert" a écrit dans le message de news:
Bonjour à tous ; Voilà j'ai trouvé un code pour extraire sans doublon, mais j'aurais voulu savoir que dois-je changer dans ce code pour que dans la colonne indiquer il me prenne à partir de la deuxième ligne, c'est-à-dire ex ci-dessous à partir de (A2) ________________________________________ Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim Rg As Range Set Rg = Intersect(Target, Columns(1)) If Not Rg Is Nothing Then With Rg.EntireColumn .AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Range("R1"), Unique:=True End With End If End Sub
Bonsoir.
Non, c'est bon, il faut seulement effacer la plage G5:G65536 en tête de
macro :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
Dim Rg As Range
Range("G5:G65536").Clear
Set Rg = Intersect(Target, Range("A2:A65536"))
If Not Rg Is Nothing Then
With Rg.EntireColumn
.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("G5"), Unique:=True
End With
End If
End Sub
Daniel
"Tibert" <syleg35@hotmail.fr> a écrit dans le message de news:
55E30EB2-8AB0-4202-ADF2-04F990F9C1E6@microsoft.com...
Bonjour Daniel;
Merci pour ta réponse, mais je ne comprend pas sa prend toujours la
première
ligne, ci-joint fichier
Salutations
http://cjoint.com/?dolyvgCdwC
Bonjour.
Set Rg = Intersect(Target, Range("A2:A65536"))
Cordialement.
Daniel
"Tibert" <syleg35@hotmail.fr> a écrit dans le message de news:
17B1F38C-8BEE-4FB3-BFEE-68CBF22816F2@microsoft.com...
Bonjour à tous ;
Voilà j'ai trouvé un code pour extraire sans doublon, mais j'aurais
voulu
savoir que dois-je changer dans ce code pour que dans la colonne
indiquer
il
me prenne à partir de la deuxième ligne, c'est-à-dire ex ci-dessous à
partir
de (A2)
________________________________________
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
Dim Rg As Range
Set Rg = Intersect(Target, Columns(1))
If Not Rg Is Nothing Then
With Rg.EntireColumn
.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("R1"), Unique:=True
End With
End If
End Sub
Bonsoir. Non, c'est bon, il faut seulement effacer la plage G5:G65536 en tête de macro :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim Rg As Range Range("G5:G65536").Clear Set Rg = Intersect(Target, Range("A2:A65536")) If Not Rg Is Nothing Then With Rg.EntireColumn .AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Range("G5"), Unique:=True End With End If
End Sub
Daniel "Tibert" a écrit dans le message de news:
Bonjour Daniel; Merci pour ta réponse, mais je ne comprend pas sa prend toujours la première ligne, ci-joint fichier Salutations http://cjoint.com/?dolyvgCdwC
Bonjour. Set Rg = Intersect(Target, Range("A2:A65536")) Cordialement. Daniel "Tibert" a écrit dans le message de news:
Bonjour à tous ; Voilà j'ai trouvé un code pour extraire sans doublon, mais j'aurais voulu savoir que dois-je changer dans ce code pour que dans la colonne indiquer il me prenne à partir de la deuxième ligne, c'est-à-dire ex ci-dessous à partir de (A2) ________________________________________ Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim Rg As Range Set Rg = Intersect(Target, Columns(1)) If Not Rg Is Nothing Then With Rg.EntireColumn .AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Range("R1"), Unique:=True End With End If End Sub