Macro excell - recherche dans un tableau

balise [code]

Utilise la balise [code]. Les lignes de code seront alors numérotées. Dis-nous alors à quelle ligne le prg plante.

Dim xCellule As Range 

Dim xSelection As String 

Dim Message As String 

 
'Crée une boîte de dialogue : 

  Message = InputBox(" Entrez la date  : ", "Mon Programme", "01/mm/aaaa") 

 
 
'Arrête procédure si utilisateur clique sur annuler 

If Message = "   " Then Exit Sub 

 
'Place la valeur dans la cellule A1; 

'Worksheets("feuil2").Range(" A1 ").Value = Message 

 
'Sélectionner le tableau : 

'sélectionner toutes les cellules du tableau : 

 
Selection.Worksheet.UsedRange.Select 

 
'activer la dernière cellule du tableau 

Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count).Activate 

 
'Recherche " Message " dans le tableau : 

 
For Each xCellule In Selection 

    If xCellule.Value = Message Then 

        xSelection = xSelection & xCellule.Address & "," 

    End If 

Next 

    If Len(xSelection) > 0 Then 

        Range(Left(xSelection, Len(xSelection) - 1)).Select 

    End If

Le message d'erreur concerne la ligne :
"Range(Left(xSelection, Len(xSelection) - 1)).Select"
Le message d'erreur affiché est :"La méthode 'range' de l'objet '_Global' a échoué"

merci beaucoup,  
j'esper que vous réussirez à me débloquer

Non, c'est toi (avec un peu d'assistance) qui va réussir à te débloquer  

Au moment du plantage, dans l'éditeur VBA, affiche dans la fenêtre Exécution Quel est le résultat ?

euuuh... lol tu m'as perdu  
tu veux que j'écrive dans la fenêtre d'exécution qui se trouve dans l'éditeur VBA :

Print xSelection, Len(xSelection), Left(xSelection, Len(xSelection) - 1)

?

la fenêtre exécution est située entre "débogage" et "outils" dans l'éditeur VBA c'est bien cela??? Je vois dans cette fenêtre qu'il y a trois choix qui s'affichent : "continuer, réinitialiser, mode création"? Je ne vois pas où j peux rentrer la ligne de code que tu m'a donné  

désolé lol, je dois surement ne pas avoir bien compris les directives que tu m'as donné  

Au moment du plantage, tu devrais avoir un message qui te propose : Continuer, Fin, Débogage. Choisi Débogage. L'éditeur VBA s'ouvre et il met en surbrillance la ligne incriminée.

Je ne sais pas comment sont arrangées tes fenêtres. Fais [CTRL+G], tu devrais être dans la fenêtre Exécution. Tape z'y Print .. puis [ENTER] (Print ou ? c'est pareil) et observe le résultat.

Sinon, tu peux toujours ajouter dans ton code, juste avant la ligne qui pose problème, la ligne suivante :

Debug.Print xSelection, Len(xSelection), Left(xSelection, Len(xSelection) - 1)

Salut Zeb,
Je viens à l’instant de taper la ligne de code que tu m’as passée, et j’ai pu observer dans l’exécution que toutes les adresses des cellules dans lesquelles figure le mot recherché sont affichées.

(540 adresses sont affichées).

C'est fait exprès.
Que dit la dernière avant plantage ?

voici, je pense, le moment où cela plante :

$C$13,$C$14,$C$15 [...] $C$1065, 2935 $C$13[...] $C$1065

il y a '2935' qui s'affiche au lieu de l'adresse (sachant que la dernière adresse est :$C$1065); et on dirait que les adresses se répètent à nouveau.

zeb si ma réponse est incomplète ou que tu as besoin de savoir d'autres choses, n'hésite pas à me demander...
merci d'avance

Ok.
pour me faire plaisir, mets-nous l'avant dernière ligne et la dernière au grand complet ! si, si, les 6000 caractères

