Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel aide sur une macro

aide sur une macro

4 réponses
Avatar
ptck
bonsoir

j'ai cette macro ci dessous qui recopie les cellules d'un filtre
je voudrai les recopier à la suite de la dernière ligne de la colonne A de
la feuille OD

mais je n'y arrive pas (je me lance dans les macros !! :-)

merci de votre aide

Sub essai()
Dim Sh As Worksheet, mycell As String
Set Sh = Worksheets("OD")
mycell = Columns(1).Find("*", [A1], , , , xlPrevious).Select
Sheets("clientcasino").Select
Range("A1:H50").AutoFilter Field:=1, Criteria1:="od"
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sh.Range("mycell")
=<<<<<c'est là ou çà ne va pas>>
Selection.AutoFilter
Set Sh = Nothing
Set mycell = Nothing
End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
isabelle
bonjour,

remplace par :

Set mycell = Sh.Range("A" & Columns(1).Find("*", [A1], , , , xlPrevious).Row + 1)

et

Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sh.mycell

isabelle


bonsoir

j'ai cette macro ci dessous qui recopie les cellules d'un filtre
je voudrai les recopier à la suite de la dernière ligne de la colonne A de
la feuille OD

mais je n'y arrive pas (je me lance dans les macros !! :-)

merci de votre aide

Sub essai()
Dim Sh As Worksheet, mycell As String
Set Sh = Worksheets("OD")
mycell = Columns(1).Find("*", [A1], , , , xlPrevious).Select
Sheets("clientcasino").Select
Range("A1:H50").AutoFilter Field:=1, Criteria1:="od"
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sh.Range("mycell")
=<<<<<c'est là ou çà ne va pas>>
Selection.AutoFilter
Set Sh = Nothing
Set mycell = Nothing
End Sub




Avatar
Daniel
Bonsoir.
Remplace :
mycell = Columns(1).Find("*", [A1], , , , xlPrevious).Select
par
set mycell = Columns(1).Find("*", [A1], , , , xlPrevious).Select
et
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sh.Range("mycell")
par :
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sh.mycell
Note que mycell est de type "range" et que la feuille OD doit être la
feuille active au lancement de la macro.
Cordialement.
Daniel
"ptck" a écrit dans le message de news:

bonsoir

j'ai cette macro ci dessous qui recopie les cellules d'un filtre
je voudrai les recopier à la suite de la dernière ligne de la colonne A de
la feuille OD

mais je n'y arrive pas (je me lance dans les macros !! :-)

merci de votre aide

Sub essai()
Dim Sh As Worksheet, mycell As String
Set Sh = Worksheets("OD")
mycell = Columns(1).Find("*", [A1], , , , xlPrevious).Select
Sheets("clientcasino").Select
Range("A1:H50").AutoFilter Field:=1, Criteria1:="od"
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sh.Range("mycell")
=<<<<<c'est là ou çà ne va pas>>
Selection.AutoFilter
Set Sh = Nothing
Set mycell = Nothing
End Sub



Avatar
Daniel
Erratum :
plus exactement :
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sh.mycell.offset(1,0)
Daniel
"ptck" a écrit dans le message de news:

bonsoir

j'ai cette macro ci dessous qui recopie les cellules d'un filtre
je voudrai les recopier à la suite de la dernière ligne de la colonne A de
la feuille OD

mais je n'y arrive pas (je me lance dans les macros !! :-)

merci de votre aide

Sub essai()
Dim Sh As Worksheet, mycell As String
Set Sh = Worksheets("OD")
mycell = Columns(1).Find("*", [A1], , , , xlPrevious).Select
Sheets("clientcasino").Select
Range("A1:H50").AutoFilter Field:=1, Criteria1:="od"
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sh.Range("mycell")
=<<<<<c'est là ou çà ne va pas>>
Selection.AutoFilter
Set Sh = Nothing
Set mycell = Nothing
End Sub



Avatar
ptck
merci pour votre aide


"Daniel" a écrit dans le message de news:
e5%
Erratum :
plus exactement :
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sh.mycell.offset(1,0)
Daniel
"ptck" a écrit dans le message de news:

bonsoir

j'ai cette macro ci dessous qui recopie les cellules d'un filtre
je voudrai les recopier à la suite de la dernière ligne de la colonne A
de la feuille OD

mais je n'y arrive pas (je me lance dans les macros !! :-)

merci de votre aide

Sub essai()
Dim Sh As Worksheet, mycell As String
Set Sh = Worksheets("OD")
mycell = Columns(1).Find("*", [A1], , , , xlPrevious).Select
Sheets("clientcasino").Select
Range("A1:H50").AutoFilter Field:=1, Criteria1:="od"
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sh.Range("mycell")
=<<<<<c'est là ou çà ne va pas>>
Selection.AutoFilter
Set Sh = Nothing
Set mycell = Nothing
End Sub