Discussion :

[tibss]

Salut tout le monde, je suis nouveau sur ce forum,
j'essaie de réaliser une macro de recherche via une inputbox sous excell. Le programme que j'ai réalisé pour l'instant ne marche que sur un petit classeur; pour un classeur de plus de 1500 lignes (et une dixaine de colonnes), cela ne marche pas et celà affiche cette erreur : "La méthode 'Range' de l'objet _Global a échoué" . Voici le pgm :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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

Quelqu'un saurait-il me dire comment résorber ce problème?
merci d'avance

[SfJ5Rpw8]

tu est sur de ton message d'erreur ? déjà sa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Worksheet.UsedRange.Select

c'est incorrect !

[AlainTech]

Je suppose que, dans tes 1500 lignes tu as trop de fois la date recherchée et que donc la sélection de cellules non-contiguës échoue.

Ceci dit, ça ne répondra peut-être pas à ta question mais, pourquoi cherches-tu à sélectionner toutes les cellules qui correspondent à ta date?

Quel traitement veux-tu faire?

Il y a certainement moyen de faire ce traitement sans sélection.

[ouskel'n'or]

Regarde la fonction find, je pense qu'elle est plus adaptée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
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

A+

[SfJ5Rpw8]

? c'est un multi post ou mon message à été effacé ? il me semble avoir déjà répondu que le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Selection.Worksheet.UsedRange.Select

été incorrect.. et qu'il ne correspondé pas au message d'erreur donné

[tibss]

Merci à tous les deux d’avoir répondu ;
Pour Bbil : "Selection.Worksheet.UsedRange.Select" : cela permet de sélectionner un tableau. Connais tu un autre moyen pour sélectionner un tableau (lorsque tu ne connais pas les cellules ni leur emplacement)?
Pour Alintech : oui, je suis obligé de faire une application qui sélectionne plusieurs cellules en même temps, afin de faire une recopie.
Il est nécessaire que la personne rentre la date recherchée via une inputbox. Le message qu’elle a écrit est sélectionné et est cherché à travers le tableau. Une fois que les différentes cellules contenant ce message sont sélectionnées, j’ai fait une macro qui permet de sélectionner les lignes sur lesquelles se trouvent les cellules sélectionnées et de les recopier sur une autre feuille.
Et donc Alintech, je voudrais savoir, sais tu comment je pourrais faire pour sélectionner un si grand nombre de cellules sans que cela échoue ?

Merci bcp

[SfJ5Rpw8]

tu est sur de ton message d'erreur ? déjà sa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Worksheet.UsedRange.Select

c'est incorrect !

désolé même si ce code ne me plait pas ... il marche !! , enfin dans certain cas... cela dépend , de la sélection au moment ou on lance la macro...

[ouskel'n'or]

Si tu te places dans une cellule renseignée de la plage que tu veux "ausculter", CurrentRegion te donne cette plage.
AlainTech t'a par ailleurs indiqué qu'une sélection n'était pas nécessaire

Tu dis

[tibss]

Salut tout le monde, donc pour résumer, le but de ce programme est de permettre à l'utilisateur, via une inputbox, de sélectionner le mot qu'elle souhaite rechercher dans le tableau. Ainsi, le programme va sélectionner le tableau sur lequel va s'effectuer la recherche, et (sur la sélection) toutes les cellules contenant le mot recherché seront sélctionnées. Il est nécessaire pour la suite de mon programme que cela s'effectue comme cela.

Donc cela donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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

Je te remercie Ouskel'n'or de m'avoir donné une solution. J'ai essaye de l'appliquer sous cette forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  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; (peut être faut il le mettre sur une autre
' feuille pour faciliter les recherches sur les tableaux)
' Worksheets("feuil2").Range(" A1 ").Value = Message
' Sélectionner le tableau :
 
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

Mais cela n'a pas été très fructueux. J'ai aussi l'impression que cela ne permet pas de sélectionner plusieurs cellules à la fois.
Voilà, je suis vraiement désolé, je débute sur les macros et en vba alors je ne suis pas très bon pour adapter les informations que l'on me communique lol.
Donc si ej n'ai pas compris certaines choses, merci encore de me l efaire savoir.

En tout cas, merci à vous tous qui m'avez répondu

[ouskel'n'or]

As-tu remarqué que dans cette ligne,

If Message = " " Then Exit Sub

tu as placé un espace. Annuler dans InputBox renvoie une chaîne vide soit "" et non " " (nulle dit l'aide)

A toutes fins utiles et à tout hasard

A+

[tibss]

lol merci Ouskel'n'or
j'ai effectué la modification.

Tiens moi au courant si tu as une idée pour modifier le code de telle manière que l'erreur disparaisse . (je crois que ce problème est lié à ce que disais Alaintech, c'est à dre un trop grand nombre de cellules sont sélectionnées) car ce pgrm marche pour les petits tableaux)

