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