Discussion :

[RemiT]

Bonjour a tous,

Voilà, j'ai un fichier Excel; je voudrais faire une recherche sur une seule colonne sachant que le mot recherché apparait aussi dans d'autres colonnes... j'imagine qu'il il y a une option de restriction de recherche mais laquelle.

Ma seconde question est : est ce que je peux faire une recherche par exemple rechercher des entiers ( integer ) sur cette meme colonne ??

Merci d'avance pour votre réponse

[Junness]

utilise la fonction find (présente dans l'aide en ligne)

[RemiT]

J'imagine bien que je ne vais pas utiliser la fonction somme pour faire une recherche... je suis pas tres bon en prog mais bon... faut pas exagerer...

pour l'instant j'utilise cette fonction :

Code :

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

1
2
Range("A:A").Select
Cells.Find(What:="Item", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False , SearchFormat:=False).ClearContents

ce qui ne contient aucune restriction malgrès le range.select avant la recherche...

[SfJ5Rpw8]

tu n'as pas besoin de select !!

Code :

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

1
2
3
4
 
Range("A:A").Find(What:="Item", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False , SearchFormat:=False).ClearContents
 
.

[RemiT]

Je te remercie Bbil,

Je voudrais faire tourner ça jusqu'a ce qu'il n'y est plus de "Item" dans cette colonne uniquement. j'utilise un "Do Until" mais je ne trouve pas la bonne condition...

Code :

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

Do Until Cells.Find(What:="Item") = False

Ma demande sur la recherche d'entier ( integer ) reste valable...

Merci

[conconbrr]

Salut RemiT,

Au lieu de faire un do until je te propose plutôt de sélectionner juste ce qu'il te faut en écrivant :

Code :

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

worksheets(nom).range(worksheets(nom).range("debut").address & ":" & worksheets(nom).range("debut").end(xldown).address)

à la place de range("a:a")

ou nom est le nom de ta feuille et debut le nom de la première case de ta colonne (par exemple a1).
Ce que je viens de te donner ne marche que s'il n'y a pas de case vide dans ta colonne.

Sinon tu pourrais créer un tableau (en rentrant chaque valeur de cellule de ta colonne comme un élément du tableau) puis en testant chaque valeur du tableau par rapport à ta condition :

Code :

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

1
2
3
4
5
for i=1 to ubound(tableau)
if tableau(i)="item" then
CE QUE TU VEUX FAIRE
endif
next i

[RemiT]

merci pour ton aide conconbrr

la 1ere solution ne fonctionne pas dans la mesure où j'ai des cases vides dans ma colonne

Pour la 2nde solution, le probleme est que je ne sais pas combien de lignes j'ai dans mon tableau et donc une "boucle pour" est proscrite.

Il n'existe vraiment pas de fonction du style :

Code :

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

1
2
3
4
5
'Do Until Cells.Find(What:="Item") = False
'
'TRAITEMENT
'
'loop

[conconbrr]

Essaie ça :

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
Option Explicit
 
Sub test()
 
    Dim J As Integer
 
    Do Until Worksheets(1).Range("a1").Offset(J, 0).Value = "item"
 
        J = J + 1
 
    Loop
 
    MsgBox "L'adresse de la case est :" & Worksheets(1).Range("a1").Offset(J, 0).Address & Chr(10) & "Et sa valeur :" & Worksheets(1).Range("a1").Offset(J, 0).Value
 
End Sub

[AlainTech]

utilise la fonction find (présente dans l'aide en ligne)

J'imagine bien que je ne vais pas utiliser la fonction somme pour faire une recherche... je suis pas tres bon en prog mais bon... faut pas exagerer...

Pas besoin de rabrouer ceux qui cherchent à t'aider!

Si tu avais posté ton code dans ton premier message, ce genre de remarque n'aurait pas été nécessaire.

De plus, si tu utilisais les balises [code], je ne devrais pas passer derrière toi pour les mettre et j'aurais, peut-être, du temps pour te répondre.