Discussion :

[bungler]

Bonjour,

Je voudrais réaliser une recherche dans un feuillet à l'aide d'une inputbox et ensuite copier les lignes correspondantes dans un nouveau feuillet.
Je recherche le mot Avion dans Feuil1 -> Toutes les lignes contenant le mot Avion sont automatiquement copiées dans Feuil2.

J'ai essayé plusieurs choses mais je ne parvient pas à aboutir.

Merci de votre aide.
Lilian

[Azounet1529]

Salut !
Pour la recherche je te propose une autre solution que les input box, à toi de voir si ça te convient !

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
Worksheets("mafeuill").Activate
    Dim cellule As Range
    Dim D As Range
    Dim i As integer
    i = 1
    For Each cellule In Worksheets("mafeuill").Range("A1", Range("A1").End(xlDown))
        If cellule.Value = "Avion" Then
            cellule.entireRow.Copy worksheets("mafeull2").range("A" & i)
            i = i+1
            set D = cellule
        End If
        Next
    If D Is Nothing Then
            MsgBox ("Pas d'avion dans le coin !")
            Exit Sub
    End If

Ca devrait marcher mais je l'ai pas testée...
S'il y a des erreurs, et c'est fort possible, dis-moi ce que c'est, ça m'intéresse !

En espérant t'avoir aider !

Az

[bungler]

Déjà merci, l'algorithme fonctionne et il ne semble pas y avoir d'erreurs.
Neanmoins, il ne semble fonctionner que si la cellule ne contient que le mot avion... Si la cellule contient d'autres mots, on passe directement à

Code :

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

1
2
3
            If D Is Nothing Then
            MsgBox ("Pas d'avion dans le coin !")
            Exit Sub

Aurais-tu également une solution pour cela ?

Merci

[Azounet1529]

Oui je pense que tu peux utiliser l'opérateur LIKE comme ça :

Code :

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

1
2
 
If cellule.Value like "*Avion*" Then

Et là il va regarder si ta contient le mot avion parmis d'autres.
(Par je ne suis pas hyper au courant de la gestion des majuscules...)

En espérant avoir répondu à tes attentes !

Az

PS : Utilises la balise # dans la barre d'outils pour afficher du code, ça facilite la lecture ;-)

[jfontaine]

Une autre solution pour savoir si une chaine de caractère contient une autre chaine

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim trouve As Long
 
trouve = InStr(1, Range("A18").Value, "avion", vbTextCompare)
 
If trouve > 0 Then
    MsgBox "il y a un avion"
 
Else
    MsgBox "pas d'avion"
 
End If

[bungler]

Merci encore, cela fonctionne à merveille.
Une dernière chose, cette macro est destinée à des employés qui souhaitent effectuer une recherche dans le document. J'ai donc inséré un bouton pour lancer la macro et je voudrais qu'elle fasse apparaitre une inputbox où il pourraient saisir le mot clé recherché. J'ai essayé ceci :

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
 
Private Sub Bouton1_QuandClic()
 
Worksheets("Feuil1").Activate
 
    Dim cellule As Range
    Dim j As Range
    Dim i As Integer
    Dim mot As String
 
    mot = InputBox("sss")
 
    i = 1
        For Each cellule In Worksheets("Feuil1").Range("D4", Range("D4").End(xlDown))
           If cellule.Value Like "*mot*" Then
                cellule.EntireRow.Copy Worksheets("Feuil2").Range("A" & i)
                i = i + 1
                Set j = cellule
            End If
        Next
 
    If j Is Nothing Then
            MsgBox ("Mot introuvable !")
            Exit Sub
    End If
 
End Sub

mais cela ne semble pas fonctionner

[Azounet1529]

Je ne suis pas un pro de VbA mai j'ai une inputBox qui fonctionne je t'en fait donc profiter !!! Je l'ai trouver dans un tuto de ce site je ne me souviens plus lequel.

Code :

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

1
2
3
4
5
6
7
8
Dim P As String
    On Error Resume Next
    Set P = Application.InputBox("Sélectionnez le mot que vous cherchez", Type:=2)
    On Error GoTo 0
    If P Is Nothing Then
            MsgBox ("Annulé")
            Exit Sub
    End If

Celle-là est adaptée pour toi masi l'original est là http://vb.developpez.com/faqvba/?page=3.4.2#rangeselect

(En fait je l'ai retrouvé!!)
Type:=2, c'est pour une chaine de caractère

Voilà n'hésite pas à redemander si tu veux encore de l'aide, je viens de réaliser un projet qui ressemble un peu au tien alors si je peux t'aider...


Az

[Azounet1529]

Je viens de relire ton code et je pense qu'une erreur risque de se produire dans ton test conditionnel : tu défnies la variable mot comme une chaîne, tu ne dois donc plus mettre de double quote. Donc

Code :

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

if cellule.value like "*mot*"

doit, je pense mais sans avoir essayé, être changé en :

Code :

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

if cellule.value like "*" & mot & "*"

A tester !!!

[bungler]

Cela fonctionne avec la correction

Code :

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

"*" & mot & "*"

Merci beaucoup !! Rapide et efficace

[Azounet1529]

Content d'avoir pu t'aider si tout fonctionne comme tu veux alors n'oublie pas de cliquer sur le bouton Résolu !

A bientôt sur ce super Forum qui aide bien les gens en galère avec leur code...

Az