$C$12,$C$13,$C$14,$C$15,$C$16,$C$31,$C$32,$C$33,$C$34,$C$35,$C$36,$C$37,$C$38,$C$39,$C$40,$C$41,$C$42,$C$43,$C$65,$C$66,$C$67,$C$68,$C$69,$C$70,$C$71,$C$72,$C$73,$C$74,$C$75,$C$76,$C$88,$C$89,$C$90,$C$91,$C$92,$C$107,$C$108,$C$109,$C$110,$C$111,$C$112,$C$113,$C$114,$C$115,$C$116,$C$117,$C$118,$C$119,$C$141,$C$142,$C$143,$C$144,$C$145,$C$146,$C$147,$C$148,$C$149,$C$150,$C$151,$C$152,$C$164,$C$165,$C$166,$C$167,$C$168,$C$184,$C$185,$C$186,$C$187,$C$188,$C$189,$C$190,$C$191,$C$192,$C$193,$C$194,$C$195,$C$196,$C$217,$C$218,$C$219,$C$220,$C$221,$C$222,$C$223,$C$224,$C$225,$C$226,$C$227,$C$228,$C$240,$C$241,$C$242,$C$243,$C$244,$C$259,$C$260,$C$261,$C$262,$C$263,$C$264,$C$265,$C$266,$C$267,$C$268,$C$269,$C$270,$C$271,$C$293,$C$294,$C$295,$C$296,$C$297,$C$298,$C$299,$C$300,$C$301,$C$302,$C$303,$C$304,$C$316,$C$317,$C$318,$C$319,$C$320,$C$335,$C$336,$C$337,$C$338,$C$339,$C$340,$C$341,$C$342,$C$343,$C$344,$C$345,$C$346,$C$347,$C$369,$C$370,$C$371,$C$372,$C$373,$C$374,$C$375,$C$376,$C$377,$C$378,$C$379,$C$380,$C$392,$
C$393,$C$394,$C$395,$C$396,$C$411,$C$412,$C$413,$C$414,$C$415,$C$416,$C$417,$C$418,$C$419,$C$420,$C$421,$C$422,$C$423,$C$445,$C$446,$C$447,$C$448,$C$449,$C$450,$C$451,$C$452,$C$453,$C$454,$C$455,$C$456,$C$468,$C$469,$C$470,$C$471,$C$472,$C$488,$C$489,$C$490,$C$491,$C$492,$C$493,$C$494,$C$495,$C$496,$C$497,$C$498,$C$499,$C$500,$C$521,$C$522,$C$523,$C$524,$C$525,$C$526,$C$527,$C$528,$C$529,$C$530,$C$531,$C$532,$C$544,$C$545,$C$546,$C$547,$C$548,$C$564,$C$565,$C$566,$C$567,$C$568,$C$569,$C$570,$C$571,$C$572,$C$573,$C$574,$C$575,$C$576,$C$597,$C$598,$C$599,$C$600,$C$601,$C$602,$C$603,$C$604,$C$605,$C$606,$C$607,$C$608,$C$620,$C$621,$C$622,$C$623,$C$624,$C$640,$C$641,$C$642,$C$643,$C$644,$C$645,$C$646,$C$647,$C$648,$C$649,$C$650,$C$651,$C$652,$C$673,$C$674,$C$675,$C$676,$C$677,$C$678,$C$679,$C$680,$C$681,$C$682,$C$683,$C$684,$C$696,$C$697,$C$698,$C$699,$C$700,$C$716,$C$717,$C$718,$C$719,$C$720,$C$721,$C$722,$C$723,$C$724,$C$725,$C$726,$C$727,$C$728,$C$749,$C$750,$C$751,$C$752,$C$753,$C$754,$C$755,$C$756,$C$757,$C
$758,$C$759,$C$760,$C$772,$C$773,$C$774,$C$775,$C$776,$C$792,$C$793,$C$794,$C$795,$C$796,$C$797,$C$798,$C$799,$C$800,$C$801,$C$802,$C$803,$C$804,$C$825,$C$826,$C$827,$C$828,$C$829,$C$830,$C$831,$C$832,$C$833,$C$834,$C$835,$C$836,$C$848,$C$849,$C$850,$C$851,$C$852,$C$868,$C$869,$C$870,$C$871,$C$872,$C$873,$C$874,$C$875,$C$876,$C$877,$C$878,$C$879,$C$880,$C$901,$C$902,$C$903,$C$904,$C$905,$C$906,$C$907,$C$908,$C$909,$C$910,$C$911,$C$912,$C$924,$C$925,$C$926,$C$927,$C$928,$C$944,$C$945,$C$946,$C$947,$C$948,$C$949,$C$950,$C$951,$C$952,$C$953,$C$954,$C$955,$C$956,$C$977,$C$978,$C$979,$C$980,$C$981,$C$982,$C$983,$C$984,$C$985,$C$986,$C$987,$C$988,$C$1000,$C$1001,$C$1002,$C$1003,$C$1004,$C$1020,$C$1021,$C$1022,$C$1023,$C$1024,$C$1025,$C$1026,$C$1027,$C$1028,$C$1029,$C$1030,$C$1031,$C$1032,$C$1053,$C$1054,$C$1055,$C$1056,$C$1057,$C$1058,$C$1059,$C$1060,$C$1061,$C$1062,$C$1063,$C$1064, 2935
$C$12,$C$13,$C$14,$C$15,$C$16,$C$31,$C$32,$C$33,$C$34,$C$35,$C$36,$C$37,$C$38,$C$39,$C$40,$C$41,$C$42,$C$43,$C$65,$C$66,$C$67,$C$68,$C$69,$C$70,$C$71,$C$72,$C$73,$C$74,$C$75,$C$76,$C$88,$C$89,$C$90,$C$91,$C$92,$C$107,$C$108,$C$109,$C$110,$C$111,$C$112,$C$113,$C$114,$C$115,$C$116,$C$117,$C$118,$C$119,$C$141,$C$142,$C$143,$C$144,$C$145,$C$146,$C$147,$C$148,$C$149,$C$150,$C$151,$C$152,$C$164,$C$165,$C$166,$C$167,$C$168,$C$184,$C$185,$C$186,$C$187,$C$188,$C$189,$C$190,$C$191,$C$192,$C$193,$C$194,$C$195,$C$196,$C$217,$C$218,$C$219,$C$220,$C$221,$C$222,$C$223,$C$224,$C$225,$C$226,$C$227,$C$228,$C$240,$C$241,$C$242,$C$243,$C$244,$C$259,$C$260,$C$261,$C$262,$C$263,$C$264,$C$265,$C$266,$C$267,$C$268,$C$269,$C$270,$C$271,$C$293,$C$294,$C$295,$C$296,$C$297,$C$298,$C$299,$C$300,$C$301,$C$302,$C$303,$C$304,$C$316,$C$317,$C$318,$C$319,$C$320,$C$335,$C$336,$C$337,$C$338,$C$339,$C$340,$C$341,$C$342,$C$343,$C$344,$C$345,$C$346,$C$347,$C$369,$C$370,$C$371,$C$372,$C$373,$C$374,$C$375,$C$376,$C$377,$C$378,$C$379,$C$380,$C$392,$
C$393,$C$394,$C$395,$C$396,$C$411,$C$412,$C$413,$C$414,$C$415,$C$416,$C$417,$C$418,$C$419,$C$420,$C$421,$C$422,$C$423,$C$445,$C$446,$C$447,$C$448,$C$449,$C$450,$C$451,$C$452,$C$453,$C$454,$C$455,$C$456,$C$468,$C$469,$C$470,$C$471,$C$472,$C$488,$C$489,$C$490,$C$491,$C$492,$C$493,$C$494,$C$495,$C$496,$C$497,$C$498,$C$499,$C$500,$C$521,$C$522,$C$523,$C$524,$C$525,$C$526,$C$527,$C$528,$C$529,$C$530,$C$531,$C$532,$C$544,$C$545,$C$546,$C$547,$C$548,$C$564,$C$565,$C$566,$C$567,$C$568,$C$569,$C$570,$C$571,$C$572,$C$573,$C$574,$C$575,$C$576,$C$597,$C$598,$C$599,$C$600,$C$601,$C$602,$C$603,$C$604,$C$605,$C$606,$C$607,$C$608,$C$620,$C$621,$C$622,$C$623,$C$624,$C$640,$C$641,$C$642,$C$643,$C$644,$C$645,$C$646,$C$647,$C$648,$C$649,$C$650,$C$651,$C$652,$C$673,$C$674,$C$675,$C$676,$C$677,$C$678,$C$679,$C$680,$C$681,$C$682,$C$683,$C$684,$C$696,$C$697,$C$698,$C$699,$C$700,$C$716,$C$717,$C$718,$C$719,$C$720,$C$721,$C$722,$C$723,$C$724,$C$725,$C$726,$C$727,$C$728,$C$749,$C$750,$C$751,$C$752,$C$753,$C$754,$C$755,$C$756,$C$757,$C
$758,$C$759,$C$760,$C$772,$C$773,$C$774,$C$775,$C$776,$C$792,$C$793,$C$794,$C$795,$C$796,$C$797,$C$798,$C$799,$C$800,$C$801,$C$802,$C$803,$C$804,$C$825,$C$826,$C$827,$C$828,$C$829,$C$830,$C$831,$C$832,$C$833,$C$834,$C$835,$C$836,$C$848,$C$849,$C$850,$C$851,$C$852,$C$868,$C$869,$C$870,$C$871,$C$872,$C$873,$C$874,$C$875,$C$876,$C$877,$C$878,$C$879,$C$880,$C$901,$C$902,$C$903,$C$904,$C$905,$C$906,$C$907,$C$908,$C$909,$C$910,$C$911,$C$912,$C$924,$C$925,$C$926,$C$927,$C$928,$C$944,$C$945,$C$946,$C$947,$C$948,$C$949,$C$950,$C$951,$C$952,$C$953,$C$954,$C$955,$C$956,$C$977,$C$978,$C$979,$C$980,$C$981,$C$982,$C$983,$C$984,$C$985,$C$986,$C$987,$C$988,$C$1000,$C$1001,$C$1002,$C$1003,$C$1004,$C$1020,$C$1021,$C$1022,$C$1023,$C$1024,$C$1025,$C$1026,$C$1027,$C$1028,$C$1029,$C$1030,$C$1031,$C$1032,$C$1053,$C$1054,$C$1055,$C$1056,$C$1057,$C$1058,$C$1059,$C$1060,$C$1061,$C$1062,$C$1063,$C$1064

