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
A voir également:
- Rechercher des éléments dans une colonne VBA
- Déplacer une colonne excel - Guide
- Trier une colonne excel - Guide
- Rechercher ou saisir une url - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
1 réponse
Bonjour
essaye ceci:
Pas testé mais ça devrait fonctionner!
Bonne suite
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
Zoldik
Merci beaucoup de ton aide!! ça marche nickel!!!!