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
MichD
Bonjour,
Question I
Lorsque tu as créé ton tableau, j'ai supposé que tu as répondu OUI à savoir que ta plage de données avait une ligne d'étiquettes de colonne... Sinon le offset(,-1) est de trop.
Pour le filtre, le critère reste à déterminer
'-------------------------------- Sub test() With Worksheets("Feuil1") 'Nom onglet à adapter With .Range("CONSIGNES") With .Offset(-1).Resize(.Rows.Count + 1) .Columns(1).Sort Key1:=.Columns(1), order1:=xlAscending, Header:=xlYes .AutoFilter field:=1, Criteria1:="à déterminer" End with End With End With End Sub '------------------------------------ Sub test1() On Error Resume Next With Worksheets("GOLF") With .Range("A1:A" & .Range("A65536").End(xlUp).Row) .SpecialCells(xlCellTypeConstants, xlErrors).Delete End With End With End Sub
MichD -------------------------------------------- "Bigbrainxx" a écrit dans le message de groupe de discussion :
Bonjour à tous
Quelqu'un aurait-il la gentillesse de m'écrire une macro pour effectuer les actions suivantes:
1- feuille Table CONSIGNES - sélectionner la colonne A - Trier et filtrer - Trier de A à Z - Etendre la sélection - Tri
2 - feuille GOLF - supprimer toutes les lignes qui ont la valeur #REF! dans la colonne A
Les feuilles sont dans le même classeur : "Contrôles 2011"
Je vous remercie par avance pour votre aide. Bernard.
Bonjour,
Question I
Lorsque tu as créé ton tableau, j'ai supposé que tu as
répondu OUI à savoir que ta plage de données avait une
ligne d'étiquettes de colonne... Sinon le offset(,-1) est de trop.
Pour le filtre, le critère reste à déterminer
'--------------------------------
Sub test()
With Worksheets("Feuil1") 'Nom onglet à adapter
With .Range("CONSIGNES")
With .Offset(-1).Resize(.Rows.Count + 1)
.Columns(1).Sort Key1:=.Columns(1), order1:=xlAscending, Header:=xlYes
.AutoFilter field:=1, Criteria1:="à déterminer"
End with
End With
End With
End Sub
'------------------------------------
Sub test1()
On Error Resume Next
With Worksheets("GOLF")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.SpecialCells(xlCellTypeConstants, xlErrors).Delete
End With
End With
End Sub
MichD
--------------------------------------------
"Bigbrainxx" a écrit dans le message de groupe de discussion : 8ldtr65r94u5r5u92soadh9htr8s0gnudh@4ax.com...
Bonjour à tous
Quelqu'un aurait-il la gentillesse de m'écrire une macro pour
effectuer les actions suivantes:
1- feuille Table CONSIGNES - sélectionner la colonne A - Trier et
filtrer - Trier de A à Z - Etendre la sélection - Tri
2 - feuille GOLF - supprimer toutes les lignes qui ont la valeur #REF!
dans la colonne A
Les feuilles sont dans le même classeur : "Contrôles 2011"
Je vous remercie par avance pour votre aide.
Bernard.
Lorsque tu as créé ton tableau, j'ai supposé que tu as répondu OUI à savoir que ta plage de données avait une ligne d'étiquettes de colonne... Sinon le offset(,-1) est de trop.
Pour le filtre, le critère reste à déterminer
'-------------------------------- Sub test() With Worksheets("Feuil1") 'Nom onglet à adapter With .Range("CONSIGNES") With .Offset(-1).Resize(.Rows.Count + 1) .Columns(1).Sort Key1:=.Columns(1), order1:=xlAscending, Header:=xlYes .AutoFilter field:=1, Criteria1:="à déterminer" End with End With End With End Sub '------------------------------------ Sub test1() On Error Resume Next With Worksheets("GOLF") With .Range("A1:A" & .Range("A65536").End(xlUp).Row) .SpecialCells(xlCellTypeConstants, xlErrors).Delete End With End With End Sub
MichD -------------------------------------------- "Bigbrainxx" a écrit dans le message de groupe de discussion :
Bonjour à tous
Quelqu'un aurait-il la gentillesse de m'écrire une macro pour effectuer les actions suivantes:
1- feuille Table CONSIGNES - sélectionner la colonne A - Trier et filtrer - Trier de A à Z - Etendre la sélection - Tri
2 - feuille GOLF - supprimer toutes les lignes qui ont la valeur #REF! dans la colonne A
Les feuilles sont dans le même classeur : "Contrôles 2011"
Je vous remercie par avance pour votre aide. Bernard.