voili
qu'en penses tu? )

Zeb, si il y a d'autres indications que tu souhaites n'hésite pas à me demander.  
En tout cas je te remercie beaucoup de m'aider spontanément  
Passe uen bonne soirée;
tibss

 

Je crois que tu viens simplement de découvrir que la pensée humaine est infinie, mais que les ordinateurs sont des machines finies.
Tu prétends aller au delà des capacités d'Excel, c'est tout. Il faut donc faire autrement.

Par ailleurs, en observant tes données, pour l'étude, j'ai viré les $, les C, les virgules et le 1 de mille et je constate qu'il a des cellules qui se suivent.


J'ai vérifié, même en écrivant "C12:C16..." au lieu de "$C$12,$C$13,$C$14,$C$15,$C$16...", ce qui ramène la longueur du texte de ~3000 caractères à ~ 400, ça plante au même endroit. Il semble que ce soit la complexité de la zone qui pose problème.

Il faut repenser ton programme.

Désolé...

Merci Zeb,
je pense que je vais modifier mon pgm.
Le but de ce dernier était de sélectionner les éléments recherchés, de sélectionner les lignes entières sur lesquelles les éléments recherchés se trouvent, et de les recopier sur une autre feuille.

Pour cela, le programme donnait :

Dim xCellule As Range

