|
| |||||||
| S'inscrire | FAQ | Membres | Calendrier | Recherche | Messages du jour | Marquer les forums comme lus |
 |
| LinkBack | Outils de la discussion | Modes d'affichage |
12/04/2008, 13h49
| |||
| |||
 recherche infos entre 2 lignes Bonjour à tous j'ai commencé cette macro mais je çà bug à => set mycell1 "on me demande un objet requis" débutant en macro je me demande si je commence bien ??,!!! merci pour votre aide Sub recap() Dim mot As String, fin As String, mycell1 As String Sheets("recap").[A1].CurrentRegion.Offset(1, 0).Clear For s = 2 To Sheets.Count fin = B1 mot = fabrication Set mycell1 = Sheets(s).Range(fin & ":b65536").Find(What:=mot, After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) Pour chaque onglet d'un classeur je voudrai récupérer dans une feuille "recap" les infos des cellules remplies situées entre la ligne où il y a le mot "fabrication" et la ligne "ingrédients" ces info sont en colonne B,C,D et débute 3 lignes après la ligne fabrication Idem pour pour des infos situées entre la ligne ou il y a le mot "ingrédient" et la ligne "poussage / etuvage / séchage"  |
| Today
| ||||
| ||||
 Sponsored Links |
|
12/04/2008, 14h04
| |||
| |||
| Re: recherche infos entre 2 lignes Bonjour. fin="B1" Cordialement. Daniel "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de news: uw2MovJnIHA.5084***TK2MSFTNGP04.phx.gbl... > Bonjour à tous > > j'ai commencé cette macro mais je çà bug à => set mycell1 "on me demande > un objet requis" > > débutant en macro je me demande si je commence bien ??,!!! > merci pour votre aide > > > Sub recap() > Dim mot As String, fin As String, mycell1 As String > Sheets("recap").[A1].CurrentRegion.Offset(1, 0).Clear > For s = 2 To Sheets.Count > fin = B1 > mot = fabrication > Set mycell1 = Sheets(s).Range(fin & ":b65536").Find(What:=mot, > After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, > SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) > > > Pour chaque onglet d'un classeur > je voudrai récupérer dans une feuille "recap" les infos des cellules > remplies situées entre la ligne où il y a le mot "fabrication" et la ligne > "ingrédients" > > ces info sont en colonne B,C,D et débute 3 lignes après la ligne > fabrication > > Idem pour pour des infos situées entre la ligne ou il y a le mot > "ingrédient" et la ligne "poussage / etuvage / séchage" > |
|
12/04/2008, 14h10
| |||
| |||
| Re: recherche infos entre 2 lignes Pourquoi pas ? Set mycell1 = Sheets(s).Range("B:B").Find(What:=mot, After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) Daniel "Daniel.C" <dZZZcolardelle***free.fr> a écrit dans le message de news: Oahd32JnIHA.1368***TK2MSFTNGP02.phx.gbl... > Bonjour. > fin="B1" > Cordialement. > Daniel > "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de news: > uw2MovJnIHA.5084***TK2MSFTNGP04.phx.gbl... >> Bonjour à tous >> >> j'ai commencé cette macro mais je çà bug à => set mycell1 "on me demande >> un objet requis" >> >> débutant en macro je me demande si je commence bien ??,!!! >> merci pour votre aide >> >> >> Sub recap() >> Dim mot As String, fin As String, mycell1 As String >> Sheets("recap").[A1].CurrentRegion.Offset(1, 0).Clear >> For s = 2 To Sheets.Count >> fin = B1 >> mot = fabrication >> Set mycell1 = Sheets(s).Range(fin & ":b65536").Find(What:=mot, >> After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, >> SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) >> >> >> Pour chaque onglet d'un classeur >> je voudrai récupérer dans une feuille "recap" les infos des cellules >> remplies situées entre la ligne où il y a le mot "fabrication" et la >> ligne "ingrédients" >> >> ces info sont en colonne B,C,D et débute 3 lignes après la ligne >> fabrication >> >> Idem pour pour des infos situées entre la ligne ou il y a le mot >> "ingrédient" et la ligne "poussage / etuvage / séchage" >> > > |
|
12/04/2008, 14h22
| |||
| |||
| Re: recherche infos entre 2 lignes merci mais il me met tj erreur de compilation  bjet requis"Daniel.C" <dZZZcolardelle***free.fr> a écrit dans le message de news: ewqaI6JnIHA.5660***TK2MSFTNGP02.phx.gbl... > Pourquoi pas ? > Set mycell1 = Sheets(s).Range("B:B").Find(What:=mot, > After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, > SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) > Daniel > > "Daniel.C" <dZZZcolardelle***free.fr> a écrit dans le message de news: > Oahd32JnIHA.1368***TK2MSFTNGP02.phx.gbl... >> Bonjour. >> fin="B1" >> Cordialement. >> Daniel >> "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de news: >> uw2MovJnIHA.5084***TK2MSFTNGP04.phx.gbl... >>> Bonjour à tous >>> >>> j'ai commencé cette macro mais je çà bug à => set mycell1 "on me >>> demande un objet requis" >>> >>> débutant en macro je me demande si je commence bien ??,!!! >>> merci pour votre aide >>> >>> >>> Sub recap() >>> Dim mot As String, fin As String, mycell1 As String >>> Sheets("recap").[A1].CurrentRegion.Offset(1, 0).Clear >>> For s = 2 To Sheets.Count >>> fin = B1 >>> mot = fabrication >>> Set mycell1 = Sheets(s).Range(fin & ":b65536").Find(What:=mot, >>> After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, >>> SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) >>> >>> >>> Pour chaque onglet d'un classeur >>> je voudrai récupérer dans une feuille "recap" les infos des cellules >>> remplies situées entre la ligne où il y a le mot "fabrication" et la >>> ligne "ingrédients" >>> >>> ces info sont en colonne B,C,D et débute 3 lignes après la ligne >>> fabrication >>> >>> Idem pour pour des infos situées entre la ligne ou il y a le mot >>> "ingrédient" et la ligne "poussage / etuvage / séchage" >>> >> >> > > > |
|
12/04/2008, 15h04
| |||
| |||
| Re: recherche infos entre 2 lignes Bon, je m'étais arrêté sur la première erreur. Mets également : mot = "fabrication" Si tu ne mets pas de guillemets, le mot "fabrication" est pris par VBA pour une variable et non pas pour une chaîne de caractères. Daniel "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de news: %23QztLBKnIHA.4196***TK2MSFTNGP04.phx.gbl... > merci mais > il me met tj erreur de compilation bjet requis> > "Daniel.C" <dZZZcolardelle***free.fr> a écrit dans le message de news: > ewqaI6JnIHA.5660***TK2MSFTNGP02.phx.gbl... >> Pourquoi pas ? >> Set mycell1 = Sheets(s).Range("B:B").Find(What:=mot, >> After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, >> SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) >> Daniel >> >> "Daniel.C" <dZZZcolardelle***free.fr> a écrit dans le message de news: >> Oahd32JnIHA.1368***TK2MSFTNGP02.phx.gbl... >>> Bonjour. >>> fin="B1" >>> Cordialement. >>> Daniel >>> "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de news: >>> uw2MovJnIHA.5084***TK2MSFTNGP04.phx.gbl... >>>> Bonjour à tous >>>> >>>> j'ai commencé cette macro mais je çà bug à => set mycell1 "on me >>>> demande un objet requis" >>>> >>>> débutant en macro je me demande si je commence bien ??,!!! >>>> merci pour votre aide >>>> >>>> >>>> Sub recap() >>>> Dim mot As String, fin As String, mycell1 As String >>>> Sheets("recap").[A1].CurrentRegion.Offset(1, 0).Clear >>>> For s = 2 To Sheets.Count >>>> fin = B1 >>>> mot = fabrication >>>> Set mycell1 = Sheets(s).Range(fin & ":b65536").Find(What:=mot, >>>> After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, >>>> SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) >>>> >>>> >>>> Pour chaque onglet d'un classeur >>>> je voudrai récupérer dans une feuille "recap" les infos des cellules >>>> remplies situées entre la ligne où il y a le mot "fabrication" et la >>>> ligne "ingrédients" >>>> >>>> ces info sont en colonne B,C,D et débute 3 lignes après la ligne >>>> fabrication >>>> >>>> Idem pour pour des infos situées entre la ligne ou il y a le mot >>>> "ingrédient" et la ligne "poussage / etuvage / séchage" >>>> >>> >>> >> >> >> > > |
|
12/04/2008, 15h21
| |||
| |||
| Re: recherche infos entre 2 lignes désolé mais tj pareil est ce que mes variables sont justes est que le s après sheet est bien à sa place das set ma cell1 merci encore "Daniel.C" <dZZZcolardelle***free.fr> a écrit dans le message de news: O8kdZYKnIHA.5080***TK2MSFTNGP02.phx.gbl... > Bon, je m'étais arrêté sur la première erreur. Mets également : > mot = "fabrication" > Si tu ne mets pas de guillemets, le mot "fabrication" est pris par VBA > pour une variable et non pas pour une chaîne de caractères. > Daniel > "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de news: > %23QztLBKnIHA.4196***TK2MSFTNGP04.phx.gbl... >> merci mais >> il me met tj erreur de compilation bjet requis>> >> "Daniel.C" <dZZZcolardelle***free.fr> a écrit dans le message de news: >> ewqaI6JnIHA.5660***TK2MSFTNGP02.phx.gbl... >>> Pourquoi pas ? >>> Set mycell1 = Sheets(s).Range("B:B").Find(What:=mot, >>> After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, >>> SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) >>> Daniel >>> >>> "Daniel.C" <dZZZcolardelle***free.fr> a écrit dans le message de news: >>> Oahd32JnIHA.1368***TK2MSFTNGP02.phx.gbl... >>>> Bonjour. >>>> fin="B1" >>>> Cordialement. >>>> Daniel >>>> "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de news: >>>> uw2MovJnIHA.5084***TK2MSFTNGP04.phx.gbl... >>>>> Bonjour à tous >>>>> >>>>> j'ai commencé cette macro mais je çà bug à => set mycell1 "on me >>>>> demande un objet requis" >>>>> >>>>> débutant en macro je me demande si je commence bien ??,!!! >>>>> merci pour votre aide >>>>> >>>>> >>>>> Sub recap() >>>>> Dim mot As String, fin As String, mycell1 As String >>>>> Sheets("recap").[A1].CurrentRegion.Offset(1, 0).Clear >>>>> For s = 2 To Sheets.Count >>>>> fin = B1 >>>>> mot = fabrication >>>>> Set mycell1 = Sheets(s).Range(fin & ":b65536").Find(What:=mot, >>>>> After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, >>>>> SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) >>>>> >>>>> >>>>> Pour chaque onglet d'un classeur >>>>> je voudrai récupérer dans une feuille "recap" les infos des cellules >>>>> remplies situées entre la ligne où il y a le mot "fabrication" et la >>>>> ligne "ingrédients" >>>>> >>>>> ces info sont en colonne B,C,D et débute 3 lignes après la ligne >>>>> fabrication >>>>> >>>>> Idem pour pour des infos situées entre la ligne ou il y a le mot >>>>> "ingrédient" et la ligne "poussage / etuvage / séchage" >>>>> >>>> >>>> >>> >>> >>> >> >> > > > |
|
12/04/2008, 16h18
| |||
| |||
| Re: recherche infos entre 2 lignes Mets ton classeur sur www.cjoint.com en effaçant les données confidentielles et poste ici l'adresse générée. Daniel "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de news: OV7WQiKnIHA.1768***TK2MSFTNGP05.phx.gbl... > désolé mais tj pareil > > est ce que mes variables sont justes > est que le s après sheet est bien à sa place das set ma cell1 > > merci encore > > > > > "Daniel.C" <dZZZcolardelle***free.fr> a écrit dans le message de news: > O8kdZYKnIHA.5080***TK2MSFTNGP02.phx.gbl... >> Bon, je m'étais arrêté sur la première erreur. Mets également : >> mot = "fabrication" >> Si tu ne mets pas de guillemets, le mot "fabrication" est pris par VBA >> pour une variable et non pas pour une chaîne de caractères. >> Daniel >> "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de news: >> %23QztLBKnIHA.4196***TK2MSFTNGP04.phx.gbl... >>> merci mais >>> il me met tj erreur de compilation bjet requis>>> >>> "Daniel.C" <dZZZcolardelle***free.fr> a écrit dans le message de news: >>> ewqaI6JnIHA.5660***TK2MSFTNGP02.phx.gbl... >>>> Pourquoi pas ? >>>> Set mycell1 = Sheets(s).Range("B:B").Find(What:=mot, >>>> After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, >>>> SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) >>>> Daniel >>>> >>>> "Daniel.C" <dZZZcolardelle***free.fr> a écrit dans le message de news: >>>> Oahd32JnIHA.1368***TK2MSFTNGP02.phx.gbl... >>>>> Bonjour. >>>>> fin="B1" >>>>> Cordialement. >>>>> Daniel >>>>> "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de news: >>>>> uw2MovJnIHA.5084***TK2MSFTNGP04.phx.gbl... >>>>>> Bonjour à tous >>>>>> >>>>>> j'ai commencé cette macro mais je çà bug à => set mycell1 "on me >>>>>> demande un objet requis" >>>>>> >>>>>> débutant en macro je me demande si je commence bien ??,!!! >>>>>> merci pour votre aide >>>>>> >>>>>> >>>>>> Sub recap() >>>>>> Dim mot As String, fin As String, mycell1 As String >>>>>> Sheets("recap").[A1].CurrentRegion.Offset(1, 0).Clear >>>>>> For s = 2 To Sheets.Count >>>>>> fin = B1 >>>>>> mot = fabrication >>>>>> Set mycell1 = Sheets(s).Range(fin & ":b65536").Find(What:=mot, >>>>>> After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, >>>>>> SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) >>>>>> >>>>>> >>>>>> Pour chaque onglet d'un classeur >>>>>> je voudrai récupérer dans une feuille "recap" les infos des cellules >>>>>> remplies situées entre la ligne où il y a le mot "fabrication" et la >>>>>> ligne "ingrédients" >>>>>> >>>>>> ces info sont en colonne B,C,D et débute 3 lignes après la ligne >>>>>> fabrication >>>>>> >>>>>> Idem pour pour des infos situées entre la ligne ou il y a le mot >>>>>> "ingrédient" et la ligne "poussage / etuvage / séchage" >>>>>> >>>>> >>>>> >>>> >>>> >>>> >>> >>> >> >> >> > > |
|
12/04/2008, 16h18
| |||
| |||
| Re: recherche infos entre 2 lignes As-tu déclaré s as worksheet ? Michel oui mais même message cette fois sur s je joint mon fichier merci http://cjoint.com/?emqNAE5uUL "Péhemme" <xx***xx.xx> a écrit dans le message de news: 4800c93b$0$889$ba4acef3***news.orange.fr... > As-tu déclaré s as worksheet ? > Michel > > "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de > news:uw2MovJnIHA.5084***TK2MSFTNGP04.phx.gbl... >> Bonjour à tous >> >> j'ai commencé cette macro mais je çà bug à => set mycell1 "on me demande >> un objet requis" >> >> débutant en macro je me demande si je commence bien ??,!!! >> merci pour votre aide >> >> >> Sub recap() >> Dim mot As String, fin As String, mycell1 As String >> Sheets("recap").[A1].CurrentRegion.Offset(1, 0).Clear >> For s = 2 To Sheets.Count >> fin = B1 >> mot = fabrication >> Set mycell1 = Sheets(s).Range(fin & ":b65536").Find(What:=mot, >> After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, >> SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) >> >> >> Pour chaque onglet d'un classeur >> je voudrai récupérer dans une feuille "recap" les infos des cellules >> remplies situées entre la ligne où il y a le mot "fabrication" et la >> ligne "ingrédients" >> >> ces info sont en colonne B,C,D et débute 3 lignes après la ligne >> fabrication >> >> Idem pour pour des infos situées entre la ligne ou il y a le mot >> "ingrédient" et la ligne "poussage / etuvage / séchage" >> > > |
|
12/04/2008, 16h36
| |||
| |||
| Re: recherche infos entre 2 lignes Tu dois définir "mycell1" comme range, pas comme string. Daniel "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de news: uRlMECLnIHA.5260***TK2MSFTNGP03.phx.gbl... > As-tu déclaré s as worksheet ? > Michel > > oui mais même message cette fois sur s > > > je joint mon fichier > > merci > > http://cjoint.com/?emqNAE5uUL > > > > > > "Péhemme" <xx***xx.xx> a écrit dans le message de news: > 4800c93b$0$889$ba4acef3***news.orange.fr... >> As-tu déclaré s as worksheet ? >> Michel >> >> "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de >> news:uw2MovJnIHA.5084***TK2MSFTNGP04.phx.gbl... >>> Bonjour à tous >>> >>> j'ai commencé cette macro mais je çà bug à => set mycell1 "on me >>> demande un objet requis" >>> >>> débutant en macro je me demande si je commence bien ??,!!! >>> merci pour votre aide >>> >>> >>> Sub recap() >>> Dim mot As String, fin As String, mycell1 As String >>> Sheets("recap").[A1].CurrentRegion.Offset(1, 0).Clear >>> For s = 2 To Sheets.Count >>> fin = B1 >>> mot = fabrication >>> Set mycell1 = Sheets(s).Range(fin & ":b65536").Find(What:=mot, >>> After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, >>> SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) >>> >>> >>> Pour chaque onglet d'un classeur >>> je voudrai récupérer dans une feuille "recap" les infos des cellules >>> remplies situées entre la ligne où il y a le mot "fabrication" et la >>> ligne "ingrédients" >>> >>> ces info sont en colonne B,C,D et débute 3 lignes après la ligne >>> fabrication >>> >>> Idem pour pour des infos situées entre la ligne ou il y a le mot >>> "ingrédient" et la ligne "poussage / etuvage / séchage" >>> >> >> > > |
|
12/04/2008, 16h37
| |||
| |||
| Re: recherche infos entre 2 lignes As-tu déclaré s as worksheet ? Michel "ptck" <nospam-ptck***neuf.fr> a écrit dans le message de news:uw2MovJnIHA.5084***TK2MSFTNGP04.phx.gbl... > Bonjour à tous > > j'ai commencé cette macro mais je çà bug à => set mycell1 "on me demande > un objet requis" > > débutant en macro je me demande si je commence bien ??,!!! > merci pour votre aide > > > Sub recap() > Dim mot As String, fin As String, mycell1 As String > Sheets("recap").[A1].CurrentRegion.Offset(1, 0).Clear > For s = 2 To Sheets.Count > fin = B1 > mot = fabrication > Set mycell1 = Sheets(s).Range(fin & ":b65536").Find(What:=mot, > After:=Range(fin), LookIn:=xlFormulas, LookAt:=xlPart, > SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) > > > Pour chaque onglet d'un classeur > je voudrai récupérer dans une feuille "recap" les infos des cellules > remplies situées entre la ligne où il y a le mot "fabrication" et la ligne > "ingrédients" > > ces info sont en colonne B,C,D et débute 3 lignes après la ligne > fabrication > > Idem pour pour des infos situées entre la ligne ou il y a le mot > "ingrédient" et la ligne "poussage / etuvage / séchage" > |
| |
| |
|
| Tags: entre, infos, lignes, recherche |
| Outils de la discussion | |
| Modes d'affichage | |
| |
| ||||
| Discussion | Auteur | Forum | Réponses | Dernier message |
| somme de lignes entre deux mots | Cyr13 | Newsgroup microsoft.public.fr.excel | 9 | 09/08/2008 15h11 |
| quand plusieurs lignes ont les mêmes infos n'afficher que la 1ère | a-dona | Newsgroup microsoft.public.fr.excel | 2 | 15/04/2008 10h59 |
| [GRUF] Entre les lignes & Ã demi-mots | R.Grufie | Newsgroup fr.misc.bavardages.dinosaures | 0 | 14/08/2007 03h00 |
| [GRUF] Entre les lignes & Ã demi-mots | R.Grufie | Newsgroup fr.rec.humour.selection | 0 | 23/06/2006 02h59 |
| entre les lignes..... | Indicaman | Newsgroup fr.soc.drogues | 0 | 03/02/2005 20h39 |
Mode linéaire
