j'ai cette macro qui ne marche pas avec
avec j'ai le message ci-dessous
"membre de méthode ou de données introuvable"
je ne vois pas !!!
merci de vos lumières
ptck
ps j'ai modifié la ligne 5 et 8 sur les conseil d'isabelle et de daniel
Sub essai()
Dim Sh As Worksheet
Dim mycell As Range
Set Sh = Worksheets("OD")
Sh.Activate
Set mycell = Sh.Range("A" & Columns(1).Find("*", [A1], , , , xlPrevious).Row
+ 1)
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
FxM
Bonsoir,
Non testé : Set mycell = Sh.Range("A" & sh.range("A65536").end(xlup).row+1)
@+ FxM
bonsoir
j'ai cette macro qui ne marche pas avec avec j'ai le message ci-dessous
"membre de méthode ou de données introuvable" je ne vois pas !!!
merci de vos lumières ptck
ps j'ai modifié la ligne 5 et 8 sur les conseil d'isabelle et de daniel
Sub essai() Dim Sh As Worksheet Dim mycell As Range Set Sh = Worksheets("OD") Sh.Activate Set mycell = Sh.Range("A" & Columns(1).Find("*", [A1], , , , xlPrevious).Row + 1)
Selection.AutoFilter Set Sh = Nothing Set mycell = Nothing End Sub
Bonsoir,
Non testé :
Set mycell = Sh.Range("A" & sh.range("A65536").end(xlup).row+1)
@+
FxM
bonsoir
j'ai cette macro qui ne marche pas avec
avec j'ai le message ci-dessous
"membre de méthode ou de données introuvable"
je ne vois pas !!!
merci de vos lumières
ptck
ps j'ai modifié la ligne 5 et 8 sur les conseil d'isabelle et de daniel
Sub essai()
Dim Sh As Worksheet
Dim mycell As Range
Set Sh = Worksheets("OD")
Sh.Activate
Set mycell = Sh.Range("A" & Columns(1).Find("*", [A1], , , , xlPrevious).Row
+ 1)
Non testé : Set mycell = Sh.Range("A" & sh.range("A65536").end(xlup).row+1)
@+ FxM
bonsoir
j'ai cette macro qui ne marche pas avec avec j'ai le message ci-dessous
"membre de méthode ou de données introuvable" je ne vois pas !!!
merci de vos lumières ptck
ps j'ai modifié la ligne 5 et 8 sur les conseil d'isabelle et de daniel
Sub essai() Dim Sh As Worksheet Dim mycell As Range Set Sh = Worksheets("OD") Sh.Activate Set mycell = Sh.Range("A" & Columns(1).Find("*", [A1], , , , xlPrevious).Row + 1)
Selection.AutoFilter Set Sh = Nothing Set mycell = Nothing End Sub
ptck
çà ne change rien ?!!! dès que je fais f8
"sub essai()" devient jaune et le mot "mycell" dans la ligne ci dessous après copy sh.mycell devient jaune avec le message " "membre de méthode ou de données introuvable"
Non testé : Set mycell = Sh.Range("A" & sh.range("A65536").end(xlup).row+1)
@+ FxM
bonsoir
j'ai cette macro qui ne marche pas avec avec j'ai le message ci-dessous
"membre de méthode ou de données introuvable" je ne vois pas !!!
merci de vos lumières ptck
ps j'ai modifié la ligne 5 et 8 sur les conseil d'isabelle et de daniel
Sub essai() Dim Sh As Worksheet Dim mycell As Range Set Sh = Worksheets("OD") Sh.Activate Set mycell = Sh.Range("A" & Columns(1).Find("*", [A1], , , , xlPrevious).Row + 1)
Selection.AutoFilter Set Sh = Nothing Set mycell = Nothing End Sub
çà ne change rien ?!!!
dès que je fais f8
"sub essai()" devient jaune et le mot "mycell" dans la ligne ci dessous
après copy sh.mycell devient jaune
avec le message " "membre de méthode ou de données introuvable"
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
O3VB8HDBHHA.1196@TK2MSFTNGP03.phx.gbl...
Bonsoir,
Non testé :
Set mycell = Sh.Range("A" & sh.range("A65536").end(xlup).row+1)
@+
FxM
bonsoir
j'ai cette macro qui ne marche pas avec
avec j'ai le message ci-dessous
"membre de méthode ou de données introuvable"
je ne vois pas !!!
merci de vos lumières
ptck
ps j'ai modifié la ligne 5 et 8 sur les conseil d'isabelle et de daniel
Sub essai()
Dim Sh As Worksheet
Dim mycell As Range
Set Sh = Worksheets("OD")
Sh.Activate
Set mycell = Sh.Range("A" & Columns(1).Find("*", [A1], , , ,
xlPrevious).Row + 1)
"sub essai()" devient jaune et le mot "mycell" dans la ligne ci dessous après copy sh.mycell devient jaune avec le message " "membre de méthode ou de données introuvable"
Non testé : Set mycell = Sh.Range("A" & sh.range("A65536").end(xlup).row+1)
@+ FxM
bonsoir
j'ai cette macro qui ne marche pas avec avec j'ai le message ci-dessous
"membre de méthode ou de données introuvable" je ne vois pas !!!
merci de vos lumières ptck
ps j'ai modifié la ligne 5 et 8 sur les conseil d'isabelle et de daniel
Sub essai() Dim Sh As Worksheet Dim mycell As Range Set Sh = Worksheets("OD") Sh.Activate Set mycell = Sh.Range("A" & Columns(1).Find("*", [A1], , , , xlPrevious).Row + 1)
Il n'y a besoin d'employer 'Set' avec un objet range. P.
ptck
encore merci FxM pour l'aide sur un problème çà m'a aidé a comprende la logique des macro avec les variable ptck
"ptck" a écrit dans le message de news:
çà ne change rien ?!!! dès que je fais f8
"sub essai()" devient jaune et le mot "mycell" dans la ligne ci dessous après copy sh.mycell devient jaune avec le message " "membre de méthode ou de données introuvable"
Non testé : Set mycell = Sh.Range("A" & sh.range("A65536").end(xlup).row+1)
@+ FxM
bonsoir
j'ai cette macro qui ne marche pas avec avec j'ai le message ci-dessous
"membre de méthode ou de données introuvable" je ne vois pas !!!
merci de vos lumières ptck
ps j'ai modifié la ligne 5 et 8 sur les conseil d'isabelle et de daniel
Sub essai() Dim Sh As Worksheet Dim mycell As Range Set Sh = Worksheets("OD") Sh.Activate Set mycell = Sh.Range("A" & Columns(1).Find("*", [A1], , , , xlPrevious).Row + 1)
Selection.AutoFilter Set Sh = Nothing Set mycell = Nothing End Sub
encore merci FxM pour l'aide sur un problème çà m'a aidé a comprende la
logique
des macro avec les variable
ptck
"ptck" <nospam-ptck@easyconnect.fr> a écrit dans le message de news:
uOP9nSDBHHA.1012@TK2MSFTNGP04.phx.gbl...
çà ne change rien ?!!!
dès que je fais f8
"sub essai()" devient jaune et le mot "mycell" dans la ligne ci dessous
après copy sh.mycell devient jaune
avec le message " "membre de méthode ou de données introuvable"
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
O3VB8HDBHHA.1196@TK2MSFTNGP03.phx.gbl...
Bonsoir,
Non testé :
Set mycell = Sh.Range("A" & sh.range("A65536").end(xlup).row+1)
@+
FxM
bonsoir
j'ai cette macro qui ne marche pas avec
avec j'ai le message ci-dessous
"membre de méthode ou de données introuvable"
je ne vois pas !!!
merci de vos lumières
ptck
ps j'ai modifié la ligne 5 et 8 sur les conseil d'isabelle et de daniel
Sub essai()
Dim Sh As Worksheet
Dim mycell As Range
Set Sh = Worksheets("OD")
Sh.Activate
Set mycell = Sh.Range("A" & Columns(1).Find("*", [A1], , , ,
xlPrevious).Row + 1)
encore merci FxM pour l'aide sur un problème çà m'a aidé a comprende la logique des macro avec les variable ptck
"ptck" a écrit dans le message de news:
çà ne change rien ?!!! dès que je fais f8
"sub essai()" devient jaune et le mot "mycell" dans la ligne ci dessous après copy sh.mycell devient jaune avec le message " "membre de méthode ou de données introuvable"
Non testé : Set mycell = Sh.Range("A" & sh.range("A65536").end(xlup).row+1)
@+ FxM
bonsoir
j'ai cette macro qui ne marche pas avec avec j'ai le message ci-dessous
"membre de méthode ou de données introuvable" je ne vois pas !!!
merci de vos lumières ptck
ps j'ai modifié la ligne 5 et 8 sur les conseil d'isabelle et de daniel
Sub essai() Dim Sh As Worksheet Dim mycell As Range Set Sh = Worksheets("OD") Sh.Activate Set mycell = Sh.Range("A" & Columns(1).Find("*", [A1], , , , xlPrevious).Row + 1)
"Patrick Penet" a écrit dans le message de news: 45538148$0$21147$
Il n'y a besoin d'employer 'Set' avec un objet range. P.
Ange Ounis
Mais si Patrick, si tu veux toutefois utiliser l'objet lui-même. Si tu n'utilises pas Set, tu ne "récupères" que sa propriété par défaut (soit Value pour l'objet Range). C'est un des problèmes posés par le "laxisme syntaxique" de VBA, qui peut provoquer des résultats inattendus difficiles à déboguer !..
---------- Ange Ounis ----------
Il n'y a besoin d'employer 'Set' avec un objet range. P.
Mais si Patrick, si tu veux toutefois utiliser l'objet lui-même. Si tu
n'utilises pas Set, tu ne "récupères" que sa propriété par défaut (soit Value
pour l'objet Range).
C'est un des problèmes posés par le "laxisme syntaxique" de VBA, qui peut
provoquer des résultats inattendus difficiles à déboguer !..
----------
Ange Ounis
----------
Il n'y a besoin d'employer 'Set' avec un objet range.
P.
Mais si Patrick, si tu veux toutefois utiliser l'objet lui-même. Si tu n'utilises pas Set, tu ne "récupères" que sa propriété par défaut (soit Value pour l'objet Range). C'est un des problèmes posés par le "laxisme syntaxique" de VBA, qui peut provoquer des résultats inattendus difficiles à déboguer !..
---------- Ange Ounis ----------
Il n'y a besoin d'employer 'Set' avec un objet range. P.
FxM
Attention aux coupures de lignes
Sub test() 'feuille de départ Sheets("client").Select 'filtrer Range("A1:H50").AutoFilter Field:=1, Criteria1:="od" 'copier directement 'ce qui suite sur une ligne !! Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sheets("od").Range("A" & Sheets("od").Range("A65536").End(xlUp).Row + 1) 'jusque-là 'enlever le filtre Selection.AutoFilter End Sub
@+ FxM
je joint le fichier ci dessous c'est le moduele 3
merci http://cjoint.com/?ljuSeQ6Mfu
"Patrick Penet" a écrit dans le message de news: 45538148$0$21147$
Il n'y a besoin d'employer 'Set' avec un objet range. P.
Attention aux coupures de lignes
Sub test()
'feuille de départ
Sheets("client").Select
'filtrer
Range("A1:H50").AutoFilter Field:=1, Criteria1:="od"
'copier directement
'ce qui suite sur une ligne !!
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy
Sheets("od").Range("A" & Sheets("od").Range("A65536").End(xlUp).Row + 1)
'jusque-là
'enlever le filtre
Selection.AutoFilter
End Sub
@+
FxM
je joint le fichier ci dessous c'est le moduele 3
merci
http://cjoint.com/?ljuSeQ6Mfu
"Patrick Penet" <phpenetNOSPAM@club-internet.fr> a écrit dans le message de
news: 45538148$0$21147$7a628cd7@news.club-internet.fr...
Il n'y a besoin d'employer 'Set' avec un objet range.
P.
Sub test() 'feuille de départ Sheets("client").Select 'filtrer Range("A1:H50").AutoFilter Field:=1, Criteria1:="od" 'copier directement 'ce qui suite sur une ligne !! Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sheets("od").Range("A" & Sheets("od").Range("A65536").End(xlUp).Row + 1) 'jusque-là 'enlever le filtre Selection.AutoFilter End Sub
@+ FxM
je joint le fichier ci dessous c'est le moduele 3
merci http://cjoint.com/?ljuSeQ6Mfu
"Patrick Penet" a écrit dans le message de news: 45538148$0$21147$
Il n'y a besoin d'employer 'Set' avec un objet range. P.
j'ai le message suivant propriété ou méthode non géré par cet objet
merci
"FxM" a écrit dans le message de news:
Attention aux coupures de lignes
Sub test() 'feuille de départ Sheets("client").Select 'filtrer Range("A1:H50").AutoFilter Field:=1, Criteria1:="od" 'copier directement 'ce qui suite sur une ligne !! Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sheets("od").Range("A" & Sheets("od").Range("A65536").End(xlUp).Row + 1) 'jusque-là 'enlever le filtre Selection.AutoFilter End Sub
@+ FxM
je joint le fichier ci dessous c'est le moduele 3
merci http://cjoint.com/?ljuSeQ6Mfu
"Patrick Penet" a écrit dans le message de news: 45538148$0$21147$
Il n'y a besoin d'employer 'Set' avec un objet range. P.
j'ai le message suivant
propriété ou méthode non géré par cet objet
merci
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
u4YBavDBHHA.3928@TK2MSFTNGP03.phx.gbl...
Attention aux coupures de lignes
Sub test()
'feuille de départ
Sheets("client").Select
'filtrer
Range("A1:H50").AutoFilter Field:=1, Criteria1:="od"
'copier directement
'ce qui suite sur une ligne !!
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy
Sheets("od").Range("A" & Sheets("od").Range("A65536").End(xlUp).Row + 1)
'jusque-là
'enlever le filtre
Selection.AutoFilter
End Sub
@+
FxM
je joint le fichier ci dessous c'est le moduele 3
merci
http://cjoint.com/?ljuSeQ6Mfu
"Patrick Penet" <phpenetNOSPAM@club-internet.fr> a écrit dans le message
de news: 45538148$0$21147$7a628cd7@news.club-internet.fr...
Il n'y a besoin d'employer 'Set' avec un objet range.
P.
j'ai le message suivant propriété ou méthode non géré par cet objet
merci
"FxM" a écrit dans le message de news:
Attention aux coupures de lignes
Sub test() 'feuille de départ Sheets("client").Select 'filtrer Range("A1:H50").AutoFilter Field:=1, Criteria1:="od" 'copier directement 'ce qui suite sur une ligne !! Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sheets("od").Range("A" & Sheets("od").Range("A65536").End(xlUp).Row + 1) 'jusque-là 'enlever le filtre Selection.AutoFilter End Sub
@+ FxM
je joint le fichier ci dessous c'est le moduele 3
merci http://cjoint.com/?ljuSeQ6Mfu
"Patrick Penet" a écrit dans le message de news: 45538148$0$21147$
Il n'y a besoin d'employer 'Set' avec un objet range. P.
FxM
'ce qui suite sur une ligne !! Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy
j'ai le message suivant propriété ou méthode non géré par cet objet
merci
"FxM" a écrit dans le message de news:
Attention aux coupures de lignes
Sub test() 'feuille de départ Sheets("client").Select 'filtrer Range("A1:H50").AutoFilter Field:=1, Criteria1:="od" 'copier directement 'ce qui suite sur une ligne !! Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sheets("od").Range("A" & Sheets("od").Range("A65536").End(xlUp).Row + 1) 'jusque-là 'enlever le filtre Selection.AutoFilter End Sub
@+ FxM
je joint le fichier ci dessous c'est le moduele 3
merci http://cjoint.com/?ljuSeQ6Mfu
"Patrick Penet" a écrit dans le message de news: 45538148$0$21147$
Il n'y a besoin d'employer 'Set' avec un objet range. P.
'ce qui suite sur une ligne !!
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy
j'ai le message suivant
propriété ou méthode non géré par cet objet
merci
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
u4YBavDBHHA.3928@TK2MSFTNGP03.phx.gbl...
Attention aux coupures de lignes
Sub test()
'feuille de départ
Sheets("client").Select
'filtrer
Range("A1:H50").AutoFilter Field:=1, Criteria1:="od"
'copier directement
'ce qui suite sur une ligne !!
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy
Sheets("od").Range("A" & Sheets("od").Range("A65536").End(xlUp).Row + 1)
'jusque-là
'enlever le filtre
Selection.AutoFilter
End Sub
@+
FxM
je joint le fichier ci dessous c'est le moduele 3
merci
http://cjoint.com/?ljuSeQ6Mfu
"Patrick Penet" <phpenetNOSPAM@club-internet.fr> a écrit dans le message
de news: 45538148$0$21147$7a628cd7@news.club-internet.fr...
Il n'y a besoin d'employer 'Set' avec un objet range.
P.
j'ai le message suivant propriété ou méthode non géré par cet objet
merci
"FxM" a écrit dans le message de news:
Attention aux coupures de lignes
Sub test() 'feuille de départ Sheets("client").Select 'filtrer Range("A1:H50").AutoFilter Field:=1, Criteria1:="od" 'copier directement 'ce qui suite sur une ligne !! Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sheets("od").Range("A" & Sheets("od").Range("A65536").End(xlUp).Row + 1) 'jusque-là 'enlever le filtre Selection.AutoFilter End Sub
@+ FxM
je joint le fichier ci dessous c'est le moduele 3
merci http://cjoint.com/?ljuSeQ6Mfu
"Patrick Penet" a écrit dans le message de news: 45538148$0$21147$
Il n'y a besoin d'employer 'Set' avec un objet range. P.
ptck
çà marche merci encore
pctk
"FxM" a écrit dans le message de news:
'ce qui suite sur une ligne !! Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy
j'ai le message suivant propriété ou méthode non géré par cet objet
merci
"FxM" a écrit dans le message de news:
Attention aux coupures de lignes
Sub test() 'feuille de départ Sheets("client").Select 'filtrer Range("A1:H50").AutoFilter Field:=1, Criteria1:="od" 'copier directement 'ce qui suite sur une ligne !! Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sheets("od").Range("A" & Sheets("od").Range("A65536").End(xlUp).Row + 1) 'jusque-là 'enlever le filtre Selection.AutoFilter End Sub
@+ FxM
je joint le fichier ci dessous c'est le moduele 3
merci http://cjoint.com/?ljuSeQ6Mfu
"Patrick Penet" a écrit dans le message de news: 45538148$0$21147$
Il n'y a besoin d'employer 'Set' avec un objet range. P.
çà marche
merci encore
pctk
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
exJPA2EBHHA.3540@TK2MSFTNGP03.phx.gbl...
'ce qui suite sur une ligne !!
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy
j'ai le message suivant
propriété ou méthode non géré par cet objet
merci
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
u4YBavDBHHA.3928@TK2MSFTNGP03.phx.gbl...
Attention aux coupures de lignes
Sub test()
'feuille de départ
Sheets("client").Select
'filtrer
Range("A1:H50").AutoFilter Field:=1, Criteria1:="od"
'copier directement
'ce qui suite sur une ligne !!
Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy
Sheets("od").Range("A" & Sheets("od").Range("A65536").End(xlUp).Row + 1)
'jusque-là
'enlever le filtre
Selection.AutoFilter
End Sub
@+
FxM
je joint le fichier ci dessous c'est le moduele 3
merci
http://cjoint.com/?ljuSeQ6Mfu
"Patrick Penet" <phpenetNOSPAM@club-internet.fr> a écrit dans le
message de news: 45538148$0$21147$7a628cd7@news.club-internet.fr...
Il n'y a besoin d'employer 'Set' avec un objet range.
P.
j'ai le message suivant propriété ou méthode non géré par cet objet
merci
"FxM" a écrit dans le message de news:
Attention aux coupures de lignes
Sub test() 'feuille de départ Sheets("client").Select 'filtrer Range("A1:H50").AutoFilter Field:=1, Criteria1:="od" 'copier directement 'ce qui suite sur une ligne !! Range("A2:H50").SpecialCells(xlCellTypeVisible).Copy Sheets("od").Range("A" & Sheets("od").Range("A65536").End(xlUp).Row + 1) 'jusque-là 'enlever le filtre Selection.AutoFilter End Sub
@+ FxM
je joint le fichier ci dessous c'est le moduele 3
merci http://cjoint.com/?ljuSeQ6Mfu
"Patrick Penet" a écrit dans le message de news: 45538148$0$21147$
Il n'y a besoin d'employer 'Set' avec un objet range. P.