Dim xSelection As String

Dim Message As String

 
'Crée une boîte de dialogue :

  Message = InputBox(" Entrez la date  : ", "Mon Programme", "01/mm/aaaa")

 
'Arrête procédure si utilisateur clique sur annuler

If Message = "" Then Exit Sub

 
'sélectionner toutes les cellules du tableau :

 
Selection.Worksheet.UsedRange.Select

 
'Recherche " Message " dans le tableau :

 
For Each xCellule In Selection

    If xCellule.Value = Message Then

        xSelection = xSelection & xCellule.Address & ","

    End If

 
Next

    If Len(xSelection) > 0 Then

        Range(Left(xSelection, Len(xSelection) - 1)).Select

    End If

 
'sélection de la ligne à partir de la sélection d'une celule

Selection.EntireRow.Select

 
'permet de copier et coller une ligne sur une autre feuille

Selection.Copy

Sheets("Feuil2").Select

k = ActiveSheet.UsedRange.SpecialCells(xlLastCell).End(xlToLeft).Row + 1

Cells(k, 1).Select

ActiveSheet.Paste

Le problème principal est, comme nous l'avons vu, que la recherche en marche pas pour un grand tableau.
Ce que pensais faire maintenant c’est sélectionner et recopier chaque ligne qui correspond à la cellule contenant l’élément recherché. Une fosi que la ligne a été recopiée, on recherche la cellule suivante et on recopie sa ligne... et ainsi de suite jusqu'à ce que toutes les lignes contenant les éléments recherchés soient recopiés. Comme cela il n’y aurait pas de saturation au niveau de la mémoire…
Le pbm est que je ne sais pas trop comment m’y prendre.
J’ai pensé à un pgm qui en marche pas pour la recherche de dates :

