Problème recherche vba

Version imprimable

Bonjour,

Je voudrais que lorsque l'utilisateur rentre un n° dans une zone de texte
excel recherche dans une plage donnée ce n°, copie la cellule avant(même ligne) et la recopie dans une cellule d'une autre feuille

J'ai essayé ce code mais ma valeur de ma cellule est nulle

Code:

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
33
 
 
Private Sub cmdRecherche_Click()
Dim reponse, recherche As String
Dim plage As Range
Dim cell As Range
Dim fiche As String
 
 
recherche = txtRecherche
'Si txtrecherche est vide
If recherche = "" Then
reponse = MsgBox("Veuillez rentrer un N° Ats: Merci", vbOKCancel + vbExclamation, "Pas de N° Ats")
 If reponse = vbYes Then
     txtRecherche.SetFocus
    Exit Sub
 End If
End If
Feuil1.Select
Set plage = Feuil1.Range("C14:C238")
'Boucle sur la plage
For Each cell In plage
If cell.Value = recherche Then
cell.Select
 
fiche = Range(cell.Address).Offset(0, -1).Value
 
Feuil2.Range("A1").Value = fiche & Chr(10) & recherche
End If
Next cell
 
 
End Sub

une idée merci

16/05/2008, 18h15
zyhack
Bonjour

petite chose qui me parait bizarre déjà
à moins que Feuil1 et Feuil2 ne soient des variables de type worksheet

essaye en remplaçant
Code:

1 2 3 Feuil1. et Feuil2.
par
Code:

1 2 3 Worksheets("Feuil1"). ou Worksheets("Feuil2").
16/05/2008, 18h24
fring
Bonjour,

ceci

Code:

fiche = Range(cell.Address).Offset(0, -1).Value

tu peux l'écrire comme ceci

Code:

fiche = cell.Offset(0, -1).Value

A mon avis ta cellule reste vide parcequ'il ne trouve rien
A tout hazard fais ce petit test
Code:

1 2 3 4 5 6 7 8 For Each cell In plage If cell.Value = recherche Then fiche = Range(cell.Address).Offset(0, -1).Value MsgBox "trouvé !" Exit For End If Next cell MsgBox "fiche = " & fiche
EDIT : re zyhack, je vois que tu commences à taper plus vite au clavier :mouarf:
Tu peux utiliser Feuil1.Range("A1"), Feuil1 étant le CodeName de la feuille ;)

Bonsoir à tous

Sans la boucle, qui risque de prendre du "temps", je propose ceci :

Code:

1
2
3
4
5
Feuil1.Select
With Feuil1.Range("C14:C238")
    Set c = .Find(recherche, LookIn:=xlValues, Lookat:=xlWhole) '
End With
Feuil2.Range("A1").Value = Feuil1.Range("B" & c.Row).Value & Chr(10) & recherche

Eric

Bonjour,

ou encore ( presque idem solution edelweisseric, mais avec traitement du cas "non trouvé")

Code:

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
Private Sub cmdRecherche_Click()
Dim reponse$, recherche$, fiche$, ad$
Dim c as Range
 
 
recherche = txtRecherche
 
'Si txtrecherche est vide
If recherche = "" Then
reponse = MsgBox("Veuillez rentrer un N° Ats: Merci", vbOKCancel + vbExclamation, "Pas de N° Ats")
 If reponse = vbYes Then
     txtRecherche.SetFocus
    Exit Sub
 End If
End If
 
Sheets("Feuil1").Select
With Worksheets("Feuil1").Range("C14:C238")
Set c = .Find(recherche, LookIn:=xlValues, LookAt:=xlWhole)
End With
    If Not c Is Nothing Then
    ad = c.Address
    fiche = Range(ad).Offset(0, -1).Value
    Sheets("Feuil2").Range("A1").Value = fiche & Chr(10) & recherche
    Else
    MsgBox "La recherche a échoué : " & recherche & " non trouvé !"
    End If
Set c = Nothing
 
End Sub