bonne soirée et à bientôt j'esper

[tibss]

Sub Macro1()
'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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

Le pbm, c'est qu'avec ce programme, je ne peux pas sélectionner les dates de type : 01/02/2005. par exemple, dans une cellule il y a févr_2005, avec l'ancien pgrm je pouvais faire rechercher 01/02/2005 et je tombais sur la cellule recherchée.

Je pense pas que ce soit très dur à corriger, mais sikkn pouvais m'aider

[ouskel'n'or]

Pour faire une recherche sur n'importe quelle date, formatée ou non, le minimum est que ce soit une date. Or "Févr_2005" n'est pas un des formats Excel par défaut (vba 97).
Tu peux créer un format personnalisé "mmm_yyyy"
J'ai fait quelque essais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Format(Now, "mmm_yyyy") 'Affiche le format demandé

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Cells(1,1).value = Format(Now, "mmm_yyyy") 'insère bien "avr_2005"

Par contre, si tu appliques le format sur une celule, la date n'est pas reconnue comme telle. Ça c'est bon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Cells(15, 12) = Format(Now, "mmm yyyy")
LaDate = Cells(15, 12).Value
MsgBox Format(CDate(LaDate), "mmmm yyyy") ' OK

MAIS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Cells(15, 12) = Format(Now, "mmm_yyyy")      'OK
LaDate = Cells(15, 12).Value                         'OK
MsgBox Format(CDate(LaDate), "mmmm yyyy") 'ERREUR

c'est pas bon

Et donc, si tu veux uniformiser ta recherche sur les dates, je ne vois pas de solution, sauf à modifier les dates aux formats "fantaisistes"

Vu que je n'ai pas la solution j'aurais pu me dispenser de répondre mais ainsi tu sais ce qui ne fonctionne pas

Bonne chance

A+

[tibss]

Salut tout le monde,
je suis novice en macro excel; et j’ai deux petits pbm à résoudre :
Je dois faire une recherche dans un tableau contenant un très grand nombre de lignes (1500).
J’avais un pgrm qui marchait très bien sur les petits tableaux, mais qui était limité de par la mémoire.
Ainsi, grâce à ‘Ouskel’n’or’, j’ai pu géré un pti pgrm qui fait une recherche via une inputbox.
Cela donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.
Le pbm c’est qu’il y a un bug lorsque je fait ce type de recherche avec ce pgm… et je en sais pas pkoi
Dc si kkn pouvait me dépanner ca seré sympa
Mon 2ème petit souci est le suivant :
Le but de ce pgm étant de recopier toutes les lignes correspondant à la date recherchée, sur une autre feuille excel.
J’ai fait une application qui permet la sélection de toute une ligne lorsque une cellule est sélectionnée, et un syst de recopie sur une autre feuille.
Cela donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
‘sélectionner les lignes à partir d’une sélection
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 but étant de recopier toutes les lignes contenant la date recherchée sur une autre feuille,
J’avais pensé à une boucle qui dit kkchse comme : tant qu’il y a un élément dans une cellule qui correspond à l’élément recherché alors continuer la recherche, si il n’y a plus d’élement : arrêter.
Le pbm est que je n’arrive pas à le mettre en forme

Merci d'avance a ceux qui pourront me venir en aide

[romrai]

Salut,

1/pour ta prmière question, t'a pas déclaré l'objet plage, je pense que le problème vient de là

2/ pour le second, j'ai pas très bien compris; mais de ce que j'ai compris, tu peux utiliser la boucle Do.............While

[tibss]

Lorsque je déclare plage, ca me met : "erreur de compliation objet requis". En quoi faudrait il que je le déclare?
merci

[illight]

il faut que tu le déclare comme "Range"

[ouskel'n'or]

Hello tibss,

Comme le second message était la suite du premier, je les ai fusionnés.
Pour la déclaration de plage, là n'est pas le pb, mais effectivement, déclare-la comme variant, tu n'auras pas d'erreur à ce niveau.
Tu dis maintenant que le format des dates est "févr-2005", tout à l'heure, c'était févr_2005

Dans ce cas là, c'est beaucoup plus simple. Teste ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim message As Date
LaDate = "01-" + "Févr-2005"
message = Format(CDate(LaDate), "dd mm yyyy")
MsgBox message

Et là tu recherche message

A+

[tibss]

personne n'a d'idées pour résoudre mon pbm?

[tibss]

oui, c'est ce que j'avais fait par la suite, j'avais défini plage en tant que range et message en tant que string. Mais cela continue de bugger.

En ce qui concerne ton pgm ouskel'n'or, j'ai pas tt compris. Il permet d'afficher le 1er février ds une message box. Cela n'est pas tt à fait en rapport avec le pgm ek ej veux qfaire.
Moi je veux saisir n'importe quelle date à travers une input box, et faire la recherche de cette date dans n'importe quel tableau excell

voili la difficulté