Rechercher des éléments dans une colonne VBA
Résolu
Zoldik
-
Zoldik -
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
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
