Rechercher des éléments dans une colonne VBA

Résolu/Fermé
-
 Zoldik -
Bonjour,

Je souhaite faire un programme qui :
- cherche dans une colonne un texte

si elle trouve ce texte, alors elle renvoie la valeur qui est dans la cellule sur la même ligne mais deux colonnes plus loin (ex : je trouve en A1 et je mets dans une autre case la valeur en C1)

si elle ne trouve pas du tout la valeur elle envoie un msg d'erreur

Voilà ce que j'ai commencé à faire, mais bon vu que je débute et que j'ai essayé de faier le code toute seule ca ne colle pas!!

Sub Recherche_cible()
Dim cible As CellFormat
i = 1
Article = Workbooks("Macro tps de cycle.xls").Worksheets("Détails").Range("B4")
MsgBox = Article
derniereligne = Range("A4").End(xlDown).Row

For i = 1 To derniereligne
If Cells(i, 1) = Article Then
cible = Cells(i, 3)
Worksheets(Article).Range("I3") = cible
End If

Next i

If Workbooks("Macro SCE2 amont.xls").Worksheets(Article).Range("I3") Is Nothing Then
MsgBox "Erreur l'article n'est pas référencé, veuillez rajouter sa moyenne de temps de passage sur l'onglet Cible"

End If


End Sub

Merci de me répondre

1 réponse

Bonjour

essaye ceci:
Sub Recherche_cible()

dim Compteur as Integer

Article = Workbooks("Macro tps de cycle.xls").Worksheets("Détails").Range("B4")
MsgBox  Article
derniereligne = Worksheets(Article).Range("A4").End(xlDown).Row
Compteur = 0
For i = 1 To derniereligne
If Worksheets(Article).Cells(i, 1) = Article Then
   Worksheets(Article).Cells(i, 3) = Worksheets(Article).Cells(i, 1)
   Compteur = Compteur+1
End If
Next i
If Compteur = 0  Then
    MsgBox "Erreur l'article n'est pas référencé, veuillez rajouter sa moyenne de    temps de passage sur l'onglet Cible"
End If
End Sub 


Pas testé mais ça devrait fonctionner!
Bonne suite
Merci beaucoup de ton aide!! ça marche nickel!!!!