Discussion :

[stargates]

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 :

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
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

[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 :

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

1
2
3
Feuil1.
 et 
Feuil2.

par

Code :

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

1
2
3
Worksheets("Feuil1"). 
ou
Worksheets("Feuil2").

[fring]

Bonjour,

ceci

Code :

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

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

tu peux l'écrire comme ceci

Code :

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

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 :

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

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
Tu peux utiliser Feuil1.Range("A1"), Feuil1 étant le CodeName de la feuille

[edelweisseric]

Bonsoir à tous

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

Code :

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

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

[Invité]

Bonjour,

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

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
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

[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

[edelweisseric]

Re

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

Code :

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

Dim c As Range

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

Eric

[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 :

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

1
2
3
 
 
fiche = Range(ad).Offset(0, -1).Value

en deboguant ad donne la bonne adresse mais fiche = ""

merci à vous

[fring]

A tout hazard

Code :

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

fiche = Range(ad).Offset(0, -1).Text

[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 ?

[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)

[stargates]

non la colonne b n'est fusionnée

[Invité]

Bonsoir,

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

[ouskel'n'or]

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 :

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
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
Je suis aussi étonné que vous.
Bon week-end à tous.

[stargates]

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

ca peut jouer un role????

[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

[stargates]

ok voilà l'erreur les feuil1

attention dans ton code ouskel'n'or

tu as mis

Code :

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

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

il faut

Code :

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

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