Sub Macro1()

'

Dim Message As String

 
'Crée une boîte de dialogue :

  Message = InputBox(" Entrez la date  : ", "Mon Programme", "01/mm/aaaa")

 
'Arrête procédure si utilisateur clique sur annuler

If Message = "" Then Exit Sub

 
Set Plage = ActiveCell.CurrentRegion

    With Plage

    .Find(What:=Message, After:=ActiveCell, LookIn:=xlFormulas _

        , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

        MatchCase:=False).Activate

     End With

Set Plage = Nothing

'

End Sub

Ce programme marche très bien pour la recherche de mots, mais cela bug pour la recherche de dates.
Dans mon tableau excel, les dates sont sous la forme : févr-2005 ou juin-2006. Quand on tape la date il faut écrire par ex : 01/02/2005, et excel converti automatiquement cette date en févr-2005. Ainsi, lorsqu’on fait une recherche, il faut rechercher 01/02/2005 et non pas févr-2005.
Ce type de recherche marchait très bien avec le programme précédent, mais avec le dernier, il y a un bug lorsque je fais ce type de recherche…

Donc je suis vraiment bloqué…  
Si tu pouvais me dépanner ca me sauverait, surtt ke je suis novice dc c pas facile... merci bcp

Quand tu ne sais pas quelque chose, avant de me le demander, demande le à Excel.

Va dans la fenêtre Exécuter et tape

Tu verras comment est représentée une date  

? Range("k1").Value
01/01/2005

(ce qui correspond janv-05 dans le tableau)
et c'est pour celà que lorsque je fait une recherche, je la fait sous la forme 01/01/2005 pour janv-05 par exemple.
Si j'avais à rechercher févr-2005 je ferai une recherche 01/02/2005.

Voilà. Malgré celà, la recherche est infructueuse.
ej n esais pas comment déclarer "plage" aussi.
Donc voili

Bonjour a tous,

je debute sur vba et aurais besoin d'aide pour programmer une macro.

je vous explique:
j'ai feuil1 (qui est ma source de donnees) avec en colonne A les noms de 9 sites, en colonne B des numeros de serie et en colonne D des quantites.
Il y a des doublons car le meme numero de serie peut apparaitre dans chaque site.

Je souhaite renvoye les quantites sur une nouvelle feuille (feuil2) mais en separant les noms de sites par colonne.
Cela m'evite les doublons.
le numero de serie est en colonne A, les quantites s'inscrivent dans 9 colonnes correspondant aux 9 sites que je separe.

La macro doit donc garder les quantites en fonction du site mais aussi du numero de serie.

En plus si un nouveau numero de serie apparait dans feuil1, la macro doit pouvoir l'inserer automatiquement dans feuil2.
Et si un numero de serie disparait dans feuil1, la valeur 0 doit apparaitre dans feuil2.

Si vous pouviez m'aider, merci.

crée un nouveau sujet, pas la peine de poluer les autres