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