16/05/2008, 18h50
stargates

merci por vos réponses

pour fring
j'ai essayé ton code , la cellule est bien vide(pas de valeur)
j'avais le même résultat en deboguant.

pour edelweisseric
je supose que c tu le déclare en object
mais j'ai une erreur variable objet ou variable de bloc with non définie
16/05/2008, 18h58
edelweisseric

Re

Désolé, mais il faut le déclarer :

Code:

Dim c As Range

Il y avait la réponse dans le code de jacques_jean

Eric
16/05/2008, 19h08
stargates
pour jacques jean et edelweisseric

on est sur le bon chemin mais fiche reste vide alors elle devrait me donner
"Ac mod Elit "

il doit avoir un problème dans
Code:

1 2 3 fiche = Range(ad).Offset(0, -1).Value
en deboguant ad donne la bonne adresse mais fiche = ""

merci à vous
16/05/2008, 19h11
fring

A tout hazard

Code:

fiche = Range(ad).Offset(0, -1).Text
16/05/2008, 19h33
Invité

C'est en effet bizarre, j'ai bien fait l'essai avec dans la colonne "B" et sur la ligne correspondant à l'adresse : une fois une valeur, une fois du texte.

Si la solution proposée par Fring ne fonctionne pas êtes-vous sur du : 0, -1

A vérifier aussi, les données ne seraient-elles pas dans des cellules fusionnées ?
16/05/2008, 19h43
stargates

En essayant .text pas de changement

la plage à parcourir est(c14,c238)
l'adresse que doit renvoyé fiche est la colonne b =>(0,-1)
16/05/2008, 19h46
stargates

non la colonne b n'est fusionnée
16/05/2008, 19h53
Invité

Bonsoir,

Regardez avec ce fichier exemple. Chez moi cela fonctionne et pour vous ?
http://sd-1.archive-host.com/membres...sai_cherch.xls

Je viens de tester et, aussi curieux que celà puisse paraître, avec feuil1, ça ne fonctionne pas.
Je reprends le code d'edelweisseric qui me paraît le plus sioux sinon le plus fleuri pour ce genre de recherche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub cmdRecherche_Click()
Dim reponse, recherche As String
Dim plage As Range
Dim cell As Range
Dim fiche As String
Dim c As Range
 
    recherche = txtRecherche
    'Si txtrecherche est vide
    If recherche = "" Then
    reponse = MsgBox("Veuillez rentrer un N° Ats: Merci", vbOKCancel + vbExclamation, "Pas de N° Ats")
     If reponse = vbYes Then
         txtRecherche.SetFocus
        Exit Sub
     End If
    End If
    With Worksheets("feuil1").Range("C14:E238")
        Set c = .Find(recherche, LookIn:=xlValues, Lookat:=xlWhole)
        If Not c Is Nothing Then _
        Worksheets("feuil1").Range("A1") = c.Offset(0, -1) & Chr(10) & recherche
    End With
End Sub

Avec feuil1 à la place de Worksheets("feuil1") pas de salut 8O
Je suis aussi étonné que vous.
Bon week-end à tous.

16/05/2008, 20h01
stargates

oui une petite question dans ma plage(c14,c238) j'ai des cellules vides

ca peut jouer un role????
16/05/2008, 20h12
ouskel'n'or

En recherche, aucune. Avec ta boucle non plus car tu parcours toute ta plage même si la donnée a été trouvée, à plus forte raison si elle n'existe pas. :(
Je te conseille fortement d'utiliser Find.

Edit
Si recherche peut n'être qu'un bout de la donnée à trouver, remplace xlwhole par xlpart ;)

ok voilà l'erreur les feuil1

attention dans ton code ouskel'n'or

tu as mis
Code:

1 2 3 Worksheets("feuil1").Range("A1") = c.Offset(0, -1) & Chr(10) & recherche
il faut
Code:

1 2 Worksheets("feuil2").Range("A1") = c.Offset(0, -1) & Chr(10) & recherche